josepolob
14 de Agosto del 2003

Solicito ayuda para poder acceder a una base datos de Access 2000 con Ado (codigo), (tiene una contraseña de usuario) la base de datos tiene un Base de Datos de Sistema.

gracias

juan007
14 de Agosto del 2003

Hola Jose

Bueno aqui te escribo el codigo para accesar a una base datos...espero que te sirva a mi me funciona perfectamente.

ahii va..

Public DB As ADODB.Connection
Public RS As ADODB.Recordset
Dim Conexion As String

Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset

Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "InventarioMantagua.mdb" & ";Jet OLEDB:Database Password=TuPassword;"

DB.Open Conexion
DB.CursorLocation = adUseClient

RS.Open "SELECT * FROM [TuTabla]", DB, adOpenStatic, adLockPessimistic, adAsyncFetch

y....eso es todo te aconsejo mejor dichi opino que deberias copiar este codigo en un modulo .bas y lo llames cada vez que desees accesar a la base datos de algun formulario.

Cuando cierres tu aplicacion (en cada formulario seria mejor liberar memoria) no olvide liberar memeria de las variables que accesan a la base datos (DB,RS)

Bueno ojala que te halla ayudado en algo.

Suerte

Saludos desde CHILE