Excel 高速导入导出，用ADODB数据库方式，脱离Office和libxl插件

莫离

李泽勇2 发表于 2021-12-23 11:15

  

子程序名	返回值类型	公开	备 注
Excel导出_超级列表框_数据库	逻辑型		数据库模式，高速导出  内部已经添加事务处理，无需再次添加。
参数名	类 型	参考	可空	数组	备 注
超列_	超级列表框
文件名	文本型
工作表名	文本型				为空默认为：Sheet1
字段	文本型				多字段用逗号隔开，比如：字段,字段2,编号

变量名	类 型	静态	数组	备 注
数据库_	ADODB数据库类
sql语句	文本型
行数	整数型
成功	逻辑型
列数	整数型
内容	文本型
文本	文本型

判断 (数据库_.连接Excel_2007 (文件名))
数据库_.开始事务 ()
计次循环首 (超列_.取表项数 (), 行数)
计次循环首 (超列_.取列数 (), 列数)
内容 ＝ 内容 ＋ 超列_.取标题 (行数 － 1, 列数 － 1) ＋ “','”
计次循环尾 ()
文本 ＝ 文本_删右边 (内容, 3)  ' 删除右边多余的3个字符
如果真 (是否为空 (工作表名))
工作表名 ＝ “Sheet1”
sql语句 ＝ “insert into [” ＋ 工作表名 ＋ “$] (” ＋ 字段 ＋ “) values ('” ＋ 文本 ＋ “')”
成功 ＝ 数据库_.执行SQL2 (sql语句)  ' 这个地方执行的结果一直为假，但是在demo中执行却是为真
内容 ＝ “”  ' 每循环一行就要清空
如果真 (取反 (成功))
跳出循环 ()
系统_处理事件 ()
计次循环尾 ()
如果 (成功)
数据库_.保存事务 ()
数据库_.回滚事务 ()
数据库_.关闭 ()
返回 (成功)
返回 (假)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 Excel导出_超级列表框_数据库, 逻辑型, 公开, 数据库模式，高速导出  内部已经添加事务处理，无需再次添加。<br /> .参数 超列_, 超级列表框<br /> .参数 文件名, 文本型<br /> .参数 工作表名, 文本型, 可空, 为空默认为：Sheet1<br /> .参数 字段, 文本型, , 多字段用逗号隔开，比如：字段,字段2,编号<br /> .局部变量 数据库_, ADODB数据库类<br /> .局部变量 sql语句, 文本型<br /> .局部变量 行数, 整数型<br /> .局部变量 成功, 逻辑型<br /> .局部变量 列数, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> .判断开始 (数据库_.连接Excel_2007 (文件名))<br />     数据库_.开始事务 ()<br />     .计次循环首 (超列_.取表项数 (), 行数)<br />         .计次循环首 (超列_.取列数 (), 列数)<br />             内容 ＝ 内容 ＋ 超列_.取标题 (行数 － 1, 列数 － 1) ＋ “','”<br />         .计次循环尾 ()<br />         文本 ＝ 文本_删右边 (内容, 3)  ' 删除右边多余的3个字符<br />         .如果真 (是否为空 (工作表名))<br />             工作表名 ＝ “Sheet1”<br />         .如果真结束<br />         sql语句 ＝ “insert into [” ＋ 工作表名 ＋ “$] (” ＋ 字段 ＋ “) values ('” ＋ 文本 ＋ “')”<br />         成功 ＝ 数据库_.执行SQL2 (sql语句)  ' 这个地方执行的结果一直为假，但是在demo中执行却是为真<br />         内容 ＝ “”  ' 每循环一行就要清空<br />         .如果真 (取反 (成功))<br />             跳出循环 ()<br />         .如果真结束<br />         系统_处理事件 ()<br />     .计次循环尾 ()<br />     .如果 (成功)<br />         数据库_.保存事务 ()<br />     .否则<br />         数据库_.回滚事务 ()<br />     .如果结束<br />     数据库_.关闭 ()<br />     返回 (成功)<br /> .默认<br />     返回 (假)

成功 ＝ 数据库_.执行SQL2 (sql语句) ' 这个地方执行的结果一直为假，但是在demo中执行却是为真
我检查了sql语句是否正确，也没有什么问题，不知道为什么

李泽勇2

莫离 发表于 2021-12-23 10:49
我研究了一下，处理事件()确实可以解决假死的问题，但是效率并非很高，我尝试采用了线程的方式，把加入超 ...

给你一个这个，看看用不用的着 。

  

子程序名	返回值类型	公开	备 注
Excel导入_数组_数据库	逻辑型		数据库模式，高速导入保存到数组里 (ADODB数据库类)
参数名	类 型	参考	可空	数组	备 注
保存的内容	文本型
Excel文件	文本型				要打开的文件
工作表名	文本型				为空默认为：Sheet1
总列数	整数型				返回的列数

变量名	类 型	静态	数组	备 注
数据库_	ADODB数据库类
记录集_	ADODB记录集类
行数	整数型
列数	整数型
总数量	整数型
导入列数	整数型
name	文本型		0

判断 (数据库_.连接Excel_2007 (Excel文件))
如果真 (是否为空 (工作表名))
工作表名 ＝ “Sheet1”
判断 (记录集_.打开 (“select * from [” ＋ 工作表名 ＋ “$]”, 数据库_, , ))
总数量 ＝ 记录集_.记录数量 ()
导入列数 ＝ 记录集_.字段数量 ()
总列数 ＝ 导入列数
重定义数组 (保存的内容, 假, 总数量, 导入列数)  ' 多维数组
计次循环首 (总数量, 行数)
计次循环首 (导入列数, 列数)
保存的内容 [行数] [列数] ＝ 记录集_.读入序号记录 (列数 － 1).取文本 ()
计次循环尾 ()
记录集_.到下一条 ()
计次循环尾 ()
记录集_.关闭 ()
数据库_.关闭 ()
返回 (真)

返回 (假)

返回 (假)

.版本 2<br /> <br /> .子程序 Excel导入_数组_数据库, 逻辑型, 公开, 数据库模式，高速导入保存到数组里 (ADODB数据库类)<br /> .参数 保存的内容, 文本型, 参考 数组<br /> .参数 Excel文件, 文本型, , 要打开的文件<br /> .参数 工作表名, 文本型, 可空, 为空默认为：Sheet1<br /> .参数 总列数, 整数型, 参考 可空, 返回的列数<br /> .局部变量 数据库_, ADODB数据库类<br /> .局部变量 记录集_, ADODB记录集类<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 总数量, 整数型<br /> .局部变量 导入列数, 整数型<br /> .局部变量 name, 文本型, , "0"<br /> <br /> .判断开始 (数据库_.连接Excel_2007 (Excel文件))<br />     .如果真 (是否为空 (工作表名))<br />         工作表名 ＝ “Sheet1”<br />     .如果真结束<br />     .判断开始 (记录集_.打开 (“select * from [” ＋ 工作表名 ＋ “$]”, 数据库_, , ))<br />         总数量 ＝ 记录集_.记录数量 ()<br />         导入列数 ＝ 记录集_.字段数量 ()<br />         总列数 ＝ 导入列数<br />         重定义数组 (保存的内容, 假, 总数量, 导入列数)  ' 多维数组<br />         .计次循环首 (总数量, 行数)<br />             .计次循环首 (导入列数, 列数)<br />                 保存的内容 [行数] [列数] ＝ 记录集_.读入序号记录 (列数 － 1).取文本 ()<br />             .计次循环尾 ()<br />             记录集_.到下一条 ()<br />         .计次循环尾 ()<br />         记录集_.关闭 ()<br />         数据库_.关闭 ()<br />         返回 (真)<br /> <br />     .默认<br />         返回 (假)<br />     .判断结束<br /> <br /> .默认<br />     返回 (假)

李泽勇2

莫离 发表于 2021-12-23 10:49
我研究了一下，处理事件()确实可以解决假死的问题，但是效率并非很高，我尝试采用了线程的方式，把加入超 ...

莫离

李泽勇2 发表于 2021-12-22 20:18
在外面循环里面加入 处理事件()  ，比如这样：

我研究了一下，处理事件()确实可以解决假死的问题，但是效率并非很高，我尝试采用了线程的方式，把加入超级列表框的行为写在了另一个线程里就相对来说比较完美得解决了问题

李泽勇2

莫离 发表于 2021-12-22 19:13
表格内容有点多的时候，我测试了大概20万行，会出现假死状态，然后速度还是有点慢，想请教楼主有方法可以优 ...

在外面循环里面加入 处理事件()  ，比如这样：

李泽勇2

莫离 发表于 2021-12-22 19:13
表格内容有点多的时候，我测试了大概20万行，会出现假死状态，然后速度还是有点慢，想请教楼主有方法可以优 ...

在外面循环里面加入 处理事件()  ，比如这样：

莫离

表格内容有点多的时候，我测试了大概20万行，会出现假死状态，然后速度还是有点慢，想请教楼主有方法可以优化吗？

229096767

谢谢分享                       

杨明煜

这个该学习.......................

fengfeng23

学习学习