Try
Connections("szatverpdb").BeginTransaction() '开始事务
cmd.CommandText = "update {Production_Details} set xxxxx
cmd.ExecuteNonQuery()
cmd.CommandText = "delete from xxxxxx
cmd.ExecuteNonQuery()
cmd.CommandText = "delete from xxxxx
cmd.ExecuteNonQuery()
Connections("szatverpdb").Commit '提交事务,所有操作生效
Catch ex As Exception '如果出错
Connections("szatverpdb").Rollback() '回滚事务,撤销所有操作
messagebox.show("数据处理失败,请重试!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
Return
End Try
这么写应该没问题吧
我该如何测试try里的语句有没有执行呢？
try里是不是不能放msg测试的
刚刚实际测试下来 语句没执行……帮忙看看
加好友 
发短信
Post By：2014/5/26 17:16:00 [只看该作者]
