AYUDA CON ADODC
Tengo el siguiente codigo para un adodc, pero no se como enlazar los textbox.
Adodc.CommandType = adCmdText
Adodc.RecordSource = "SELECT * FROM LIQUIDACIONES_RECIBOS"
en las propiedades del textbox tengo DataSource= Adodc, pero no se como decirle el campo de la tabla que tiene que mostrar, en la propiedad DataField no me aparece nada.
Adodc.CommandType = adCmdText
Adodc.RecordSource = "SELECT * FROM LIQUIDACIONES_RECIBOS"
en las propiedades del textbox tengo DataSource= Adodc, pero no se como decirle el campo de la tabla que tiene que mostrar, en la propiedad DataField no me aparece nada.
Si el enlace del adodc a la tabla lo tienes por código, en vez de en diseño, el textbox deberás enlazarlo también por código:
text1.datafield="nombre campo que quieras"
text1.datafield="nombre campo que quieras"
Efectivamente si ya lograste la coneccion a tu base de datos por codigo lo unico que tienes que acer es igualar el contenido de tu text con lo de tu tabla y campo de la base de datos dependiendo
de lo que quieras hacer. si lo que quieres es ingresar datos este es el codigo, bueno para accesar a la tabla correspondiente recuerda usar sentencias de SQL:
Dim source1 as adodb.recorset
source1.Open " Select Campo o campos from nombre de la tabla",nombre de la variable que hace referencia a la conexion, adOpenKeyset, adLockOptimistic
source1.MoveFirst
source1.Find "Campo llave o campo que no se deva repetir=" & Textbox.Text, 0, adSearchForward
If source1.EOF = True Then estas dos ultimas lineas te ayudarn a no repetir datos en tu base de datos
source1.AddNew
With source1
!Campo = Text1.tex
!campo_proveedor = text2.Text
!campo = text3.tex
lo anterior depende de la cantidad de campos que vayas a utilizar de tu tabla
.Update
End With
Else
Msgbox El dato ya existe,vbcritical+vbOKonly, Error
End If
source1.Close
Espero te sirva
de lo que quieras hacer. si lo que quieres es ingresar datos este es el codigo, bueno para accesar a la tabla correspondiente recuerda usar sentencias de SQL:
Dim source1 as adodb.recorset
source1.Open " Select Campo o campos from nombre de la tabla",nombre de la variable que hace referencia a la conexion, adOpenKeyset, adLockOptimistic
source1.MoveFirst
source1.Find "Campo llave o campo que no se deva repetir=" & Textbox.Text, 0, adSearchForward
If source1.EOF = True Then estas dos ultimas lineas te ayudarn a no repetir datos en tu base de datos
source1.AddNew
With source1
!Campo = Text1.tex
!campo_proveedor = text2.Text
!campo = text3.tex
lo anterior depende de la cantidad de campos que vayas a utilizar de tu tabla
.Update
End With
Else
Msgbox El dato ya existe,vbcritical+vbOKonly, Error
End If
source1.Close
Espero te sirva
