易语言 数据库链接 内置事务回滚功能例子

lzda90

测试过多线程并不会互相影响

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (数据库连接1.连接SQLServer (“127.0.0.1”, “my_db”, “sa”, “密码”))
调试输出 (“数据库链接成功”)
如果 (记录集1.置连接 (数据库连接1))
调试输出 (“记录集1.置连接 成功”)

调试输出 (“记录集1.置连接 失败”)
结束 ()


调试输出 (“数据库链接失败”)
结束 ()

子程序名	返回值类型	公开	备 注
执行线程
参数名	类 型	参考	可空	数组	备 注
序号	整数型

变量名	类 型	静态	数组	备 注
局部_数据库链接	数据库连接
局部_记录集	记录集
sql	文本型

调试输出 (到文本 (序号) ＋ “线程启动”)
复制窗口组件 (数据库连接1, 局部_数据库链接)
局部_数据库链接.置父窗口 (_启动窗口)
复制窗口组件 (记录集1, 局部_记录集)
局部_记录集.置父窗口 (_启动窗口)
如果 (局部_数据库链接.连接SQLServer (“127.0.0.1”, “my_db”, “sa”, “密码”))
调试输出 (到文本 (序号) ＋ “：数据库链接成功”)
如果 (局部_记录集.置连接 (局部_数据库链接))
调试输出 (到文本 (序号) ＋ “：记录集.置连接 成功”)

调试输出 (到文本 (序号) ＋ “：记录集.置连接 失败”)
结束 ()

调试输出 (到文本 (序号) ＋ “：数据库链接失败”)
结束 ()

调试输出 (到文本 (序号) ＋ “：事务开始”)
局部_数据库链接.开始事务 ()
sql ＝ “update fanyicidian set zhongwenming='序号” ＋ 到文本 (序号) ＋ “' where id=” ＋ 到文本 (序号)
调试输出 (到文本 (序号) ＋ “执行1--：” ＋ sql)
如果 (局部_数据库链接.执行SQL (sql, ) ＝ 假)
调试输出 (到文本 (序号) ＋ “：1--执行更改中文名错误”)
如果 (局部_数据库链接.回滚事务 ())
调试输出 (到文本 (序号) ＋ “：1--错误 回滚事务 成功”)
调试输出 (到文本 (序号) ＋ “：1--错误 回滚事务 失败”)
返回 ()

调试输出 (到文本 (序号) ＋ “：1--执行成功”)

程序_延时 (1000)
sql ＝ “update fanyicidian set yingwenming='序号” ＋ 到文本 (序号) ＋ “' where id=” ＋ 到文本 (序号)
调试输出 (到文本 (序号) ＋ “执行2--：” ＋ sql)
如果 (局部_数据库链接.执行SQL (sql, ) ＝ 假)
调试输出 (到文本 (序号) ＋ “：2--执行更改英文名错误”)
如果 (局部_数据库链接.回滚事务 ())
调试输出 (到文本 (序号) ＋ “：2--回滚事务 成功”)
调试输出 (到文本 (序号) ＋ “：2--- 回滚事务 失败”)

返回 ()

调试输出 (到文本 (序号) ＋ “：2--执行成功”)

程序_延时 (1000)
sql ＝ “update fanyicidian set tianjiashijian='' where id=” ＋ 到文本 (序号)
调试输出 (到文本 (序号) ＋ “执行：” ＋ sql)
如果 (局部_数据库链接.执行SQL (“update fanyicidian set tianjiashijian='' where id=” ＋ 到文本 (序号), ) ＝ 假)
调试输出 (到文本 (序号) ＋ “：3执行更改时间错误”)
如果 (局部_数据库链接.回滚事务 ())
调试输出 (到文本 (序号) ＋ “：3 回滚事务 成功”)
调试输出 (到文本 (序号) ＋ “：3 回滚事务 失败”)
返回 ()

调试输出 (到文本 (序号) ＋ “：3--执行成功”)

程序_延时 (1000)
sql ＝ “update  fanyicidian set yingwenming=yingwenming+'记录集添加' where id=” ＋ 到文本 (序号)
调试输出 (到文本 (序号) ＋ “执行：” ＋ sql)
局部_记录集.打开 (sql, #SQL语句, )
如果真 (序号 ＝ 7)
局部_数据库链接.回滚事务 ()
调试输出 (到文本 (序号) ＋ “主动取消”)

程序_延时 (1000)
如果 (局部_数据库链接.保存事务 ())
调试输出 (到文本 (序号) ＋ “事务成功”)
调试输出 (到文本 (序号) ＋ “事务失败”)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&执行线程, 7, )
程序_延时 (1000)
启动线程 (&执行线程, 8, )

i支持库列表	支持库注释
eDB	数据库操作支持库
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> <br /> .如果 (数据库连接1.连接SQLServer (“127.0.0.1”, “my_db”, “sa”, “密码”))<br />     调试输出 (“数据库链接成功”)<br />     .如果 (记录集1.置连接 (数据库连接1))<br />         调试输出 (“记录集1.置连接 成功”)<br /> <br /> <br />     .否则<br />         调试输出 (“记录集1.置连接 失败”)<br />         结束 ()<br /> <br />     .如果结束<br /> <br /> <br /> <br /> .否则<br />     调试输出 (“数据库链接失败”)<br />     结束 ()<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 执行线程<br /> .参数 序号, 整数型<br /> .局部变量 局部_数据库链接, 数据库连接<br /> .局部变量 局部_记录集, 记录集<br /> .局部变量 sql, 文本型<br /> <br /> <br /> 调试输出 (到文本 (序号) ＋ “线程启动”)<br /> <br /> 复制窗口组件 (数据库连接1, 局部_数据库链接)<br /> 局部_数据库链接.置父窗口 (_启动窗口)<br /> 复制窗口组件 (记录集1, 局部_记录集)<br /> 局部_记录集.置父窗口 (_启动窗口)<br /> <br /> .如果 (局部_数据库链接.连接SQLServer (“127.0.0.1”, “my_db”, “sa”, “密码”))<br />     调试输出 (到文本 (序号) ＋ “：数据库链接成功”)<br />     .如果 (局部_记录集.置连接 (局部_数据库链接))<br />         调试输出 (到文本 (序号) ＋ “：记录集.置连接 成功”)<br /> <br /> <br />     .否则<br />         调试输出 (到文本 (序号) ＋ “：记录集.置连接 失败”)<br />         结束 ()<br /> <br />     .如果结束<br /> <br /> .否则<br />     调试输出 (到文本 (序号) ＋ “：数据库链接失败”)<br />     结束 ()<br /> .如果结束<br /> <br /> 调试输出 (到文本 (序号) ＋ “：事务开始”)<br /> 局部_数据库链接.开始事务 ()<br /> <br /> sql ＝ “update fanyicidian set zhongwenming='序号” ＋ 到文本 (序号) ＋ “' where id=” ＋ 到文本 (序号)<br /> 调试输出 (到文本 (序号) ＋ “执行1--：” ＋ sql)<br /> .如果 (局部_数据库链接.执行SQL (sql, ) ＝ 假)<br />     调试输出 (到文本 (序号) ＋ “：1--执行更改中文名错误”)<br />     .如果 (局部_数据库链接.回滚事务 ())<br />         调试输出 (到文本 (序号) ＋ “：1--错误 回滚事务 成功”)<br />     .否则<br />         调试输出 (到文本 (序号) ＋ “：1--错误 回滚事务 失败”)<br />     .如果结束<br />     返回 ()<br /> <br /> .否则<br />     调试输出 (到文本 (序号) ＋ “：1--执行成功”)<br /> .如果结束<br /> <br /> 程序_延时 (1000)<br /> sql ＝ “update fanyicidian set yingwenming='序号” ＋ 到文本 (序号) ＋ “' where id=” ＋ 到文本 (序号)<br /> 调试输出 (到文本 (序号) ＋ “执行2--：” ＋ sql)<br /> .如果 (局部_数据库链接.执行SQL (sql, ) ＝ 假)<br />     调试输出 (到文本 (序号) ＋ “：2--执行更改英文名错误”)<br />     .如果 (局部_数据库链接.回滚事务 ())<br />         调试输出 (到文本 (序号) ＋ “：2--回滚事务 成功”)<br />     .否则<br />         调试输出 (到文本 (序号) ＋ “：2--- 回滚事务 失败”)<br />     .如果结束<br /> <br />     返回 ()<br /> <br /> .否则<br />     调试输出 (到文本 (序号) ＋ “：2--执行成功”)<br /> .如果结束<br /> <br /> <br /> 程序_延时 (1000)<br /> <br /> sql ＝ “update fanyicidian set tianjiashijian='' where id=” ＋ 到文本 (序号)<br /> 调试输出 (到文本 (序号) ＋ “执行：” ＋ sql)<br /> .如果 (局部_数据库链接.执行SQL (“update fanyicidian set tianjiashijian='' where id=” ＋ 到文本 (序号), ) ＝ 假)<br />     调试输出 (到文本 (序号) ＋ “：3执行更改时间错误”)<br />     .如果 (局部_数据库链接.回滚事务 ())<br />         调试输出 (到文本 (序号) ＋ “：3 回滚事务 成功”)<br />     .否则<br />         调试输出 (到文本 (序号) ＋ “：3 回滚事务 失败”)<br />     .如果结束<br />     返回 ()<br /> <br /> .否则<br />     调试输出 (到文本 (序号) ＋ “：3--执行成功”)<br /> .如果结束<br /> <br /> <br /> 程序_延时 (1000)<br /> <br /> sql ＝ “update  fanyicidian set yingwenming=yingwenming+'记录集添加' where id=” ＋ 到文本 (序号)<br /> 调试输出 (到文本 (序号) ＋ “执行：” ＋ sql)<br /> 局部_记录集.打开 (sql, #SQL语句, )<br /> <br /> .如果真 (序号 ＝ 7)<br />     局部_数据库链接.回滚事务 ()<br />     调试输出 (到文本 (序号) ＋ “主动取消”)<br /> .如果真结束<br /> <br /> 程序_延时 (1000)<br /> <br /> .如果 (局部_数据库链接.保存事务 ())<br />     调试输出 (到文本 (序号) ＋ “事务成功”)<br /> .否则<br />     调试输出 (到文本 (序号) ＋ “事务失败”)<br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> 启动线程 (&执行线程, 7, )<br /> 程序_延时 (1000)<br /> <br /> 启动线程 (&执行线程, 8, )

1184798949

感谢分享

陈琦

回滚事务是不是回到刚刚开始的时候