批量写入数据库SQL拼接方法

李泽勇2

一条一条的写入数据库太慢了，何不一次写1000条呢？
分享我平时用的拼接子程序，有更好的写法欢迎评论。

  

子程序名	返回值类型	公开	备 注
SQL拼接插入方法			快速拼接，可以识别行数,主要用于SQL快速批量插入
参数名	类 型	参考	可空	数组	备 注
文本数据	文本型
总数量	整数型
拼接行数	整数型				最小1 最大1000 SQL插入语句拼接最大行数不能超过1000行。

变量名	类 型	静态	数组	备 注
原数据	文本型
替换后	文本型
位置	整数型
结果	文本型		0
sql语句	文本型
替换中	文本型

如果真 (取反 (拼接行数 ≤ 0 或 拼接行数 ＞ 1000))  ' 判断拼接行数不能等于和小于0且不能大于1000
如果真 (拼接行数 ≤ 总数量)  ' 拼接行数不要大于总数量
拼接行数 ＝ 拼接行数 － 1  ' 用分号识别出现次数，从而计算出行数，这里从0开始
sql语句 ＝ “insert into jsb (工号,姓名,岗位,车间) VALUES ”
计次循环首 (总数量, )
原数据 ＝ 原数据 ＋ “(” ＋ 文本数据 ＋ “);”
替换中 ＝ 取文本左边 (原数据, 取文本长度 (原数据) － 1)
如果真 (文本_取出现次数 (替换中, “;”, 假) ＝ 拼接行数)  ' SQL插入语句拼接最大行数不能超过1000行。
替换后 ＝ 子文本替换 (替换中, “;”, “,”, , , 假)
连续赋值 (“”, 原数据, 替换中)

计次循环尾 ()
如果真 (替换后 ≠ “”)
加入成员 (结果, 替换后)
计次循环首 (取数组成员数 (结果), 位置)
调试输出 (sql语句 ＋ 结果 [位置])
计次循环尾 ()
清除数组 (结果)
替换后 ＝ “”

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 SQL拼接插入方法, , , 快速拼接，可以识别行数,主要用于SQL快速批量插入<br /> .参数 文本数据, 文本型<br /> .参数 总数量, 整数型<br /> .参数 拼接行数, 整数型, , 最小1 最大1000 SQL插入语句拼接最大行数不能超过1000行。<br /> .局部变量 原数据, 文本型<br /> .局部变量 替换后, 文本型<br /> .局部变量 位置, 整数型<br /> .局部变量 结果, 文本型, , "0"<br /> .局部变量 sql语句, 文本型<br /> .局部变量 替换中, 文本型<br /> <br /> .如果真 (取反 (拼接行数 ≤ 0 或 拼接行数 ＞ 1000))  ' 判断拼接行数不能等于和小于0且不能大于1000<br />     .如果真 (拼接行数 ≤ 总数量)  ' 拼接行数不要大于总数量<br />         拼接行数 ＝ 拼接行数 － 1  ' 用分号识别出现次数，从而计算出行数，这里从0开始<br />         sql语句 ＝ “insert into jsb (工号,姓名,岗位,车间) VALUES ”<br />         .计次循环首 (总数量, )<br />             原数据 ＝ 原数据 ＋ “(” ＋ 文本数据 ＋ “);”<br />             替换中 ＝ 取文本左边 (原数据, 取文本长度 (原数据) － 1)<br />             .如果真 (文本_取出现次数 (替换中, “;”, 假) ＝ 拼接行数)  ' SQL插入语句拼接最大行数不能超过1000行。<br />                 替换后 ＝ 子文本替换 (替换中, “;”, “,”, , , 假)<br />                 连续赋值 (“”, 原数据, 替换中)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (替换后 ≠ “”)<br />             加入成员 (结果, 替换后)<br />             .计次循环首 (取数组成员数 (结果), 位置)<br />                 调试输出 (sql语句 ＋ 结果 [位置])<br />             .计次循环尾 ()<br />             清除数组 (结果)<br />             替换后 ＝ “”<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束

文本_取出现次数这个命令精易模块里面有。我就不贴出来了。

ouooyo

6666666666666666666666666

Akari

感谢分享

wuqingg

jz781127 发表于 2023-6-10 12:48
请问：执行SQL 这个命令是哪个支持库里面的？没找到这个命令

  

子程序名	返回值类型	公开	备 注
执行SQL	逻辑型
参数名	类 型	参考	可空	数组	备 注
SQL语句	文本型				本参数提供要执行的SQL语句。有关SQL语句的具体内容请参看SQL的专业手册。

RecordsAffected ＝ 0  ' 类私有成员，也可以理解为程序集变量，数据类型：整数型
Recordset.方法 (“Close”, )  ' 类私有成员，也可以理解为程序集变量，数据类型：对象
Recordset.清除 ()
Recordset ＝ Connection.对象型方法 (“Execute”, SQL语句, RecordsAffected)
返回 (Connection.取错误 () ＝ “”)  ' 类私有成员，也可以理解为程序集变量，数据类型：对象

.版本 2<br /> <br /> .子程序 执行SQL, 逻辑型, 公开<br /> .参数 SQL语句, 文本型, , 本参数提供要执行的SQL语句。有关SQL语句的具体内容请参看SQL的专业手册。<br /> <br /> RecordsAffected ＝ 0  ' 类私有成员，也可以理解为程序集变量，数据类型：整数型<br /> <br /> Recordset.方法 (“Close”, )  ' 类私有成员，也可以理解为程序集变量，数据类型：对象<br /> Recordset.清除 ()<br /> <br /> Recordset ＝ Connection.对象型方法 (“Execute”, SQL语句, RecordsAffected)<br /> <br /> 返回 (Connection.取错误 () ＝ “”)  ' 类私有成员，也可以理解为程序集变量，数据类型：对象

够清楚了吧

jz781127

wuqingg 发表于 2023-3-3 18:39
你的思路很好，其实还可以这样，这样也是秒执行

请问：执行SQL 这个命令是哪个支持库里面的？没找到这个命令

无极

        感谢分享，很给力！~

wgqxj

谢谢分享

一指温柔

感谢分享

zhaode2888

感谢分享

396384183

感谢分享 支持开源 ！