使用 VBA 代码从 excel 连接到 MySQL 服务器答案

【问题标题】：Connecting to MySQL server from excel with VBA code使用 VBA 代码从 excel 连接到 MySQL 服务器
【发布时间】：2020-05-20 07:55:33
【问题描述】：

我在旧计算机上运行 MySQL 服务器并尝试从当前计算机连接它。我想从 Excel 访问服务器，但我不断收到错误消息：

'[Microsoft] [ODBC Driver Manager] 未找到数据源名称且未指定默认驱动程序'

我已经下载了一个“MySQL 连接器 ODBC 8.0.20 win 32”，它应该符合我的计算机要求。在这一点上，我很不知道为什么我不断收到错误。请在下面找到我的 VBA 代码。

Private Sub Data_to_SQL_Click()

Dim con As ADODB.Connection
Set con = New ADODB.Connection

Dim strConn As String

strConn = "Driver={MySQL ODCB 8.0 Unicode Driver};SERVER=(my old computer ip address);DATABASE=Database;USER=root;PASSWORD=(password)"

con.Open strConn

Dim rng As Range
Set rng = Application.Range("A2:E14")
Dim row As Range
For Each row In rng.Rowss
    Dim Sql As String
    Sql = "insert into kavijamaarat (pvm, ravintola, ruoka, hinta, kpl) values ('" & row.Cells(1).Value & "', '" & row.Cells(2).Value & "', '" & row.Cells(3).Value & "', '" & row.Cells(4).Value & "', '" & row.Cells(5).Value & "')"
    con.Execute Sql
Next row

con.Close

MsgBox "Done"

结束子

【问题讨论】：

ODBC，不是 ODCB。
'对于 rng.Rowss 中的每一行' ??应该是 rng.rows (single s)

标签： mysql excel vba odbc driver

【解决方案1】：

重写

strConn = "Driver={MySQL ODCB 8.0 Unicode Driver};SERVER=(my old computer ip address);DATABASE=Database;USER=root;PASSWORD=(password)"

到

strConn = "Driver={MySQL ODBC 8.0 Unicode Driver};SERVER=(my old computer ip address);DATABASE=Database;USER=root;PASSWORD=(password)"

【讨论】：