易语言从超级列表框导出到excel后为什么数据库关闭了?

Question

这个程序是我引用别人的,可以正常把超级列表框的数据导出到excel,但是access的数据库为什么被关闭了?这个代码在最后一行代码是关闭数据库,即使删除了这一行,凡是要用到数据库的时候都没有反应了,这是为什么呢?
.版本 2.支持库 iext
通用对话框库位表导出.类型 ＝ 1通用对话框库位表导出.默认文件后缀 ＝ “xls”通用对话框库位表导出.过滤器 ＝ “excel文件|*.xls”通用对话框库位表导出.打开 ().如果真 (通用对话框库位表导出.文件名 ≠ “”) 写到文件 (通用对话框库位表导出.文件名, #库位批量查询) 文件目录 ＝ 取文本左边 (通用对话框库位表导出.文件名, 倒找文本 (通用对话框库位表导出.文件名, “\”, , 假) － 1) .如果真 (全局数据库.打开 (“DRIVER=Driver do Microsoft Excel(*.xls);UID=admin;UserCommitSync=Yes;Threads=3;SafeTransactions=0;ReadOnly=0;PageTimeout=5;MaxScanRows=8;MaxBufferSize=2048;FIL=excel 8.0;DriverId=790;DefaultDir=” ＋ 文件目录 ＋ “;DBQ=” ＋ 通用对话框库位表导出.文件名, , ) ＝ 假) 信息框 (“excel数据库打开失败”, 0, “失败”) 返回 () .如果真结束
.计次循环首 (超级列表框库位批量查询.取表项数 (), 计次) 全局SQL ＝ “insert into [sheet1$]([序号1],[商品1],[库位1],[备注1],[序号2],[商品2],[库位2],[备注2])values(?,?,?,?,?,?,?,?)” 全局数据库.执行 (全局SQL, 超级列表框库位批量查询.取标题 (计次 － 1, 0), 超级列表框库位批量查询.取标题 (计次 － 1, 1), 超级列表框库位批量查询.取标题 (计次 － 1, 2), 超级列表框库位批量查询.取标题 (计次 － 1, 3), 超级列表框库位批量查询.取标题 (计次 － 1, 4), 超级列表框库位批量查询.取标题 (计次 － 1, 5), 超级列表框库位批量查询.取标题 (计次 － 1, 6), 超级列表框库位批量查询.取标题 (计次 － 1, 7)) .计次循环尾 () 全局数据库.关闭 ()

Answer 1

没有看到你的代码里面有用到access数据库的地方。

追问

access数据库在启动时运行的,把超级列表框的数据导出到excel后再运行下面的程序就没反应了,即使删除那一条关闭数据库的命令也是不行,这是为什么呢?

 

 



追答

你试试用另外的外部数据库，或者用数据库连接，不用全局数据库。我比较喜欢用数据库连接和记录集配合使用。