Conexio access 2000 y visual basic 6.0

newprogrammer
24 de Febrero del 2004
si fueran tan amables de decirme como conectar
access 2000 y visual basic 6.0

Hefzi-ba
24 de Febrero del 2004

'EJEMPLO:
'Primero declaras tus variables:

Public Cnn As ADODB.Connection 'Tipo Connection
Public Rst As ADODB.Recordset 'Tipo RecordSet

'Después haces la conexión con la base de datos:

Set Cnn = New ADODB.Connection
Cnn.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "MiBasedeDatos.mdb"
Cnn.CursorLocation = adUseClient
Cnn.Open 'Al final se habre la conexión

'Conectas el RecordSet con la Conexión:

Set Rst = New ADODB.Recordset
Rst.ActiveConnection = Cnn
Rst.CursorType = adOpenStatic
Rst.LockType = adLockOptimistic

'Después utilizas el recordset para abrir la tabla que gustes, también lo puedes hacer con una consulta SQL:

Rst.Open ("Mi_Tabla")
'ó:
Rst.Open ("SELECT * FROM Mi_Tabla ORDER BY Campo")

'Para cerrar el RecordSet:
Rst.Close

'Espero te sirva

Shalom.