多线程时 写入数据库 软件就自动关闭

ax2016

大佬们  我在多线程执行读入文件 取文件MD5后 进行了写入 *.db 数据库   但是只要加上红色框代码   软件就会生成了md5 以后  只会插入第一条数据 这是什么原因呢

  

子程序名	返回值类型	公开	备 注
初始化任务			读取文件 生成md5 写入数据库
参数名	类 型	参考	可空	数组	备 注
表项索引

变量名	类 型	静态	数组	备 注
md5	文本型
文件名	文本型

文件名 ＝ 超级列表框1.取标题 (表项索引, 1)
md5 ＝ 取数据摘要 (读入文件 (文件名))
超级列表框1.置标题 (表项索引, 2, md5)
' WaitForSingleObject (事件句柄, -1)
任务数量 ＝ 任务数量 － 1
config表.插入 ()
config表.写字段值 (“name”, 文件名)
config表.写字段值 (“md5”, md5)
config表.写字段值 (“create_at”, 到文本 (取现行时间 ()))
config表.提交 ()

子程序名	返回值类型	公开	备 注
_按钮_初始化md5_被单击

按钮_初始化md5.禁止 ＝ 真
启动线程 (&启动_任务, , )

子程序名	返回值类型	公开	备 注
启动_任务

变量名	类 型	静态	数组	备 注
count	整数型
i	整数型
run	整数型

线程数量 ＝ 到整数 (编辑框_线程.内容)
任务数量 ＝ 超级列表框1.取表项数 ()
线程池.创建 (线程数量)
count ＝ 线程池.取_线程池容量 ()  ' 先取到线程池能加到多少线程,你想并发几条就设置多少,原则意义上线程的数量不能低于自己cpu的核心数的
计次循环首 (任务数量, i)
线程池.投递任务 (&初始化任务, i － 1)
循环判断首 ()
run ＝ 线程池.取_执行线程数 ()
如果真 (run ≠ count)
跳出循环 ()
延时 (500)
循环判断尾 (run ＝ count)
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
dp1	数据操作支持库一
sqlite3	(未知支持库)
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 dp1<br /> .支持库 sqlite3<br /> .支持库 EThread<br /> <br /> .子程序 初始化任务, , , 读取文件 生成md5 写入数据库<br /> .参数 表项索引<br /> .局部变量 md5, 文本型<br /> .局部变量 文件名, 文本型<br /> <br /> 文件名 ＝ 超级列表框1.取标题 (表项索引, 1)<br /> md5 ＝ 取数据摘要 (读入文件 (文件名))<br /> 超级列表框1.置标题 (表项索引, 2, md5)<br /> ' WaitForSingleObject (事件句柄, -1)<br /> 任务数量 ＝ 任务数量 － 1<br /> <br /> config表.插入 ()<br /> config表.写字段值 (“name”, 文件名)<br /> config表.写字段值 (“md5”, md5)<br /> config表.写字段值 (“create_at”, 到文本 (取现行时间 ()))<br /> config表.提交 ()<br /> <br /> <br /> <br /> .子程序 _按钮_初始化md5_被单击<br /> <br /> 按钮_初始化md5.禁止 ＝ 真<br /> 启动线程 (&启动_任务, , )<br /> <br /> <br /> .子程序 启动_任务<br /> .局部变量 count, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 run, 整数型<br /> <br /> 线程数量 ＝ 到整数 (编辑框_线程.内容)<br /> 任务数量 ＝ 超级列表框1.取表项数 ()<br /> 线程池.创建 (线程数量)<br /> count ＝ 线程池.取_线程池容量 ()  ' 先取到线程池能加到多少线程,你想并发几条就设置多少,原则意义上线程的数量不能低于自己cpu的核心数的<br /> .计次循环首 (任务数量, i)<br /> <br />     线程池.投递任务 (&初始化任务, i － 1)<br /> <br />     .循环判断首 ()<br />         run ＝ 线程池.取_执行线程数 ()<br />         .如果真 (run ≠ count)<br />             跳出循环 ()<br />         .如果真结束<br />         延时 (500)<br />     .循环判断尾 (run ＝ count)<br /> <br /> <br /> .计次循环尾 ()

元老

ax2016 发表于 2021-9-12 07:16
对 全局表

改局部              

李白aaa

可能是冲突

元老

初始化任务 这里明显冲突....

ax2016

元老 发表于 2021-9-11 18:18
初始化任务 这里明显冲突....

老哥方便说下哪里吗 没看出来

元老

ax2016 发表于 2021-9-11 21:29
老哥方便说下哪里吗 没看出来

config表是全局的吧

ax2016

元老 发表于 2021-9-11 21:59
config表是全局的吧

对 全局表