下面这种写法对吗？
Dim
cmd As new SQLCommand()
Dim cmd1 As new SQLCommand()
cmd.ConnectionName = "Orders"
'指定数据源
cmd1.ConnectionName = "Orders123"
Try
Dim id As
Integer = 10258
cmd.BeginTransaction() '开启事务
cmd.CommandText =
"Delete Fro m OrderDetails Where OrderID = "
& id
cmd.ExecuteNonQuery()
'继续使用同一个SQLCommand执行其它SQL语句.
cmd1.CommandText =
"Delete Fro m Orders Where OrderID = " & id
cmd1.ExecuteNonQuery()
cmd.Commit() '提交事务
cmd1.Commit()
'提交事务
Catch ex As
Exception '如果出错
cmd.Rollback()
'则回滚事务
cmd1.Rollback() '则回滚事务
MessageBox.Show(ex.Message, "错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
End
Try
[此贴子已经被作者于2020/10/30 15:44:37编辑过]
加好友 
发短信
Post By：2020/10/30 15:42:00 [只看该作者]
