SQLserver事务回滚

wangxc86

俺想用易语言做个SQLserver事务回滚的东东，有谁会？最好不要模块等杂七杂八的。以下是我自己写的，无奈不成功，为啥不成功我也不知道。。。

  

子程序名	返回值类型	公开	备 注
SQL事务回滚加报错机制			可以一条，也可以同时执行多条
参数名	类 型	参考	可空	数组	备 注
执行语句	文本型

变量名	类 型	静态	数组	备 注
局部_前置	文本型
局部_后缀	文本型
局部_error_number	文本型			aserrornumber
局部_error_message	文本型			aserrormessage
x	整数型
局部_索引	整数型

局部_前置 ＝ “Begin Try Begin TransAction ”
局部_后缀 ＝ “ Commit TransAction End Try Begin Catch Rollback TransAction SELECT error_number() AS aserrornumber,error_message() AS aserrormessage End Catch”
_启动窗口.记录集1.打开 (局部_前置 ＋ 执行语句 ＋ 局部_后缀, #SQL语句, )
调试输出 (局部_前置 ＋ 执行语句 ＋ 局部_后缀)
判断 (_启动窗口.记录集1.记录数量 ＝ 0)
提示框 (“恭喜你执行成功了！”)
_启动窗口.记录集1.读文本 (“aserrornumber”, 局部_error_number)
_启动窗口.记录集1.读文本 (“aserrormessage”, 局部_error_message)
提示框 (“错误代码：” ＋ 局部_error_number ＋ #换行符 ＋ 局部_error_message)

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

.版本 2<br /> .支持库 eDB<br /> .支持库 spec<br /> <br /> .子程序 SQL事务回滚加报错机制, , , 可以一条，也可以同时执行多条<br /> .参数 执行语句, 文本型<br /> .局部变量 局部_前置, 文本型<br /> .局部变量 局部_后缀, 文本型<br /> .局部变量 局部_error_number, 文本型, , , aserrornumber<br /> .局部变量 局部_error_message, 文本型, , , aserrormessage<br /> .局部变量 x, 整数型<br /> .局部变量 局部_索引, 整数型<br /> <br /> 局部_前置 ＝ “Begin Try Begin TransAction ”<br /> 局部_后缀 ＝ “ Commit TransAction End Try Begin Catch Rollback TransAction SELECT error_number() AS aserrornumber,error_message() AS aserrormessage End Catch”<br /> _启动窗口.记录集1.打开 (局部_前置 ＋ 执行语句 ＋ 局部_后缀, #SQL语句, )<br /> 调试输出 (局部_前置 ＋ 执行语句 ＋ 局部_后缀)<br /> .判断开始 (_启动窗口.记录集1.记录数量 ＝ 0)<br />     提示框 (“恭喜你执行成功了！”)<br /> .默认<br />     _启动窗口.记录集1.读文本 (“aserrornumber”, 局部_error_number)<br />     _启动窗口.记录集1.读文本 (“aserrormessage”, 局部_error_message)<br />     提示框 (“错误代码：” ＋ 局部_error_number ＋ #换行符 ＋ 局部_error_message)

代码在SQLserver中执行 完全没毛病

帖子图

Begin Try

Begin TransAction --开始一个事物

  

     INSERT INTO [ScaleDb].[dbo].[TableCss]([表格名称)VALUES('haha')

     INSERT INTO [ScaleDb].[dbo].[TableCss]([表格名称)VALUES(78)

    Commit TransAction  --成功，就提交事物

End Try

Begin Catch   --出现错误，回滚事物

    Rollback TransAction

    SELECT

    error_number() AS aserror_number ,

    error_message() AS aserror_message,

        error_state() AS aserror_state,

        error_severity() AS aserror_severity

End Catch

[size=13.3333px]各位老师前辈大侠们指点指点

sinewtec

记录集1.开始事务（）
记录集1.回滚事务（）

wangxc86

sinewtec 发表于 2022-4-27 16:59
记录集1.开始事务（）
记录集1.回滚事务（）

你是说这个把：
数据库连接1.开始事务 ()
数据库连接1.回滚事务 ()
这不是我想要的