Visual Basic - Habrir BD Access97 con contraseña

Life is soft - evento anual de software empresarial
 
Vista:

Habrir BD Access97 con contraseña

Publicado por Alvaro Martinez (1 intervención) el 09/01/2002 14:47:23
Hola Amigos, Necesito proteger una BD access97 con contraseña, pero al tratar de habrirla me da un error, el el segmento Connection del OpenDataBase utilizo "ODBC;pwd=contraseña", y el error es el sigte: ODBC:error al conectar con "C:\basedatos.mdb", si alguien me puede ayudar lo agradeceria mucho.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Habrir BD Access97 con contraseña

Publicado por Rosalina Vargas A. (60 intervenciones) el 09/01/2002 15:15:46
Hola Alvaro.

Puedes utilizar el Wizard para abrir un base con password que trae el visual basic. Se llama "Cuadro de Diálogo Inicio de Sesión".

Y pones lo siguiente en el Click del Botón "OK". Espero y te sirva de algo.

Private Sub cmdOK_Click()
On Error GoTo ErrorClave
Dim wrkEspacio As Workspace
Dim dbBase As Database
Dim recRegistro As Recordset

Set wrkEspacio = DBEngine.Workspaces(0)
Set dbBase = wrkEspacio.OpenDatabase("C:\MiBase\Base.mdb", False, False, ";pwd=" & txtClave.Text & "")
Set recRegistro = dbBase.OpenRecordset("Select [Tabla1].*,[Tabla2].* from [Tabla1],[Tabla2]")
recRegistro.LockEdits = False
LoginSucceeded = True
Unload Me
frmMenu.Show
Exit Sub

ErrorClave:
Select Case Err.Number
Case 3031
MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
txtClave.SetFocus
SendKeys "{Home}+{End}"
Exit Sub
Case Else
MsgBox "Descripción :" & Err.Description
Exit Sub
End Select
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar