¿Contraseña BD así se cambia?
Buenas, y gracias de antemano.
Mi problema es este, quiero cambiar una contraseña de una base de datos de access a la que accedo mediante recordsets y comandos desde mi programa de visual basic 6.0. Yo utilizo este código, pero tras mucho investigar y luchar con la ayuda en ingles no he conseguido saber que esta mal. ¿Me podrías ayudar?
Private Sub cmdBDAceptar_Click()
Dim work As Workspace
Dim Db As Database
'este msgbox es solo para ver por el momento ke leo del registro
MsgBox GetSetting("DirBD", "Situación", "Ruta", 0), , "error"
Set Db = work.OpenDatabase(GetSetting("DirBD", "Situación", "Ruta", 0), dbDriverNoPrompt, False, ";Jet OLEDB:Database Password = 1234")
Db.NewPassword "1234", "12345"
Db.Close
End Sub
De antemano muchas gracias
Mi problema es este, quiero cambiar una contraseña de una base de datos de access a la que accedo mediante recordsets y comandos desde mi programa de visual basic 6.0. Yo utilizo este código, pero tras mucho investigar y luchar con la ayuda en ingles no he conseguido saber que esta mal. ¿Me podrías ayudar?
Private Sub cmdBDAceptar_Click()
Dim work As Workspace
Dim Db As Database
'este msgbox es solo para ver por el momento ke leo del registro
MsgBox GetSetting("DirBD", "Situación", "Ruta", 0), , "error"
Set Db = work.OpenDatabase(GetSetting("DirBD", "Situación", "Ruta", 0), dbDriverNoPrompt, False, ";Jet OLEDB:Database Password = 1234")
Db.NewPassword "1234", "12345"
Db.Close
End Sub
De antemano muchas gracias
1 respuesta
Respuesta de denciso
1
No he visto que se cambie el password de la forma que comentas:
http://www.microsoft.com/msj/archive/S212.aspx
Te recomiendo mejor lo siguiente:
http://support.microsoft.com/kb/304319/es
http://www.microsoft.com/msj/archive/S212.aspx
Te recomiendo mejor lo siguiente:
http://support.microsoft.com/kb/304319/es
