Access数据库密码的设置?????

Question

程序中Access数据库密码怎样设置??

Answer 1

程序是设置密码没有做过，用ADOX试一试。另外如果使用97版，可以使用DAO试一试。

Answer 2

dbName = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Database\Report.mdb;jet oledb:database password=你的密码"注意jet oledb后面是冒号：。要修改密码可以使用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"