请问VBA连接有密码的accdb始终报错

qsxz

小弟初学VBA，连接有密码的accdb始终报错，取消密码就可以连接，但同样代码却可以连接有密码的mdb，整了一天都找到原因，请大师哥哥们指导下
两个数据库密码都是 106


Sub ConnectToPasswordProtectedAccessDatabase()
    Dim conn As Object, connectionString As String, databasePath As String, databasePassword As String
    ' 创建一个新的ADO连接对象
    Set conn = CreateObject("ADODB.Connection")
    ' 数据库文件路径
    databasePath = ThisWorkbook.Path & "\JXC.mdb"
    databasePath = ThisWorkbook.Path & "\JXC.accdb"
    ' 数据库密码
    databasePassword = "106"
    ' 连接字符串包括数据库路径和密码
    connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & databasePath & ";Jet OLEDB:Database Password=" & databasePassword
     ' 打开连接
    conn.Open connectionString
    ' 连接成功后的操作
    MsgBox "数据库连接成功！", vbInformation
    ' 关闭连接
    conn.Close
    Set conn = Nothing
End Sub

qsxz

难道是accdb数据库属性有问题？

quqiyuan

M365的正常。。。你的excel版本是什么

nie414006

autohotey

我的2021版EXCEL正常，路径和密码都正确，建议检查下第三点

qsxz

quqiyuan 发表于 2024-12-24 12:02
M365的正常。。。你的excel版本是什么

我的版本是2013，数据库是从mdb另存为accdb，然后加密106的，去掉密码就可连接，但是加上密码就不能连接accdb，
但是同样的代码，连接有密码的mdb是可以连上的。密码都是106，
谢谢

qsxz

nie414006 发表于 2024-12-24 13:28

大哥，你用的我的示例文件及数据库吗？我的怎么都连不上

qsxz

autohotey 发表于 2024-12-24 14:30
我的2021版EXCEL正常，路径和密码都正确，建议检查下第三点

谢谢回复，我用同样代码（注释掉这行databasePath = ThisWorkbook.Path & "\JXC.accdb"），连接有密码的示例文件中的mdb文件，就可以连上，我理解ole db驱动应该是有的。
另外请问怎么检查该驱动是否安装？

qsxz

autohotey 发表于 2024-12-24 14:30
我的2021版EXCEL正常，路径和密码都正确，建议检查下第三点

中途有个插曲，我在家电脑上，win8+excel2013,连jxc.mdb始终都连不上，然后我远程把单位的这段字符串“D:\JXC\JXC.mdb”复制到家里的代码上，就连上了，但是之前我反复看了mdb路径字符串，是没错的，因为该字符串很短，不容易错的。

quqiyuan

qsxz 发表于 2024-12-24 15:24
我的版本是2013，数据库是从mdb另存为accdb，然后加密106的，去掉密码就可连接，但是加上密码就不能连接a ...

按照常理来说，2013应该是可以的，跟365没什么区别，我下载你的文件在同一个文件夹，运行excel文件，没有问题的。你看还有哪里的可能咯。