Tengo una consulta VBA integrada en Excel que ejecuta una consulta SQL en una base de datos de Access. La conexión funciona cuando la base de datos no está protegida sin una contraseña con el siguiente código:
Set Connection = New ADODB.Connection
Cnct = "Provider=Microsoft.ACE.OLEDB.12.0;"
Cnct = Cnct & "Data Source=" & DBFullName & ";"
Connection.Open ConnectionString:=Cnct
Pero cuando protejo con contraseña la base de datos e intentoLo mismo de arriba, pero con la condición de contraseña agregada, no se pudo "t conectar y recibo un mensaje de" Error de tiempo de ejecución -2147217843 ". El código que estoy usando para esto es el siguiente:
Set Connection = New ADODB.Connection
Cnct = "Provider=Microsoft.ACE.OLEDB.12.0;"
Cnct = Cnct & "Data Source=" & DBFullName & ";"
Cnct = Cnct & "user ID=" & Environ("Username") & ";"
Cnct = Cnct & "password=XXXXXXXXXX;"
Connection.Open ConnectionString:=Cnct
¿Alguien sabe lo que estoy haciendo mal aquí?
Respuestas
1 para la respuesta № 1Esta es la cadena de conexión que se utilizará cuando tenga un Access 2007: Base de datos 2013 protegida con una contraseña usando el "Establecer base de datos Contraseña"Función en el acceso.
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:myFoldermyAccessFile.accdb;Jet OLEDB:Database Password=MyDbPassword;Algunos informes de problemas con contraseña de más de 14 caracteres. también que algunos personajes pueden causar problemas. Si tienes problemas, intente cambiar la contraseña a una corta con caracteres normales.
¡Nota! Los informes dicen que una base de datos encriptada utilizandoEl esquema de cifrado predeterminado de Access 2010 - 2013 no funciona con esta conexión cuerda. En acceso; Prueba las opciones y elige el método de cifrado 2007 en lugar. Eso debería hacer que funcione. No conocemos ninguna otra. solución. Por favor, póngase en contacto si hay otras soluciones disponibles!
(Fuente)