在Excel中連接到MySQL數據庫

Question

因此，我必須在實習時編寫一段代碼，以將某些excel工作表與MySQL數據庫鏈接並保持它們的更新，到目前為止，我已經有了這個，但它總是給我帶來錯誤。 你看到任何錯誤嗎？ 謝謝閱讀。

我得到的錯誤是：運行時錯誤-2147217900自動化錯誤。

PS：我是VBA的新手

Dim server_name As String
Dim database_name As String
Dim user As String
Dim Password As String
Dim rs As adodb.Recordset
Dim naam As String
Dim oConn As adodb.Connection


Public Sub getSerieNummer()

Dim result As String
Dim b As Long
Dim strSQL As String

naam = Range("C1").Value

server_name = "servername"
database_name = "dbname"
user_id = "idname"
Password = "password"

Set oConn = New adodb.Connection
oConn.Open "SERVER=" & server_name _
& ";PORT=3306" _
& ";DATABASE=" & database_name _
& ";UID=" & user_id _
& ";PWD=" & Password & _
";DSN=name_in_odbc;"

strSQL = "SELECT [serial_number] FROM view_aix WHERE [name] ='" & naam & "';"
Set rs = oConn.Execute(strSQL)

b = 0
With rs
    Do Until .EOF
    b = b + 1
    result = !serial_number
    rs.MoveNext
    Loop
End With
    oConn.Close
    rs.Close
Set rs.ActiveConnection = Nothing
Set oConn = Nothing
Range("C2").Value = result

End Sub

Answer 1

MySQL不支持“ [”，而是使用“`”。

也許是您的連接字符串出了問題。

ODBC連接樣式

Driver={mySQL};Server=localhost;Option=16834;Database=myDataBase;

OLEDB連接樣式

Provider=MySQLProv;Data Source=mydb;User Id=myUsername;Password=myPassword;