如何使用DAO打开一个带有密码的ACCESS数据库。

[hz_feng]

引用DAO3.60后。
===
Dim ws As Workspace
Dim db1 As Database
Set ws = dao.DBEngine.Workspaces(0)

Set db1 = ws.OpenDatabase("C:\db.mdb", , False, "PWD=a;")

密码明明正确，却总告诉我：“实时错误3031，密码无效”

[myhgyp]

建议改成用ADO吧
AdoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\localdb.mdb;" & "Persist Security Info=False;Jet OLEDB:Database Password=" & mdbtmp

[hz_feng]

leizhengyu的我试过了，不好用。
myhgyp的方法可以，不过会产生另一个问题：如何将使用ADO新建和压缩一个ACCESS数据库。

使用DAO新建（不使用拷贝）和压缩一个和原ACCESS数据库文件结构相同的数据库文件非常简单。ADO确
有些困难。

[leizhengyu]

Set db1 = ws.OpenDatabase("C:\db.mdb", , False, ";PWD=a")

分号在pwd的前面

[niefuhua]

up

[hhjjhjhj]

好象是
Set db1 = ws.OpenDatabase("C:\db.mdb", , False, "ms access;PWD=a")