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 sql As String = "DELETE FROM Employee " & _
"WHERE ID = 10"
' Create command
Dim thisCommand As New SqlCommand(sql, 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 delete command
thisCommand.ExecuteNonQuery()
' Commit transaction
thisTransaction.Commit()
' Display success
Console.WriteLine("Transaction Committed. Data Deleted")
Catch ex As Exception
' Roll back transaction
thisTransaction.Rollback()
Console.WriteLine("Transaction rolled back : " & ex.Message)
Finally
' Close Connection
thisConnection.Close()
End Try
End Sub
End Class