批量写入mysql云数据库失败

gdw831001

1. 
   

复制代码

老师 帮忙看下mysql写入数据，用下面代码执行提示错误，如果不用循环单独运行sql语句可以把数据写入mysql阿里云数据库

1. conn.Execute "START TRANSACTION;"
   
2. 
   
3. strBatchSQL = ""
   
4. 
   
5. For kk = 1 To 8
   
6.     maxValue = maxValue + 1
   
7.     strBatchSQL = strBatchSQL & "INSERT INTO  txtgdw   VALUES ('" & maxValue & "','45475','kkk1','1525'); " & vbCrLf
   
8. Next kk
   
9. ' 执行批处理SQL
   
10. 
    
11. conn.Execute strBatchSQL
    
12. 
    
13. ' 提交事务
    
14. conn.Execute "COMMIT;"

复制代码

桑特容易额

INSERT INTO userform_setting (`userform`,`button`,`value`)
VALUES('employeefiles','sr1','$NULL$'),
           ('employeefiles','sr2','$NULL$'),
           ('employeefiles','sr3','$NULL$')
批量上传语法是这样的，你这个语句问题点在于那个分号“;”

桑特容易额

桑特容易额 发表于 2024-7-17 10:52
INSERT INTO userform_setting (`userform`,`button`,`value`)
VALUES('employeefiles','sr1','$NULL$'), ...

你可以把我示例的  ('employeefiles','sr2','$NULL$')  这一句存入到字典d,
例如 d(kk)=" ('employeefiles','sr2','$NULL$')",其余的VALUES类似，
最后只需要执行
conn.Execute "INSERT INTO  txtgdw   VALUES” &  Join(d.Items, ",")

opiona

ADO将百万行Excel数据快速上传到MSSQL或MySQL数据库中 仅需几十秒

https://club.excelhome.net/thread-1666858-1-1.html

gdw831001

桑特容易额 发表于 2024-7-17 10:52
INSERT INTO userform_setting (`userform`,`button`,`value`)
VALUES('employeefiles','sr1','$NULL$'), ...

确实是最后分号出问题了，谢谢老师