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

143 - Abrir y cambiar contraseña en base de datos

Contenido de la página

Cambiar la clave con el método NewPassword
Abrir una base de datos con contraseña ( Con ADO y DAO)
Relacionados

Cambiar la clave con el método NewPassword

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:

Option Explicit ' ------------------------------------------------------------------- ' \\ -- Función ' ------------------------------------------------------------------- Private Function Cambiar_Password_DAO( _ sPath As String, _ Nuevo_Password As String, _ Viejo_Password As String) As Boolean On Error GoTo ErrSub ' -- Compruobar la ruta de la bse de datos If Len(Dir(sPath)) = 0 Then MsgBox "No se ha encontrado la base de datos: " & sPath, vbExclamation Exit Function End If ' -- Declarar variable para acceder a la base de datos Dim db As DAO.Database ' -- Abrir la base de datos, indicando la contraseña actual Set db = OpenDatabase(sPath, True, False, ";pwd=" & Viejo_Password) ' -- Ejecutar método newPassword de DAO para cambiar la clave Call db.NewPassword(Viejo_Password, Nuevo_Password) ' -- retonar error Cambiar_Password_DAO = Err.Number = 0 ' -- Cerrar la Base y eliminar la referencia para liberar recursos db.Close Set db = Nothing Exit Function ' -- Error ErrSub: MsgBox Err.Description If Not db Is Nothing Then db.Close Set db = Nothing End If End Function ' ------------------------------------------------------------------- ' \\ -- Botón para cambiar la clave ' ------------------------------------------------------------------- Private Sub Command1_Click() ' -- Ejecutar la Función pasando la clave actual y la nueva contraseña Call Cambiar_Password_DAO("c:\bd1.mdb", "Nueva clave", "clave actual") End Sub

Acceder a base de datos con contraseña ( Con ADO y DAO)

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