Hola pichurri
Para la información que colocas en un TextBox o varios de ellos puedes escoger hacerlo por DAO o ADO.
Por código DAO:
Debes hacer referencia a DAO así:
menú Proyecto -> Referencia -> Microsoft DAO 3.51 o escoges el 3.6
Dim BD as Database
Dim Rs as Recordset
Set BD = OpenDatabase("C:RutaBaseDatos.mdb")
'Si la BD la tienes en la misma carpeta que el proyecto puedes hacerlo así:
Set BD = OpenDatase(App.Path + "BaseDatos.mdb")
Set Rs = BD.OpenRecordset(sentencia SQL)
Con eso ya estas conectado a la BD.
Para guardar sería así:
Rs.AddNew
Rs!Campo = txtCampo.text
'y así con los demás TextBox
Rs.Update
Para consultarlo yo lo hago así:
Rs.MoveFirst
While Not Rs.EOF
If txtCampo.Text = Rs!CampoID Then
'Si el registro existe muestra sus datos:
TxtNombre.Text = Rs!Nombre
TxtApellido.Text = Rs!Apellido
'etc...
Exit Sub
End If
Rs.MoveNext
Wend
MsgBox"No existe ningún registro bajo el campo " & TxtCampo.Text
Con el control Data:
Con el control Data no tienes que declarar variables, se te reduce más la códificación. Ya que a este control lo conectas a la BD por medio de sus propiedades que te muestar el VB.
La BD se la buscas por su propiedad Databasename y la tabla por su propiedad RecordSource.
Y la codificación sería muy parecido a lo anterior, pero así:
Data1.recordset.AddNew
data1.recordset("Campo") = txtCampo.Text
Data1.recordset.Update
Es decir, sustituyes Rs.etc...
Por Data1.Recordset.etc...
Y usas lo mismo.
Con ADO:
Bueno yo he usado el ADO control.
Insertas uno, te vas a boton derecho propiedades, en la pestaña General especifícas el tipo de conexión de BD que tendrá. En la pestaña Origen de registros específicas para una Tabla:
2 - adCmdTable y en segundo Combo la Tabla a escoger de la cual estará enlazado con respecto a la BD.
Su codificación tambien es muy semejante a la mencionada anteriormente
Puedes conectar al ADO también pór código así:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "BaseDatos.mdb"
Adodc1.CursorType = adOpenDynamic
Adodc1.RecordSource = "Cliente"
Adodc1.Refresh
TxtNombre.DataField = "Nombre"
TxtApellido.DataField = "Apellido"
TxtCedula.DataField = "Cedula"
Y por ahí va la cosa.
Bueno, no sé si sea una pista pero es una pista muy completa.+
Saludos.
