要全部使用sql处理，比如：
Dim db = HySql.DataBaseFactory.CreateDatabase() '获取数据库对象
Dim tran = db.BeginTransaction() '开始一个事务
Dim sql As String = "UPDATE 表A SET 列1 = 'xxx'，列2='xxx' WHERE xx列 = 'xxx';"
Try
Dim res As Integer = db.ExecuteNonQuery(tran, sql)
If res = 0 Then
db.RollbackTransaction(tran, True) '回滚事务,同时关闭数据库连接
msgbox("取消事务")
Else
Dim sql2 As String = "UPDATE 表B SET 列1 = 'xxx'，列2='xxx' WHERE xx列 = 'xxx';"
res = db.ExecuteNonQuery(tran, sql2)
If res = 0 Then
db.RollbackTransaction(tran, True) '回滚事务,同时关闭数据库连接
msgbox("取消事务")
Else
db.CommitTransaction(tran, True) '提交事务,同时关闭数据库连接
msgbox("执行成功")
End If
End If
Catch ex As Exception
db.RollbackTransaction(tran, True) '回滚事务,同时关闭数据库连接
msgbox("取消事务,原因:" & ex.Message)
End Try
加好友 
发短信
Post By：2024/9/29 17:11:00 [显示全部帖子]
