如何在vb下编程实现对access数据库口令的更改.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 13 行

要 修 改 密 码 可 以 使 用 NewPassword方 法 ： 
     Dim Db As Database 
     
     Set Db = OpenDatabase("C:\My Documents\MyDB.mdb",True, _ 
     False,";pwd=MyPassword1") 
     Db.NewPassword "MyPassword1","MyPassword2" 
     Db.Close 
    也 可 以 使 用 CompactDatabase方 法 ： 
     DBEngine.CompactDatabase "C:\My Documents\Test.mdb", _ 
     "C:\My Documents\TestII.MDB", dbLangGeneral & ";pwd=MyNewPWD", _ 
     dbVersion30, ";pwd=MyPassword1" 
<END>