La Web del Programador: Comunidad de Programadores
 
    Pregunta:  5425 - ABRIR INSTANCIA DE ACCESS CON PASSWORD
Autor:  Urbandisa Urbandisa
Como puedo al abrir la instancia de Access pasarle la password a la vez?

Ya que puedo abrirla asi:

Dim acApp As Access.Application

Set acApp = New Access.Application

acApp.ProductCode

acApp.OpenCurrentDatabase "C:\bd1.mdb"

acApp.Visible = False

pero no puedo si tiene password porque no se donde pasarle el parametro de la password, ya he estado probando al azar y nada...

Gracias por adelantado.

Pedro.

  Respuesta:  Gerardo Dávila
Que ondas Pedro!

Bueno, el siguiente código quizás te pueda ayudar a lo que necesitas, ponlo en un botón de apertura de la base de datos:

Private Sub Command1_Click()
Dim db as Database
Set db = OpenDatabase("C:\my documents\basedatos.mdb",false,false,"pwd=MiClave")
msgbox("Base de datos abierta")
db.close
End Sub

Por supuesto la instrucción más importante es la tercera, podrás observar que existe un cuarto parámetro con respecto a la instrucción Opendatabase, la cual no es muy documentada y tiene que ver con la clave de acceso, debes escribirla con las comillas tal y como se muestra en el ejemplo, al igual que la palabra reservada pwd.

Espero que te sea de utilidad, cualquier cosa, ya tienes mi correo.