Změna hesla databáze

Postup:
Do projektu je třeba přidat referenci na MS DAO Library. Pokud máte databázi ve formátu MS Access 2000, je třeba verze 3.6.

Private Sub ChangeAccessPassword()
    Dim Db As Database
    
    Set Db = OpenDatabase("C:\My Documents\northwind.mdb", True, _
       False, ";pwd=OriginalPassword")
    Db.NewPassword "OriginalPassword", "NewPassword"
    Db.Close
End Sub

Zpět

Autor: The Bozena