Yo lo que hago es (aduciendo que sabes de programación en Visual Basic)
1. Agregar una referencia a la libreria Microsoft ActiveX Data Objects 2.0 Library.
2. Crear un módulo de conexion al que le pongo el nombre de Conexion.mdl, ahi defino los procedimientos para conectar y desconectar a la base de datos.
Supongamos que en C: tengo una base de datos que se llama mibase:
El módulo de conexión seria asi:
Módulo de Conexion:
Private Con As ADODB.Connection
Public cmd As ADODB.Command
Public fCon As Integer
'***Procedimiento que inicializa las variables para consultas a la Base de Datos
Private Sub Inicializar()
Set cmd = New ADODB.Command
cmd.ActiveConnection = Con
cmd.CommandType = adCmdText
End Sub
'***Procedimiento Para conectar con la base de datos
Public Sub Conectar()
On Error GoTo errConectar
If fCon = 1 Then
Desconectar
End If
If fCon = 0 Then
Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\mibase.accdb;Persist Security Info=False;"
fCon = 1
Inicializar
End If
Exit Sub
errConectar:
MsgBox "Ocurrió un error al conectarse a la Base de Datos." & ChrW(13) & ChrW(13) & "Error " & Err.Number & ": " & ChrW(13) & Err.Description, vbCritical, "Error: Conexión a la Base de Datos"
End Function
'***Procedimiento para desconectarse de la Base de Datos
Public Sub Desconectar()
On error GoTo errDescon
if fCon = 1 then
Con.Close
fCon = 0
End If
Exit Sub
errDescon:
MsgBox "Ocurrió un error al desconectarse de la Base de Datos." & ChrW(13) & ChrW(13) & "Error " & Err.Number & ": " & ChrW(13) & Err.Description, vbCritical, "Error: Desconexión de la Base de Datos"
End Sub
3. Para efectos de prueba supongamos que tenemos una tabla dentro de la base de datos con la información de los estudiantes de un salón:
Tendremos la tabla Estudiante:
Estudiante
-------------------------
NumeroID (Texto)
Nombre (Texto)
Apellidos (Texto)
FechaNacimiento (Fecha y Hora)
GradoActual (Número Entero)
-------------------------
Supon que tienes un formulario en Visual Basic 6
Con un textbox donde pones el Numero de ID del estudiante y otros campos donde se carga la información de dicho estudiante:
Tenemos entonces:
frmPrueba / Tipo: Form
txtNumeroID / Tipo: Textbox
txtNombre / Tipo: Textbox
txtApellidos / Tipo: Textbox
txtFecha / Tipo: Textbox
txtGrado / Tipo: Textbox
btnVer / Tipo: CommandButton
btnSalir / Tipo: CommandButton
El código de dicho formulario seria:
Private rs1 As ADODB.Recordset
Private Sub Form_Load()
Conectar
Set rs1 = New ADODB.Recordset
End Sub
Private Sub btnVer_Click()
cmd.CommandText = "SELECT * FROM ESTUDIANTE WHERE NUMEROID = '" + txtNumeroID.text + "'"
Set rs1 = cmd.Execute
If Not rs1.EOF Then
txtNombre.text = rs1(1)
txtApellidos.text = rs1(2)
txtFecha.text = rs1(3)
txtGrado.text = rs1(4)
End IF
rs1.Close
Set rs1 = Nothing
End Sub
Private Sub btnSalir_Click()
Desconectar
Unload Me
End Sub
Es un ejemplo simple pero considero que muy facil de entender, espero te sirva
