update trans set mon = mon -10000where id ='張三'update trans set mon = mon +10000where id ='李四'insertinto card values('張三',10000,'支出')insertinto card values('李四',10000,'收入')
begintran--事務declare@iintupdate trans set mon = mon -10000where id ='張三'set@i=@i+ @@errror--記錄上一行的錯誤update trans set mon = mon +10000where id ='李四'set@i=@i+ @@errrorinsertinto card values('張三',10000,'支出')set@i=@i+ @@errrorinsertinto card values('李四',10000,'收入')set@i=@i+ @@errrorif@i<>0--有錯誤 rollbacktran--撤回代碼,不執行elsecommint tran--0 個錯誤 ,執行sql