Bases de datos y VB 6.0

[aavg]

Hola:

Creo tener la respuesta a tu pregunta, voy a utilizar ADODB y no un WorkSpace, porque no me gustan del todo


Primero vete al menu PROYECTO -> REFERENCIAS y agrega una referencia a la libreria "Microsoft ActiveX Data Objects"


Despues el siguiente codigo

'Declaracion de variables para abrir la base de datos
Public Cnn As New ADODB.Connection
Public Rst As New ADODB.Recordset

'Al cargar el formulario se abre la base
'Y se cargan todos los datos de la tabla
'en este ejemplo la base de datos access es PRUEBACONTRA.MDB
'Y la tabla se llama TABLE1
Private Sub Form_Load()
Cnn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\PruebaContra.mdb;pwd=MiPass"
Cnn.Open

With Rst
.ActiveConnection = Cnn
.LockType = adLockReadOnly
.CursorType = adOpenStatic
.Open "Select * from Tabla1"
End With

End Sub


Nota: en este caso la base de datos se encuentra en la misma ruta que tu proyecto, de lo contrario sustituye la instruccion APP.PATH por la ruta de la base de datos en disco.