mysql - Excel VBA : trying to write a table in MySQL Database

Question

我正在尝试将一个表写入 MySQL 数据库，我搜索了很多示例，但 id 不起作用，我不知道为什么。

我的代码:

    Private Sub abfrage()

Dim xlsstring As String
Dim xlsrecordsetarray
Dim xlsadodbconnection As New ADODB.Connection
Dim xlsrecordset As New ADODB.Recordset
Dim xlssource As String
Dim xlsconnect As String

Dim sqlstring As String
Dim sqlrecordsetarray
Dim sqladodbconnection As New ADODB.Connection
Dim sqlrecordset As New ADODB.Recordset
Dim sqlsource As String
Dim sqlconnect As String

xlssource = ThisWorkbook.FullName
'xlssource ="C:\mappe1.xls"

'SQL Verbindung für Exceldatei als Quelle
xlsconnect = "PROVIDER=MSDASQL.1;" & _
            "DSN=Excel Files;" & _
            "DBQ=" & xlssource & ";" & _
            "HDR=Yes;"


sqlconnect = "DRIVER={MySQL ODBC 5.3 Driver};" & _
            "DATA SOURCE=MySQL ODBC;" & _
            "SERVER=localhost;" & _
            "PORT=3306;" & _
            "UID=root;" & _
            "PWD=root;" & _
            "DATABASE=test;"

xlsadodbconnection.Open xlsconnect
sqladodbconnection.Open sqlconnect

sqlstring = "INSERT INTO test (ID, text) SELECT id, text FROM [Tabelle1$]"
sqlrecordset.Open sqlstring, sqladodbconnection

xlsrecordset.Close
xlsadodbconnection.Close
sqladodbconnection.Close

End Sub

它向我显示了错误:

[MySQL[ODBC 5.3(w) 驱动程序][mysqld-5.6.16]您的 SQL 语法有错误；检查与您的 MySQL 服务器版本相对应的手册，了解在第 1 行“[Tabelle1$]”附近使用的正确语法

请问有人可以帮我吗？

谢谢

Answer 1

MySQL 中的表 [Tabelle1$] 的名称是什么？您是否添加“[”和“]”vba 样式？

如果是这样，请尝试删除它们并再次运行您的查询。

根据评论进行编辑:

将电子表格另存为 .CSV 并尝试使用“LOAD DATA INFILE LOCAL”命令将数据移至 MySQL 服务器上的临时表中。

http://www.experts-exchange.com/Programming/Languages/.NET/Visual_Basic.NET/Q_26714181.html