有谁知道如何用VB打开带密码的ACCESS数据库文件（已知密码)???

[richiez]

有谁知道如何用VB打开带密码的ACCESS数据库文件（已知密码)???

[richiez]

！！！我是过了程序如下：
dim aaa
aaa=opendatabase("c:\abcdef.mdb", , , ";pwd=123")
但是出现提示说密码错。(密码绝对正确）
请问能用VB 的 Data 控件打开带密码的数据库吗？
先谢了。

[Un1]

aaa=opendatabase("c:\abcdef.mdb", , , ";pwd='123'") 行不行？

[Janven]

If Right(App.Path, 1) = "\" Then
gsDatabase = App.Path + "YourDb.mdb"
Else
gsDatabase = App.Path + "\YourDb.mdb"
End If
gsConnect = "ms access;pwd=YourPassWord"
Set WorkDefault = DBEngine.Workspaces(0)
Set Dbs = DBEngine.Workspaces(0).OpenDatabase(gsDatabase, False, False, gsConnect)

按我的方法试吧，倒不一定非用DBEngine，主要是gsConnect 的格式。

[Calf]

Dim cnDB As New ADODB.Connection
Dim ConnString As String

ConnString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=dbfile"
cnDB.ConnectionString = ConnString
cnDB.Properties("Jet OLEDB:Database Password") = "password"
cnDB.Open

[solomon]

opendatabase("dbfile", , , ";pwd=yourpassword")

[008]

同意

[dongdong]

如果用ADODC，可以这样在Adodc1.ConnectionString的属性中，再加入PWD=YOURPASSWORD一项也可以实现，（注意其他项不能省）