事务代码如何修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

需求：如果事务成功，表1的数据导入表2后，清空表1的数据，如果事务失败，回滚事务，回滚表1的数据，下面代码如何改？MYSQL数据源

Dim db = HySq-l.DataBaseFactory.CreateDatabase() '获取数据库对象

Dim tran = db.BeginTransaction() '开始一个事务

Dim sq-l As String = "INSERT INTO table2 (id, data) SELEC-T id, data FROM table1;"

Try

Dim res As Integer = db.ExecuteNonQuery(tran, sq-l, New HySq-l.ParameterPair("折扣", 0.3), New HySq-l.ParameterPair("客户", "abc"))

res = db.ExecuteNonQuery(tran, sq-l, New HySq-l.ParameterPair("折扣", 0.2), New HySq-l.ParameterPair("客户", "CS01"))

If res = 0 Then

db.RollbackTransaction(tran, True) '回滚事务,同时关闭数据库连接

msgbox("取消事务")

Else

db.CommitTransaction(tran, True) '提交事务,同时关闭数据库连接

msgbox("执行成功")

删除表1

msgbox("表1已清空")

End If

Catch ex As Exception

db.RollbackTransaction(tran, True) '回滚事务,同时关闭数据库连接

msgbox("取消事务,原因:" & ex.Message)

End Try

Dim res As Integer = db.ExecuteNonQuery(tran, sq-l, New HySq-l.ParameterPair("折扣", 0.3), New HySq-l.ParameterPair("客户", "abc"))

res = db.ExecuteNonQuery(tran, sq-l, New HySq-l.ParameterPair("折扣", 0.2), New HySq-l.ParameterPair("客户", "CS01"))

问题一:这个是什么意思，没太理解，看帮助，好象是修改，配合修改，对指定字段的修改，是否这种理解？

问题二:这二行是配合修改，对表与表之间的复制，导入或删除没关系，是否可以删除？

Dim db = HySq-l.DataBaseFactory.CreateDatabase() '获取数据库对象

Dim tran = db.BeginTransaction() '开始一个事务

Dim sq-l As String = "INSERT INTO table2 (id, data) SELEC-T id, data FROM table1;"

Try

Dim res As Integer = db.ExecuteNonQuery(tran, sq-l, New HySq-l.ParameterPair("折扣", 0.3), New HySq-l.ParameterPair("客户", "abc"))

res = db.ExecuteNonQuery(tran, sq-l, New HySq-l.ParameterPair("折扣", 0.2), New HySq-l.ParameterPair("客户", "CS01"))

If res = 0 Then

db.RollbackTransaction(tran, True) '回滚事务,同时关闭数据库连接

msgbox("取消事务")

Else

db.CommitTransaction(tran, True) '提交事务,同时关闭数据库连接

msgbox("执行成功")

删除表1，SQL=删除语句

End If

Catch ex As Exception

db.RollbackTransaction(tran, True) '回滚事务,同时关闭数据库连接

msgbox("取消事务,原因:" & ex.Message)

End Try

问题1;需求是导入数据，删除来源表的事务，删除来源表代码是放在上面代码位置？还是放在哪里？是否还在失放资源的动作？

问题2：一个按键单击事件，有多个事务，狐表的操作代码（导入，复制，查询）事件，是否可以同放一个按键里？其程序运行先后如何处理？

问题1：if res > 0 then是事务成功意思？If res = 0 Then是事务失败的意思？

问题2：一个按键单击事件，有多个事务，狐表的操作代码（导入，复制，查询）事件，是否可以同放一个按键里？其程序运行先后如何处理？

主题：事务代码如何修改