paso 1) Agregar Referencia.
Ir a menu proyecto, pinchar referencias y marcar "Microsoft activex Data Object 2.8 Library", o alguna parecida
paso 2) Conectar la base (en este caso se llamara mibase.mdb)
Public MiConexion As ADODB.Connection
Public Sub conectar()
Dim cadena As String
Set MiConexion = New ADODB.Connection
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mibase.mdb;User Id=admin;Password=;"
MiConexion.ConnectionString = cadena
MiConexion.Open
End Sub
paso 3) agregar registros a una tabla. puedes hacer la llamada desde un command_click por ejemplo, con el nombre de "boton1"
Private Sub Boton1_Click()
guardar
end sub
private sub guardar()
Dim rsTabla as ADODB.recordset
Dim cadena as string
set rsTabla = new ADODB.recordset
cadena ="select nombre,apellido,edad from clientes"
rstabla.open cadena, MiConexion, adOpenDynamic, adLockOptimistic
rstabla.addnew
rstabla("nombre")= text1.text
rstabla("apellido")=text2.text
rstabla("edad")=text3.text
rstabla.update
end sub
paso 4) ver datos en una grilla. Agrega el componente adecuado para la grilla, yo uso el "Microsoft Hierarchical Flexgrid...". y nombralo "grilla1"
private sub VerEnGrilla()
Dim rsTabla as ADODB.recordset
Dim cadena as string
set rsTabla = new ADODB.recordset
cadena ="select nombre,apellido from clientes"
rstabla.open cadena, MiConexion, adOpenDynamic, adLockOptimistic
set grilla1.recordset = rstabla
end sub
si quieres filtrarla por ejemplo para que te muestre solo los clientes mayores de edad cambia la cadena a algo así:
cadena="select nombre,apellido from clientes where edad>=18"
ahora si el valor "18" o cualquier otro esta contenido en otro control, digamos un list puedes hacer lo siguiente
cadena="select nombre,apellido from clientes where edad>=" & list1.text
SI la información fue de tu agrado califica!!!!!!!