Esta respuesta la dí el día 24/03/2001 ante una consulta de Javi G M. Aquí va...
Lo primero que debes hacer es crearte un Origen de Datos ODBC. Para eso, ve al Panel de Control y ejecuta <<Fuentes de Datos ODBC (32 bits)>>. Luego haz click en el Botón <<Agregar>>. Marca el controlador "Microsoft Access Driver (*.mdb)" y haz click en <<Finalizar>>. Se te abrirá una pantalla llamada "Instalación de ODBC para Microsoft Access". Escribe un Nombre de Origen de Datos (Puede ser cualquiera como por ejemplo "OdbcTest". La descripción es opcional). Luego haz click en el botón <<Seleccionar>> y busca la Base de Datos que deseas abrir desde tu programa (Supongamos que se llama C:\Archivo.mdb). Haz click en <<Aceptar>> y luego otra vez <<Aceptar>> en la otra pantalla. Ahora prueba el siguiente código en Visual Basic (Puede ser en el Load de un formulario)
Dim StrConect As String Dim DBPath as String Dim Login as String Dim Password as String Dim DB as ADODB.Connection
'Aquí va la ruta de tu Base de Datos DBPath = "C:\Archivo.mdb"
'Este Login viene por defecto en Access Login = "admin"
'Aquí va la contraseña de tu Base de Datos Password = "123456"
Valora esta respuesta
0
Comentar
VB y ACCes
Publicado por percy Fuentes (1 intervención) el 11/04/2001 23:11:06
Un gusto saludarte y pedirte un favor mira como jalo una consulta de access a visual Basic 6.0 en ADO y en DAO y RDO espero que no causarte muchas molestias. Gracias
Un gusto saludarte y pedirte un favor mira como jalo una consulta de access a visual Basic 6.0 en ADO y en DAO y RDO espero que no causarte muchas molestias. Gracias
Ahora ya puedes manipular el objeto DB. Para abrir una tabla puedes usar el siguiente código (Es el que yo uso y funciona bastante bien)
Public Function OpenRS(cSQL As String, DB as ADODB.Connection) As ADODB.Recordset Dim CMD As ADODB.Command Set CMD = New ADODB.Command With CMD Set .ActiveConnection = DB .CommandText = cSQL .CommandType = adCmdText End With Set OpenRS = New ADODB.Recordset OpenRS.CursorType = adOpenForwardOnly OpenRS.LockType = adLockReadOnly OpenRS.CursorLocation = adUseClient Set OpenRS.Source = CMD OpenRS.Open End Function
Puedes probarlo de la siguiente forma (Supongamos que tienes una tabla llamada "Tabla")
Dim RS As ADODB.Recordset Set RS = OpenRS("Select * From Tabla", DB) Debug.Print RS.Fields(0)
Espero que te resulte... PD. Recuerda activar la referencia de ADO ("Microsoft ActiveX Data Objects 2.1 Library") dentro de tu proyecto