Objeto: ADODC
 Lo primero es inserta el ADODC a la lista de objetos del VB. Se hace
de la siguiente manera: click derecho en la parte de objetos del VB,
luego insertamos el objeto adodc (Microsoft ADO Data Control
6.0(OLEDB) )
 Segundo es hacer la conexión, seleccionamos el objeto insertado, y en
el atributo ConectionString y hacemos click en el botón de Generar. El
proveedor va a ser Jet 4.0 Ole, y buscamos la base de datos que
creamos. Y ya esta hecha la conexión.
 Luego creamos 2 variables con las cuales realizaremos las 4 funciones
básicas de los registros (consultar, eliminar, actualizar, guardar) en un
modulo. las cuales son.
Public conexion As New ADODB.Connection
Public t As New ADODB.Recordset
Explicación del código: conexión con esta variable u objeto que hemos
creado vamos a hacer la conexión con la base de datos, y además la
eliminación, actualización y guardado de registros). Con t vamos hacer la
consulta o búsqueda de registros.
 En el formulario en el evento form_load() hacemos la conexión.
Set conexion = New ADODB.Connection
conexion.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Documents and Settings\jesus\Mis
documentos\Programacion II\pina\pp.mdb;Persist Security
Info=False”
Explicación del código: Set conexion = New ADODB.Connection
Lo que hacemos es instanciar la conexión, cada vez que vamos hacer una
conexión hay que instanciarla, por otra parte cuando hacemos
conexion.Open es para asignar la cadena de conexión, y ahora se pregunta
¿de donde sale lo que está entre comilla?, lo que hacemos es lo siguiente, en el
objeto ADODC, después de hacer la conexión de damos de nuevo a
ConectionString y la ruta que aparece allí la copiamos y la pegamos, eso si
entre comillas.


conexion.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data
Source= “ & App.Path &”p.mdb;Persist Security Info=False”
Explicación del código: EL App.Path lo que hace es hacer la conexión
dinámica.
Funciones básicas de los Registros
1. la función de guardar, se hace de la siguiente forma:
sql = “ insert into tabla_trabajada
(campo_1,campo_2….,campo_n) values (‘” &
variable_string.text & ”’,” & variable_numerica & ”…,’” &
variable_n & ”’) ”
conexion. Execute sql
Explicación del código: insert into significa insetar en, luego la tabla con
que vamos a trabajar, el primer par de paréntesis es para los campos de la
tabla, el segundo par para los objeto o variables que poseen los valores que
vamos a insertar, si es numérica al objeto o variable no se le coloca las
comillas simples (‘’), si es string o tipo texto si. Y el conexion. Execute
sql significa que le mande el sql a la conexión para que ejecute la instrucción
mandada.
2. Actualizar
sql = “ubdate tabla_trbajada Set campo_1 = objeto_1,
campo_2 = objeto_2…., campo_n = objeto_n where
campo_modificar = objeto ”
conexion. Execute sql
Explicación del código: ubdate significa actualizar, y Set asignar, luego
se coloca el campo de la tabla a actualizar, y luego el objeto que tiene el valor
que le vamos a asignar, y por ultimo el where que significa donde, y se
coloca en que parte o en que campos vamos a actualizar la tabla.
3. Eliminar
Sql = “delete *from tabla_solicitada where campo_solicitado =
objeto”

Explicación del código: delete es borrar, from de, where se utiliza para
borrar que borre todos los registros de la tabla en donde se cumpla la acción,
ejemplo borrar donde fecha sea igual a 03/01/86, seria…where Fecha(que
seria el campo de la tabla) = ‘“ & 03/01/86 & “’ “
4. Buscar o seleccionar.
Sql = “ select *from tabla_solicitada where campo_solicitado
= ‘” & variable u objeto & “’ ”
Set t = New ADODB.Recordset
t.open sql,conexion,adopendynamic
If Not( t.EOF And T.Bof) then
llenar los campos, crear grillas…
End if
Explicación del código: Select es buscar o seleccionar. If Not( t.EOF And
T.Bof) then. Es que si lo encuentra entonces va a hacer las acciones.
Ejemplos:
Buscar:
Private Sub txtcedula_LostFocus()
If txtcedula <> "" Then
sql = " select *from tabcliente where cedula = '" &
txtcedula.Text & "' "
Set t = New ADODB.Recordset
t.Open sql, conexion, adOpenDynamic
If Not (t.EOF And t.BOF) Then
txtnombre.Text = t("nombre"
txtcedula.Enabled = False
txtnombre.Enabled = False
Else
incluir = True
End If
End If
End Sub

Eliminar
Private Sub Command2_Click()
If (MsgBox("Esta seguro", vbYesNo) = vbYes) Then
If (g = Text1.Text And h = Text2.Text) Then
sql = " delete from tabcont where cont = '" & Text2.Text & "' and name = '" &
Text1.Text & "' "
conexion.Execute sql
MsgBox ("Usuario Eliminado"
Else
MsgBox ("Contraseña no Puede ser Eliminada"
End If
End Sub
Actualizar
Private Sub cmdgrabar_Click()
sql = " update tabingrediente set existencia = " & n & " where
codigo = '" & txtcod_i.Text & "'"
Set cm = New ADODB.Command
conexion.Execute sql
End Sub