VBA如何在Excel中连接到MySQL数据库？

使用VBA连接到MySQL数据库

尝试连接使用 VBA 在 Excel 中访问 MySQL 数据库有时可能具有挑战性。在您的情况下，您在尝试建立连接时遇到错误。

要使用 VBA 成功连接到 MySQL 数据库，请按照下列步骤操作：

Sub ConnectDB()
    Dim oConn As ADODB.Connection

    Set oConn = New ADODB.Connection

    Dim str As String
    str = "DRIVER={MySQL ODBC 5.2.2 Driver};" & _
                                            "SERVER=sql100.xtreemhost.com;" & _
                                            "PORT=3306" & _
                                            "DATABASE=xth_9595110_MyNotes;" & _
                                            "UID=xth_9595110;" & _
                                            "PWD=myPassword;" & _
                                            "Option=3"

    ' Open the connection
    oConn.Open str
End Sub

从数据库中获取数据

建立连接后，您可以使用 ADODB.Recordset 对象从数据库中检索数据。方法如下：

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

' Execute a query
sql = "SELECT * FROM ComputingNotesTable"
rs.Open sql, oConn, adOpenDynamic, adLockOptimistic

' Retrieve the data
Do Until rs.EOF
    Range("A1").Select
    ActiveCell = rs.Fields("Headings")
    rs.MoveNext
Loop

' Clean up
rs.Close
oConn.Close
Set oConn = Nothing
Set rs = Nothing

与 PHP 的比较

您提到您能够使用 PHP 成功连接到 MySQL。在 PHP 中，您使用了 mysql_connect 函数。然而，在VBA中，我们使用ADODB.Connection对象来建立连接。

mysql_connect函数是一个原生PHP函数，直接与MySQL扩展交互。另一方面，ADODB.Connection是一个ActiveX对象，它提供了一种更通用的方式来连接到各种数据库，包括MySQL。

附加说明

• 确保已安装 MySQL ODBC 连接器。
• 连接字符串中的 Option=3 确保字符串以分号终止。
• adOpenDynamic 和 adLockOptimistic 常量用于优化数据检索。