<<< 返回 access911.net 编程静态资料库索引页

如何在VBA或者JET SQL下编程更改ACCESS MDB 数据库口令(密码)?

 

作者:  摘自:  录入:cg1  时间:2002-11-19  浏览人次:1983


专题地址:http://access911.net/fixhtm/77FA.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何在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=.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/77FA.htm

 


上一篇:如何在数据库打开时压缩数据库(2)?

下一篇:如何用VBA打开控制面板中的选项?

2017年2月22日生成静态资料