Deleting a Database Password with SQL command : Database Password « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Database Password

Deleting a Database Password with SQL command

 
Sub DeleteDbPassword() 
    Dim conn As ADODB.Connection 
    Dim strPath As String 
    Dim strPass As String 

    On Error GoTo ErrorHandler 

    strPath = CurrentProject.Path 
    strPass = "secret" 

    Set conn = New ADODB.Connection 

    With conn 
        .Mode = adModeShareExclusive 
        .Open "Provider = Microsoft.Jet.OleDb.4.0;" & _ 
            "Data Source=" & strPath & "\mydb.mdb;" _ 
            & "Jet OLEDB:Database Password = " & strPass 
        .Execute "ALTER DATABASE PASSWORD null secret" 
    End With 
ExitHere: 
    If Not conn Is Nothing Then 
        If conn.State = adStateOpen Then conn.Close 
    End If 
    Set conn = Nothing 
    Exit Sub 
ErrorHandler: 
    Debug.Print Err.Number & ":" & Err.Description 
    Resume ExitHere 
End Sub 

 

Related examples in the same category