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
