事务语法

Public Sub RunSqlTransaction(myConnString As String)     Dim myConnection As New SqlConnection(myConnString)     myConnection.Open()         Dim myCommand As SqlCommand = myConnection.CreateCommand()     Dim myTrans As SqlTransaction         ' Start a local transaction     myTrans = myConnection.BeginTransaction()     ' Must assign both transaction object and connection     ' to Command object for a pending local transaction     myCommand.Connection = myConnection     myCommand.Transaction = myTrans         Try       myCommand.CommandText = "Insert into Region (RegionID, RegionDescription) VALUES (100, 'Description')"       myCommand.ExecuteNonQuery()       myCommand.CommandText = "Insert into Region (RegionID, RegionDescription) VALUES (101, 'Description')"       myCommand.ExecuteNonQuery()       myTrans.Commit()       Console.WriteLine("Both records are written to database.")     Catch e As Exception       Try         myTrans.Rollback()       Catch ex As SqlException         If Not myTrans.Connection Is Nothing Then           Console.WriteLine("An exception of type " & ex.GetType().ToString() & _                             " was encountered while attempting to roll back the transaction.")         End If       End Try           Console.WriteLine("An exception of type " & e.GetType().ToString()   "was encountered while inserting the data.")       Console.WriteLine("Neither record was written to database.")     Finally       myConnection.Close()     End Try End Sub 'RunSqlTransaction

 

转载于:https://www.cnblogs.com/superMay/p/4097391.html