VBA如何打开带密码的数据库

hobo　发表于：2014-06-25 18:05:16 　

各位：请教一个问题，我在用ACCESS VBA时，如何打开另外一个专用于存放数据且有密码保护的access 数据库？我用open打开时，那么我在打开窗体执行VBA 代码查询语句时，数据不会更新，但如果我取消“专用存放数据”ACCESS数据库的密码时，执行窗体VBA代码就能自动更新数据。因此，我怀疑打开外部数据库的语句有问题，请各位赐教源代码。

例如：我在一个名为：“程序.accdb”的access中存放有VBA代码，同时在另一个名为：“数据.accdb”的access中存放数据且设置密码为：Db201377559，那么我用下列语句打开时，在“程序.accdb”执行查询语句时，数据不会更新；但如果我把“数据.accdb”的密码取消，同样执行语句，数据就可以更新。

敬请高手指教！谢谢！

TW_path = CurrentProject.Path & "\CSDB\数据.accdb"

Set Cnn = New ADODB.Connection
Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TW_path & ";jet oledb:database password= Db201377559;Persist Security Info=False;"

Top

cspa 发表于：2014-06-25 22:13:55

改为：

Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TW_path & ";jet oledb:database password= 'Db201377559';Persist Security Info=False;"

试试

Top

hobo 发表于：2014-06-26 10:22:13

这种方式还是不行，这应该不是密码的问题。谢谢！敬请各位指教！

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

VBA如何打开带密码的数据库