Question

我正在尝试连接到加密访问2013 accdb文件，该文件正在通过excel文件中的adodb vba过程使用旧版加密。

该过程在cn.open失败，我正在使用Office 64位，错误消息：“它不是有效的密码”。此问题的特殊性是，密码正确，我可以通过Microsoft查询很好地连接到Access DB，并且可以使用下面的代码连接到另一个Access DB。但是，当我尝试在Excel上使用它时，此错误就会出现，请注意，我已经在access和excel上启用了相同的引用 VBA编辑器。

我的问题是，我如何通过excel从受密码保护的访问文件中提取数据，输入密码后尝试的每种方法都会失败。

VBA程序

Sub LDBViewer2010()
'Reference Microsoft ActiveX Data Objects for this code to work

Dim cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Const conDatabase As String = "E:\1.accdb"

    ' Open connection to Access backend
   cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & conDatabase & ";Persist Security Info=False;Jet OLEDB:Database Password='asd123';"

    ' Open recordset
   Set Rs = cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

    'Output the field list
   Debug.Print Rs.Fields(0).Name, "|", Rs.Fields(1).Name, "|", Rs.Fields(2).Name, "|", Rs.Fields(3).Name

    'Loop through users recordset of users in database.
   While Not Rs.EOF
        Debug.Print Trim(Rs.Fields(0)), "|", Trim(Rs.Fields(1)), "|", Trim(Rs.Fields(2)), "|", Trim(Rs.Fields(3))
        Rs.MoveNext
    Wend

    ' Close
   If Rs.State <> adStateClosed Then Rs.Close
    Set Rs = Nothing
    Set cn = Nothing

End Sub

非常感谢您的时间和帮助。

-编辑1-

在Access中使用debug.print CurrentProject.Connection.ConnectionString：

Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=E:1.accdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database=C:\Users\User\AppData\Roaming\Microsoft\Access\System.mdw;Jet OLEDB:Registry Path=Software\Microsoft\Office\15.0\Access\Access Connectivity Engine;Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=True;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False

Answer 1

解决了它创建新的访问文件并进行进一步测试的问题。这是我发现的。

尽管我使用遗传加密创建了数据库，但是无论哪种方法，密码始终会失败。我尝试使用相同的密码进行解密和重新加密，现在excel连接就很好了。

请注意，只有excel才有连接问题，我可以毫不费力地从另一个Access DB进行连接。

感谢您的想法和贡献，它们帮助我获得了正确的答案。

与受保护的访问accdb文件的连接抛出“错误密码”

1 个答案: