如何用代码修改Access数据库的密码？

时　间:2017-02-28 10:37:42
作　者:麥田   ID：11  城市：上海  QQ：3002789054
摘　要:如何用代码修改Access数据库的密码？
正　文:

记住，修改密码请使用独占打开的方式

方法一：
 '要修改密码可以使用NewPassword方法:
Dim Db As DAO.Database
SetDb = OpenDatabase("C:\MyDocuments\MyDB.mdb", True, _
    False, ";pwd=MyPassword1")
Db.NewPassword "MyPassword1", "MyPassword2"
Db.Close 

方法二：
 '也可以使用CompactDatabase方法:
DBEngine.CompactDatabase "C:\MyDocuments\Test.mdb", _
    "C:\MyDocuments\TestII.MDB", dbLangGeneral & ";pwd=MyNewPWD", _
    dbVersion30, ";pwd=MyPassword1" 

方法三：
 '在ADO下执行，且必须独占打开MDB文件
dim conn
Set conn = CreateObject("adodb.connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\TEMP\test.mdb;Mode=Share Deny Read|Share Deny Write[s:12]ersist Security Info=False;Jet OLEDB[s:6]atabase [s:12]assword=老密码"
conn.Open
conn.Execute "Alter DATABASE [s:12]ASSWORD 新密码 老密码  "
conn.Close
'取消密码
conn.Execute "Alter DATABASE [s:12]ASSWORD [] 老密码 "

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店