Excel 连接到 MySQL 运行时错误 -2147467259 (80004005)

Question

我这里有这段代码：

Sub Example()
    Dim Conn As New Connection

    Conn.ConnectionString = "Server=localhost;Port=3306;Database=testing;Uid=root;Pwd=test;"
    Conn.Open

    Dim rs As New Recordset
    Dim sql As String
    sql = "Select productcode from labels"   'put spec of desired table here
    rs.Open sql, Conn
    If Not rs.EOF Then
        Range("a1").CopyFromRecordset rs
    End If
    rs.Close
    Set rs = Nothing
    Conn.Close
    Set Conn = Nothing
End Sub

并得到这个错误代码：

run-time error -2147467259 (80004005)

我该如何解决这个问题？我想做的是：

在不使用插件的情况下将数据从 MYSQL 导出到 excel。

Answer 1

我需要使用有效的服务器、数据库、用户 ID 和密码更新 ConnectionString，因为我使用的是 SQL 服务器。

现在，如果我在sql = "Select productcode from labels" 行暂停您的代码并运行它，代码将失败，突出显示ConnectionString 行并返回以下错误消息：

根据错误消息，我需要指定默认驱动程序以使代码正常运行。就我而言，它看起来像这样：

Conn.ConnectionString = "Driver={SQL Server};Server=...

当您使用 MySQL 时，我建议您尝试以下方法之一（检查 ODBC 版本）：

Driver={MySQL ODBC 5.2 UNICODE Driver};

Driver={MySQL ODBC 5.2 ANSI Driver};