Transazione

Imports System
Imports System.Data
Imports System.Data.SqlClient

namespace HowTo.Samples.ADONET

public class executingacommand
public shared sub Main()
Dim myexecutingacommand as executingacommand
myexecutingacommand = new executingacommand()
myexecutingacommand.Run()
end sub

public sub Run()

Dim myConnection as SQLConnection = new SQLConnection("server=(local)\NetSDK;Trusted_Connection=yes;database=northwind")
Dim myCommand as SQLCommand = new SqlCommand()
Dim myTrans as SqlTransaction

' Open the connection.

myConnection.Open()

' Assign the connection property.

myCommand.Connection = myConnection

' Begin the transaction.

myTrans = myConnection.BeginTransaction()

' Assign transaction object for a pending local transaction

myCommand.Transaction = myTrans

try
' Restore database to it's original condition so sample will work correctly.

myCommand.CommandText = "DELETE FROM Region WHERE (RegionID = 100) OR (RegionID = 101)"
myCommand.ExecuteNonQuery()

' Insert the first record.

myCommand.CommandText = "Insert into Region (RegionID, RegionDescription) VALUES (100, 'MidWestern')"
myCommand.ExecuteNonQuery()

' Insert the second record.

myCommand.CommandText = "Insert into Region (RegionID, RegionDescription) VALUES (101, 'MidEastern')"
myCommand.ExecuteNonQuery()

myTrans.Commit()
Console.Write("Entrambi i record sono stati scritti nel database.")
catch e as Exception
myTrans.Rollback()
Console.WriteLine(e.ToString())
Console.Write("Nessuno dei record stato scritto nel database.")
finally
myConnection.Close()
end try
end sub
end class

end namespace