ado批量执行sql mysql

Dim conn
Dim cmd
Dim rs

' 创建连接对象
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=MSDASQL;Driver={MySQL ODBC 8.0 Unicode Driver};Server=your_server;Database=your_database;Uid=your_username;Pwd=your_password;"

' 创建命令对象
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText

' 构建批量插入的SQL语句
Dim sql
sql = "INSERT INTO your_table (column1, column2) VALUES "
sql = sql & "(?, ?), ( ?, ?), ( ?, ?)" ' 假设插入三条记录

cmd.CommandText = sql

' 添加参数
cmd.Parameters.Append cmd.CreateParameter("@p1", adVarChar, adParamInput, 255, "value1")
cmd.Parameters.Append cmd.CreateParameter("@p2", adVarChar, adParamInput, 255, "value2")
cmd.Parameters.Append cmd.CreateParameter("@p3", adVarChar, adParamInput, 255, "value3")
cmd.Parameters.Append cmd.CreateParameter("@p4", adVarChar, adParamInput, 255, "value4")
cmd.Parameters.Append cmd.CreateParameter("@p5", adVarChar, adParamInput, 255, "value5")
cmd.Parameters.Append cmd.CreateParameter("@p6", adVarChar, adParamInput, 255, "value6")

' 执行批量插入
cmd.Execute

' 关闭连接
conn.Close
Set conn = Nothing
Set cmd = Nothing