Imports System
Imports System.Data
Imports System.Data.SqlClient
public class MainClass
Shared Sub Main()
Dim thisConnection As New SqlConnection("server=(local)\SQLEXPRESS;" & _
"integrated security=sspi;database=MyDatabase")
' SQL Delete Commands
Dim sql1 As String = "DELETE FROM Employee " & _
"WHERE ID = 10"
Dim sql2 As String = "DELETE FROM Employee " & _
"WHERE ID = 9"
' Create command
Dim thisCommand As New SqlCommand(sql1, thisConnection)
' Create Transaction
Dim thisTransaction As SqlTransaction
Try
' Open Connection
thisConnection.Open()
' Begin transaction and attach it to command
thisTransaction = thisConnection.BeginTransaction()
thisCommand.Transaction = thisTransaction
' Run first delete command
thisCommand.ExecuteNonQuery()
' Setup and run second delete command
thisCommand.CommandText = sql2
thisCommand.ExecuteNonQuery()
' Commit transaction
thisTransaction.Commit()
Console.WriteLine("Transaction Committed. Data Deleted")
Catch ex As Exception
' Roll back transaction
thisTransaction.Rollback()
Console.WriteLine("Transaction rolled back : " & ex.Message)
Finally
thisConnection.Close()
End Try
End Sub
End Class
|
