2

我正在使用 Excel 2010 VBA 通过 ODBC 连接到 SQL Server R2 Express 从 MS Access 2010 检索数据，在我以前的机器上没有问题（32 位平台），但是当我得到新机器时，它总是说“ODBC 连接到（odbc名称）失败 -2147467259”。

从 Access 2010 到 SQL 没有问题，但是当我从 Excel 检索数据时总是会触发此错误。

我检查了用户（DBO）的权限，同一台机器上的所有应用程序，所有服务都打开，ODBC 设置正确。在脚本执行期间一切正常，除非该行正在打开表。

Function RetrieveProjectList()
Dim strConn As String
Dim conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim intColCount As Integer
Dim strName As String
Dim strSQL As String

On Error GoTo Error_Trap
strName = ThisWorkbook.path & "\DBSource V0.1.accdb"
Set conn = New ADODB.Connection
strConn = "Provider=microsoft.ACE.oledb.12.0;"
strConn = strConn & "Data Source=" & strName & ";"
conn.Open ConnectionString:=strConn
Set rec = New ADODB.Recordset
strSQL = "SELECT qryProjectList.* " & _
    "FROM qryProjectList ORDER BY tblArea.AreaName,tblProject.ProjectName;"

rec.Open strSQL, conn, adOpenDynamic, adLockOptimistic
'Retrieve data from Access
rec.MoveFirst
If rec.Fields.count <> 0 Then

在语法“rec.open ....”之后弹出错误。在其他机器上都可以。

问题：

这与操作系统版本 64 位有关吗？我在这里错过了什么？任何建议将不胜感激。

谢谢，海豹

4

0 回答 0