[ado]用[ insert into .. select * from]一次性将工作表多行数据写入mysql

语虚何以言知

excel做前台，access做后台在excel中ado使用下面sql语句可以一次性将工作表data中多行内容写入access表test
Sql = "insert into test select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[data$]"



因各种原因，现在后台数据库改为mysql
mysql环境配置都可以，odbc驱动已装，excel连接mysql可以正常操作

使用类似语句就报错
Sql = "insert into test select * from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[data$]"



左边是excel的data表，右边mysql的test表

zpy2

只有access支持这种语法，MySQL不支持，所以只有循环写入。

语虚何以言知

zpy2 发表于 2018-11-23 07:54
只有access支持这种语法，MySQL不支持，所以只有循环写入。

mysql 支持这种写法

Sql = "insert into test select * sss"

这样就ok，sss是mysql里面与test同个库下的表


只是sss改为excel就报错

语虚何以言知

已解决，用的是mysql的laod data infile ，速度快的飞起
1、将xlsx文件循环转为utf8的csv文件
2、ado连接mysql 使用load data infile上传

gdw831001

zpy2 发表于 2018-11-23 07:54
只有access支持这种语法，MySQL不支持，所以只有循环写入。

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

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;"

复制代码

zpy2

gdw831001 发表于 2024-7-16 17:06
老师 帮忙看下mysql写入数据，用下面代码执行提示错误，如果不用循环单独运行sql语句可以把数据写入云数 ...

mysql我记得事务提交需要在服务器写存储过程。

insert into table values (v11,v12),(v21,v22)

可以试试这种逗号分割符用一行sql写入多行数据