| Pregunta: | 5724 - CONECTAR A ACCESS 2000 CON PASSWORD MEDIANTE JET |
| Autor: | Julia Taylor |
| Me estoy conectando de Visual 6 a Access 2000 de esta forma
Conectar.Provider = "Microsoft.JET.OLEDB.4.0" Conectar.Properties("Data Source").Value = DirBase Conectar.Properties("User ID").Value = "Admin" Conectar.Properties("Password").Value = "" Conectar.Open strCnn Comando.ActiveConnection = Conectar Cuando le pongo clave a la base en access no puedo ingresar y me dá el siguiente error: "No se puede iniciar la aplicacion. Ffalta el archivo de informacion del grupo de trabajo o bien esta abierto en modo exclusivo por otro usuario" run-time error "-2147217843(80040e4d)" estoy recontra segura que nadie esta utilizando la base. Gracias por contestarme. | |
| Respuesta: | Edilson Galeano Zuñiga |
| Prueba con esto a mi nunca me molesto el pasword de la base de datos
Private Sub Form_Load() On Error GoTo FindErr With DataBasePpal .cnnConector.Provider = "Microsoft.jet.OLEDB.4.0" .cnnConector.Properties("Jet OLEDB:Database Password") = "Contraseña" .cnnConector.ConnectionString = "Data Source=" & App.Path & "\DataBase\Everest_.mdb" .rsLogin.Open End With FindErr: ' Si no se encuentra la base de datos, use la función FindDB para buscarla. If Err.Number = -2147467259 Then MsgBox "error de la base de datos" Resume Next End If Exit Sub End Sub espero te sirva mi base de datos se llama Everest_, y se encuentra en la carpeta DataBase donde se encuentra mi aplicacion, tambien funciona con el formato access 2003, todo lo anterio con un diseñador DataEnvironment DataBasePpal Suerte | |
| Respuesta: | Benjamín Torres Juárez |
| Hola Julia, yo tenia el mismo problema y hace medio hora lo pude solucionar, tenía meses tratando de encontrar la solución, de hecho le escribí a la otra persona que te contesto, para preguntarle algunas cosas, pero parece que el correo no existe, bueno sin mas royo te paso un procedimiento, esto lo pones en un modulo y listo.
Public Conexion As New ADODB.Connection Sub Abre(NombreBD As String, Optional Clave As String) Const AccessProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Conexion.Open (AccessProvider & App.Path & "\" & NombreBD & ";Jet OLEDB:Database Password='" & Clave & "'") End Sub Si te das cuenta estábamos cometiendo el error de poner la clave del usuario y no la de la base de datos. Si tienes alguna pregunta no dudes en hacérmela saber. Me gustaría tener tu correo para que en caso de que me atore en algún problema de BV me pudieras ayudar. | |
| Respuesta: | Ignacio Jimenez |
| Yo uso Vb6 con SP4 y me conecto a Access 2000 de esta forma:
Set WrkJet = DBEngine.CreateWorkspace("", "Admin", "") Set Base = WrkJet.OpenDatabase(App.Path & "\xxxxx.mdb", False, False, ";PWD=AQUI_VA_LA_CLAVE") Con esto no he tenido problemas. Eso sí, mi programa es monousuario. Ojalá te sirva de algo esto. Saludos, Ignacio Jiménez | |