Cómo utilizar el método OpenDatabase para abrir bases de datos protegida con contraseña en Access 2000

Seleccione idioma Seleccione idioma
Id. de artículo: 209953 - Ver los productos a los que se aplica este artículo
Moderada: Requiere macro básico, codificación y las capacidades de interoperabilidad.

Este artículo se aplica únicamente a las bases de datos de Microsoft Access (.mdb).

Expandir todo | Contraer todo

Resumen

En este artículo se describe cómo utilizar el método OpenDatabase para abrir una base de datos de Microsoft Access que tiene una contraseña de base de datos. Tenga en cuenta que esto es distinto de abrir una base de datos está protegida con la característica de seguridad de nivel de usuario de Microsoft Access.

Más información

Si desea utilizar el método OpenDatabase para abrir una base de datos protegida con contraseña, especificar la contraseña de la base de datos como parte del argumento Conectar . La sintaxis para abrir una base de datos con el método OpenDatabase es como sigue:
Establecer db = workspace.OpenDatabase (dbname, options, read-only, connect)
Nota : aunque las Opciones y De sólo lectura documentados argumentos del método OpenDatabase en la Ayuda como argumentos opcionales, debe proporcionar al utilizar el argumento Connect . Si utiliza un argumento de Conectar y no proporcionan las Opciones y De sólo lectura argumentos, recibirá 3031 de error de tiempo de ejecución:
Contraseña no válida.
Recibe este mensaje de error incluso si la contraseña que proporcionó en el argumento Connect es correcta. Si no es necesario utilizar un argumento de Conectar , puede omitir las Opciones y De sólo lectura argumentos.

Cuando utiliza el método OpenDatabase para abrir una base de datos protegida con contraseña, el argumento Connect del método OpenDatabase requiere la siguiente sintaxis:
Access; pwd = password
Utilizar el método OpenDatabase para abrir la base de datos Neptuno.mdb (que está protegido con una contraseña de base de datos de "northwind") de ejemplo, siga estos pasos:

Nota : el ejemplo de código en este artículo se utiliza Microsoft Data Access Objects. Para que este código funcione correctamente, debe hacer referencia a la biblioteca de objetos Microsoft DAO 3.6. Para ello, haga clic en referencias en el menú Herramientas en el Editor de Visual Basic y asegúrese de que la casilla de verificación de Biblioteca de objetos Microsoft DAO 3.6 está activada.

Precaución : Si sigue los pasos descritos en este ejemplo, 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. Iniciar Microsoft Access y abrir en el ejemplo de base de datos Neptuno.mdb para acceso exclusivo. Para ello, haga clic en Abrir base de datos en el menú archivo , haga clic en el botón Abrir para mostrar las opciones de la flecha y, a continuación, haga clic en Exclusivo abrir .
  2. En el menú Herramientas , elija seguridad y, a continuación, haga clic en Establecer contraseña de base de datos .
  3. Escriba northwind en cuadros de la contraseña y Comprobar .
  4. Haga clic en Aceptar para cerrar el cuadro de diálogo Establecer contraseña de base de datos .
  5. Cierre la base de datos.
  6. Crear una nueva base de datos en blanco.
  7. Cree un módulo y escriba el siguiente procedimiento:

    Nota : sustitutos de la ruta de acceso correcta a Neptuno.mdb en el disco duro en el siguiente ejemplo de código.
    Sub OpenDB()
     Dim db As DAO.Database
     Dim ws As DAO.WorkSpace
     Dim rst As DAO.Recordset
     Set ws = DBEngine.WorkSpaces(0)
     Set db = ws.OpenDatabase _
     ("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _
     False, False, "MS Access;PWD=northwind")
     Set rst = db.OpenRecordset("Customers", dbOpenDynaset)
     If rst.RecordCount > 0 Then
       rst.MoveLast
       MsgBox rst!CustomerID
     End If
     rst.Close
     db.Close
    End Sub
    					
  8. Para probar este procedimiento, escriba la línea siguiente en la ventana Depuración y, a continuación, presione ENTRAR:
    OpenDB
    Observe que un cuadro de mensaje muestra el ID de cliente del último registro en la tabla Customers, que indica que la base de datos se abrió correctamente.

Referencias

Para obtener más información acerca del método OpenDatabase, haga clic en Ayuda de Microsoft Visual Basic en el menú Ayuda , escriba el método opendatabase en el Ayudante de Office o el Asistente para Ayuda y, a continuación, haga clic en Buscar para ver el tema.

Para obtener más información acerca de las contraseñas de base de datos, haga clic en Ayuda de Microsoft Access en el menú Ayuda , escriba proteger un archivo de base de datos (.mdb) de microsoft acceso con una contraseña o cifrado en el Ayudante de Office o en el Asistente para Ayuda y, a continuación, haga clic en Buscar para ver los temas devueltos.

Propiedades

Id. de artículo: 209953 - Última revisión: miércoles, 26 de enero de 2005 - Versión: 3.1
La información de este artículo se refiere a:
  • Microsoft Access 2000 Standard Edition
Palabras clave: 
kbmt kbautomation kbpasswords kbdatabase kbopenfile kbhowto kbprogramming KB209953 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 209953

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com