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 常數用於最佳化資料檢索。