Adodc控件，用Microsoft.Jet.OLEDB.4.0连接ACCESS数据库，ACCESS数据库不能有密码？Adodc的BUG？

Question

在设置ADODC控件的ConnectionString属性时（数据链接属性）时，如果ACCESS数据库选择空白密码，则“测试连接”成功。
但如果是一个有密码保护的ACCESS数据库，则在密码输入完全正确的情况下，点“测试连接”时提示下列错误：
---------------------------
Microsoft 数据链接错误
---------------------------
测试连接失败，因为初始化提供程序时发生错误。无法启动应用程序。工作组信息文件丢失，或是已被其它用户以独占方式打开。

Answer 1

我试过是不行，你用odbc吧，不要用字符串连接，就就可以

Answer 2

我试的没有错误：    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test1.mdb;Jet OLEDB:DataBase password=12345;"    Adodc1.RecordSource = "select * from table1 "
    Set DataGrid1.DataSource = Adodc1

Answer 3

如果你用了上面的代码还是不行的话，建议使用ADOADO例子（“工程”/“引用”/Microsoft ActiveX Data Object 2.X Library）：Private Sub Command1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test1.mdb;Jet OLEDB:DataBase password=12345;"
    rs.CursorLocation = adUseClient
    rs.Open "select * from table1 "
    Set DataGrid1.DataSource = rs
End Sub

Answer 4

顺便问一下如何用vb更改了access数据库原来的密码？
为了使数据库更安全就得隔一段时间改一下connectionstring中访问密码，但是理想一点的就是同时的相应改写access的密码
呵呵，希望高手指点一下

Answer 5

"连接串加上这段就可以了啊
"Jet OLEDB:DataBase password=123;"

Answer 6

如果用的是ADODC控件的话，不是在“连接”页的用户密码填密码，而是在“所有”页的password项填密码的。