一个关于加密ACCESS连接ADO控件的问题！

Question

用独占式方式打开一个数据库，在“工具”里面的“安全”设置密码
然后在VB里面用ADO控件和它相连，结果提示“正被其他程序用独占方式打开”
各位大侠告诉我该怎么做啊？

Answer 1

db.opendatabase("xxx.mdb",ture,"hello",adOpenKeyset, adLockPessimistic)

Answer 2

1。先确认你退出ACCESS了
2。设置连接的 Jet OLEDB:Database Password=你的密码参考
http://www.connectionstrings.com/http://www.microsoft.com/technet/prodtechnol/office/office2000/proddocs/opg/part4/ch18.mspx

Answer 3

用独占式方式打开一个数据库，在“工具”里面的“安全”设置密码-----------------------------------------------------------
先关了Access吧

Answer 4

资料：
ADO:db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=Share Deny Read|Share Deny Write;Jet OLEDB:Database Password=1234;"db.Execute "Alter Database password  aa 1234"
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
因为只能以独占方式打开access,才能修改密码
加一句：
Mode=Share Deny Read|Share Deny Write;

Answer 5

用ADO控件的"测试连接"生成connectionstring，里面自动添加密码设置，直接粘贴过来就可以用

Answer 6

leon1017(我心飞翔)大哥，你能说得具体点吗？谢谢！而且我是点测试连接就出错，说是该独占程序被其他用户使用！

Answer 7

首先你要确认你是不是已经把Access设置密码了，你打开Access是否提示输入密码，如果能看看输入密码后能不能打开数据库以上都可以了，那才是你能不能链接数据库的问题Public Function ConnectString() As String
'returns a DB ConnectString
    ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\testdb.mdb;" & "Jet OLEDB:Database password=pass"
End Function

Answer 8

我也遇到过相同的错误，试了好多办法也没有解决，可能是小BUG吧！但你只要在vb中连接数据库时如下写代码就可以了。
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
app.Path & "数据库文件名.mdb & ";Persist Security Info=False;Jet OLEDB:Database Password=你的密码" 

Answer 9

ado控件－＞属性->使用字符串联接－＞所有选项卡－＞双击password

Answer 10

Module1.ss = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False;Jet OLEDB:Database Password=密码"
  'Module1 中“ss”是定义为string ，是用来连接数据库,也是为了方便别的地方调用这个数据库，只要在你需要用的任何一个Form窗体中用一下格式就可以打开该数据库中任何一张表。
  conn.Open Module1.ss
  rs1.Open "select * from Admins", conn, adOpenKeyset, adLockPessimistic