Cara Penggunaan sqlTransaction di vb.net 2008

1. Public Sub RunSqlTransaction(myConnString As String)
2. Dim myConnection As New SqlConnection(myConnString)
3. myConnection.Open()
5. Dim myCommand As SqlCommand = myConnection.CreateCommand()
6. Dim myTrans As SqlTransaction
8. ' Start a local transaction
9. myTrans = myConnection.BeginTransaction(IsolationLevel.ReadCommitted, "SampleTransaction")
10. ' Must assign both transaction object and connection
11. ' to Command object for a pending local transaction
12. myCommand.Connection = myConnection
13. myCommand.Transaction = myTrans
15. Try
16. myCommand.CommandText = "Insert into Region (RegionID, RegionDescription) VALUES (100, 'Description')"
17. myCommand.ExecuteNonQuery()
18. myCommand.CommandText = "Insert into Region (RegionID, RegionDescription) VALUES (101, 'Description')"
19. myCommand.ExecuteNonQuery()
20. myTrans.Commit()
21. Console.WriteLine("Both records are written to database.")
22. Catch e As Exception
23. Try
24. myTrans.Rollback("SampleTransaction")
25. Catch ex As SqlException
26. If Not myTrans.Connection Is Nothing Then
27. Console.WriteLine("An exception of type " & ex.GetType().ToString() & _
28. " was encountered while attempting to roll back the transaction.")
29. End If
30. End Try
32. Console.WriteLine("An exception of type " & e.GetType().ToString() & _
33. "was encountered while inserting the data.")
34. Console.WriteLine("Neither record was written to database.")
35. Finally
36. myConnection.Close()
37. End Try
38. End Sub 'RunSqlTransaction