<WebMethod(TransactionOption:=EnterpriseServices.TransactionOption.RequiresNew)> _ Public Function DTSTest() As String Try ContextUtil.EnableCommit()
DrawMoneyFromA(100) DepostMoneyToB(100) ContextUtil.SetComplete() Return "OK!" Catch ex As Exception ContextUtil.SetAbort() Return "Failed" + ex.Message End Try
End Function
Public Sub DrawMoneyFromA(ByVal amount As Long) ''''从 A 中提取一定的钱 Dim cnn As New SqlConnection("server=server1;database=A;uid=sa;pwd=Password@1;enlist=false") cnn.Open() Dim cmd As New SqlCommand("Update bank set amount=amount - " & amount & " where bankaccount=''''A''''", cnn) cmd.ExecuteNonQuery()
End Sub
Public Sub DepostMoneyToB(ByVal amount As Long) ''''往 B 帐户加入一定的钱 Dim cnn As New SqlConnection("server=server2;database=B;pwd=Password@1;uid=sa;enlist=false") cnn.Open() Dim cmd As New SqlCommand("Update bank set amount=amount + " & amount & " where bankaccount=''''B''''", cnn) Throw New Exception("ff") cmd.ExecuteNonQuery() End Sub
然后调用web service, 发现A 的余额是 900, 而 B 的帐户仍旧是 1000 ,分布式事务失败。