Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

143 - Cambiar contraseña en base de datos - DAO

Ejemplo que 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 , especificar el Path de la base de datos en el primer parámetro, en el segundo parámetro indicar el nuevo Password y en el último argumento el viejo password.

Nota: Incuir la referencia de Microsoft Dao Object Library desde el menú Proyecto -> Referencias de visual Basic.

Código fuente en un formulario :

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

Acceder a una 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")

Recursos visual basic - Enlaces relacionados

Buscar en Recursos vb