Insertar vb

[reanimar]

Hola estoy tratando de insertar en Access mediante Ado:

cnCon.Execute ("INSERT INTO Contacto (IdCliente,Nombre,Aut)VALUES (" & CLng(idCliente) & ",'" & Me.Contactos.Item(i).Nombre & "',' & Me.Contactos.Item(i).Aut & ')")

Pero en el campo Aut me dice que el tipo no es correcto.

En la base access esta definido como Boolean, y la variable viene cargada con falso...si le pongo directamente true o false en la liena del insert funciona...pero con la variable no...

Otra hay alguna forma de saber el autonumerico de un insert recien realizado con execute?

Gracias

[reanimar]

Duda para insetar un boolean en Ado

hay que poner true o false, no se puede usar una variable del tipo boolean?

[black_devil]

Hola, si es autonumerico, definelo en tu BD como tipo de dato autonumérico (Access) y en SQL de tipo INT incrementado en 1...

cnCon.Execute ("INSERT INTO Contacto (IdCliente,Nombre,Aut)VALUES (" & CLng(idCliente) & ",'" & Me.Contactos.Item(i).Nombre & "',' & Me.Contactos.Item(i).Aut & ')")

Código:

Dim Sql as String

sql = "INSERT INTO Contacto (IdCliente, Nombre, Aut) VALUES ( definicion de tus controles)"
cnCon.Execute sql

A lo que me refiero que el aut se incrementará sólo, define bien tu control para guardar datos tipo numérico ...

para consultar

Código:

rs.open "SELECT campo FROM contacto WHERE campo = condicion", , cn, adOpenStatic, adLockOptimistic
If (rs.BOF And rs.EOF) Then
MsgBox "Dato no encontrado"
rs.close
Else
txttipoaut.Text = rs!aut
End If