Cómo utilizar la automatización para abrir una base de datos protegida mediante contraseña en Access 2000

Utilizando el método OpenCurrentDatabase, puede abrir una base de datos de Microsoft Access mediante programación desde la interfaz de usuario del programa. Sin embargo, el método OpenCurrentDatabase no proporciona ningún parámetro para especificar contraseñas para las bases de datos protegidas. Por consiguiente, de existir una contraseña de base de datos, se pedirá automáticamente al usuario que la especifique.

En este artículo se describe cómo abrir mediante programación una base de datos protegida por contraseña desde la interfaz de usuario de Microsoft Access sin que el usuario intervenga.

Data Access Objects (DAO) le permite especificar una contraseña de base de datos a la hora de abrir una base de datos protegida. Mediante la propiedad DBEngine de la instancia de Microsoft Access que su código crea, es posible utilizar DAO para especificar la contraseña de la base de datos. Una vez validada la contraseña por el motor de base de datos Microsoft Jet, puede utilizar el método OpenCurrentDatabase para abrir la base de datos desde la interfaz de usuario de Microsoft Access sin que el usuario intervenga.

Ejemplo paso a paso:

PRECAUCIÓN
Si sigue estos pasos, modificará la base de datos de ejemplo Neptuno.mdb. Quizás desee hacer una copia de seguridad del archivo Neptuno.mdb y realizar estos pasos sobre una copia de la base de datos.

1. Inicie Microsoft Access 2000.
2. Abra la base de datos de ejemplo Neptuno.mdb en modo exclusivo. Para ello, haga clic en Neptuno.mdb en el cuadro de diálogo Abrir, haga clic en la flecha situada junto al botón Abrir y, a continuación, haga clic en Abrir en modo exclusivo.
3. En el menú Herramientas, seleccione Seguridad y, a continuación, haga clic en Establecer contraseña para la base de datos.
4. Escriba nwind en los cuadros Contraseña y Comprobar y, a continuación, haga clic en Aceptar.
5. Cierre la base de datos de ejemplo Neptuno.mdb.
6. Abra de nuevo Neptuno.mdb para comprobar si se le pide que escriba la contraseña de la base de datos.
7. Haga clic en Cancelar para no abrir la base de datos.
8. Cree una nueva base de datos en blanco.
9. Abra un módulo nuevo en la vista Diseño.
10. En el menú Herramientas, haga clic en Referencias.
11. Agregue una referencia a la Biblioteca de objetos de Microsoft DAO 3.6 y, a continuación, haga clic en Aceptar para cerrar el cuadro de diálogo Referencias.
12. Agregue el siguiente código al módulo:

    Option Compare Database Option Explicit
    
    Sub OpenPasswordProtectedDB()
    
       'Definir como Static para que no se cierre 'la instancia de Access cuando finalice el procedimiento. Static acc As Access.Application Dim db As DAO.Database Dim strDbName As String strDbName = "C:\Program Files\Microsoft Office\Office\Samples\Neptuno.mdb" Set acc = New Access.Application acc.Visible = True Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=nwind") acc.OpenCurrentDatabase strDbName db.Close Set db = Nothing End Sub
    					

13. Ejecute la subrutina OpenPasswordProtectedDB en la ventana Ejecución.

Observe cómo se abre la base de datos Neptuno en la nueva instancia de Microsoft Access sin el mensaje de contraseña.

Después, tal vez desee quitar la contraseña de la base de datos de ejemplo Neptuno.mdb. Para ello, siga estos pasos:

1. Inicie Microsoft Access 2000.
2. Abra la base de datos de ejemplo Neptuno.mdb en modo exclusivo. Para ello, haga clic en Neptuno.mdb en el cuadro de diálogo Abrir, haga clic en la flecha situada junto al botón Abrir y, a continuación, haga clic en Abrir en modo exclusivo.
3. Cuando se le pida la contraseña de la base de datos, escriba nwind y haga clic en Aceptar.
4. En el menú Herramientas, seleccione Seguridad y, a continuación, haga clic en Anular la contraseña establecida para la base de datos.
5. Cuando se le pida la contraseña de la base de datos, escriba nwind y haga clic en Aceptar.
6. Cierre la base de datos.

La contraseña de la base de datos se quita.

Para obtener información adicional sobre cómo abrir con DAO una base de datos protegida con contraseña, haga clic en el siguiente número de artículo para verlo en Microsoft Knowledge Base: