Excel 64 位中的 ODBC 连接失败错误

Question

我在 ms-access 中有一个链接表，它链接到一个 sql server 表，当我尝试通过 VBA 从 ms-access 链接表中获取 excel 中的数据时，显示错误消息“ODBC 连接失败”。

注意：- 我在 ms-access 中手动成功刷新了 ms-access 链接表，“peoplemain”是链接表的名称。

注意：- 当我尝试从非链接表中获取数据时，它运行成功。

以下代码适用于 Excel-32 位版本，但不适用于 excel-64 位版本。

[代码]

Sub FetchData()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim conn As String

conn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\Workflow Tools (Michael Cantor)\Tool For Fixing Bug From Michael Cantor\PI MDT Reconciliation Workflow Tool\SampleforPractice.accdb;"


Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open conn

rs.Open "Select * from peoplemain", cn  'Error Line



Sheet1.Range("A1").CopyFromRecordset rs


rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

谢谢

卡西夫

Answer 1

我会尝试将strSQL 设置为这样的字符串（我遇到了与您相同的问题，当我进行更改时它对我有用）：

Sub FetchData()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim conn As String, strSQL AS String

conn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\Workflow Tools (Michael Cantor)\Tool For Fixing Bug From Michael Cantor\PI MDT Reconciliation Workflow Tool\SampleforPractice.accdb;"

strSQL = "Select * from peoplemain"


Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open conn

rs.Open strSQL , cn  'Error Line



Sheet1.Range("A1").CopyFromRecordset rs


rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub