lumbanico

Este ejemplo utiliza el método NewPassword de DAO para establecer una nueva contraseña a una base de datos. Para la función cambiar_Password_DAO, tienes que especificar el directorio de la base de datos en el primer parámetro, en el segundo parámetro indicar la nueva contraseña y en el último argumento la vieja contraseña. Y para que todo funcione correctamente hay qeu incuir la referencia de Microsoft Dao Object Library desde el menú Proyecto/Referencias de visual Basic.

Private Function Cambiar_Password_DAO( path As String, Nuevo_Password As String, Viejo_Password As String) As Boolean
On Error GoTo ErrSub
‘Comprueba que la ruta no esté vacía
If Dir(path) = “” Then Exit Function
‘Variable para acceder a la base de datos
Dim db As DAO.Database
‘Abre la base de datos
Set db = OpenDatabase(path, True, False, “;pwd=” & Viejo_Password)
‘Metodo newPassword de DAO
Call db.newPassword(Viejo_Password, Nuevo_Password)
Cambiar_Password_DAO = Err.Number = 0
‘Cerramos la Base y eliminamos la referencia
db.Close
Set db = Nothing
Exit Function
‘Error
ErrSub:
MsgBox Err.Description
On Error Resume Next
db.Close
Set db = Nothing
End Function
Private Sub Command1_Click()
‘Función
Call Cambiar_Password_DAO(App.path & “\bd1.mdb”, “Nuevo”, “Viejo”)
End Sub

Con el siguiente código se accede a la base de datos con contraseña mediante ADO, suponiendo que la bd de access está ubicada en el app.path llamada bd1.mdb, y el password es JuanCarlos123:

Private mcnDB As New ADODB.Connection
‘ abre la base
mcnDB.Open “Provider = Microsoft.Jet.OLEDB.3.51; ” & “Persist Security Info= False; ” & Data Source = ” & AppPath & “DB1.mdb; ” & “Jet OLEDB:Database Password = JuanCarlos123″
MsgBox “Conectado a la base de datos con password mediante ADO”
mcnDB.Close ‘ cierra la base
Set mcnDB = Nothing

Mediante DAO:

Private mdbDB As DAO.Database
Set mdbDB = Workspaces(0).OpenDatabase(AppPath & “DB.mdb”, False, False, “;pwd=MiPassword”)

Fuente: www.recursosvisualbasic.com.ar