帮忙看看数据写入mysql的问题

jin1379 · 发表于 2022-12-15 12:16

本帖最后由 jin1379 于 2022-12-15 12:18 编辑

附件的代码是能正常写入数据到mysql的，问题是每一条去写入太慢了，7万行写入差不多要半小时左右，请问各位大神还有没有更好的方法？谢谢！

每写入一条数据差不多要1秒

Sub order()
Dim strConn As String, strSQL As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
arr = Range("a2:e" & Range("a1").End(xlDown).Row)
For i = 3 To UBound(arr)
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
strConn = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=172.20.63.136;DB=jsw;UID=root;PWD=123456;OPTION=3;"
strSQL = "insert into supplier_inventory_record value('" & arr(i, 4) & "','" & arr(i, 1) & "','" & arr(i, 2) & "','" & arr(i, 3) & "' ,'" & arr(i, 5) & "','" & Format(Now, "yyyy-mm-dd hh:mm:ss") & "'); "
conn.Open strConn
rs.Open strSQL, conn
Set rs = Nothing
conn.Close
Set conn = Nothing
Next
End Sub

复制代码

zpy2 · 发表于 2022-12-15 15:38

数据量大建议用 load data 命令行导入。

opiona · 发表于 2022-12-17 17:06

本帖最后由 opiona 于 2022-12-17 17:08 编辑

可以试试插件
https://club.excelhome.net/forum ... page=44#pid11040772

QQ截图20221217170558.png

jin1379 · 发表于 2022-12-19 12:20

opiona 发表于 2022-12-17 17:06
可以试试插件
https://club.excelhome.net/forum ... page=44#pid11040772

能给个代码吗，我是繁体系统，打开全部乱码，找不到能打开的简体系统。

opiona · 发表于 2022-12-19 19:05

本帖最后由 opiona 于 2022-12-19 19:09 编辑

jin1379 发表于 2022-12-19 12:20
能给个代码吗，我是繁体系统，打开全部乱码，找不到能打开的简体系统。

代码太多无法一一截图只支持简体

opiona · 发表于 2022-12-20 12:53

忘了说明 VBA代码是只有简体
当时DLL支持所有系统的, 虽然里面也有简体中文

		自动登录	找回密码
密码			免费注册

[求助] 帮忙看看数据写入mysql的问题