ADO.NET 对 Microsoft SQL Server 的事务逻辑

Using connection As SqlConnection = New SqlConnection(connectString)
    connection.Open()

    ' Start a local transaction.
    Dim sqlTran As SqlTransaction = connection.BeginTransaction()

    ' Enlist the command in the current transaction.
    Dim command As SqlCommand = connection.CreateCommand()
    command.Transaction = sqlTran

    Try
        command.CommandText = _
          "INSERT INTO Production.ScrapReason(Name) VALUES('Wrong size')"
        command.ExecuteNonQuery()
        command.CommandText = _
          "INSERT INTO Production.ScrapReason(Name) VALUES('Wrong color')"
        command.ExecuteNonQuery()
        sqlTran.Commit()
        Console.WriteLine("Both records were written to database.")
    Catch ex As Exception
        Console.WriteLine(ex.Message)
        Console.WriteLine("Neither record was written to database.")
        sqlTran.Rollback()
    End Try
End Using