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")
'Create Command object
Dim nonqueryCommand As SqlCommand = thisConnection.CreateCommand()
Try
' Open Connection
thisConnection.Open()
Console.WriteLine("Connection Opened")
'Create Command objects
Dim scalarCommand As New SqlCommand("SELECT COUNT(*) FROM Employee", thisConnection)
' Execute Scalar Query
Console.WriteLine("Before INSERT, Number of Employees = {0}", _
scalarCommand.ExecuteScalar())
' Set up and execute DELETE Command
nonqueryCommand.CommandText = _
"DELETE FROM Employee WHERE " & _
"Firstname='A' AND Lastname='A'"
Console.WriteLine("Executing {0}", nonqueryCommand.CommandText)
Console.WriteLine("Number of rows affected : {0}", _
nonqueryCommand.ExecuteNonQuery())
' Execute Scalar Query
Console.WriteLine("After Delete, Number of Employee = {0}", _
scalarCommand.ExecuteScalar())
Catch ex As SqlException
' Display error
Console.WriteLine("Error: " & ex.ToString())
Finally
' Close Connection
thisConnection.Close()
Console.WriteLine("Connection Closed")
End Try
End Sub
End Class