<<< 返回 access911.net 编程静态资料库索引页 如何在VBA或者JET SQL下编程更改ACCESS MDB 数据库口令(密码)？ 作者： 摘自： 录入：cg1 时间：2002-11-19 浏览人次：872
专题地址：http://www.access911.net/index.asp?u1=a&u2=77FA 如果需要更详细的评论或说明，请点击该地址。 简述：如何在VBA或者JET SQL下编程更改ACCESS MDB 数据库口令(密码)？《其他》
记住，修改密码请使用独占打开的方式
方法一：
| '要修改密码可以使用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=.....................
........... |
|
