Imports System
Imports System.Data
Imports System.Data.SqlClient
public class MainClass
Shared Sub Main()
Dim SqlConnection1 As New SqlConnection("server=(local)\SQLEXPRESS;" & _
"integrated security=sspi;database=MyDatabase")
Dim thisCommand As SqlCommand = SqlConnection1.CreateCommand()
thisCommand.CommandText = "Select nonExistColumn from Employee"
Try
' Open connection
SqlConnection1.Open()
' Run stored procedure
thisCommand.ExecuteNonQuery()
Catch ex As System.Data.SqlClient.SqlException
Dim str As String
str = "Source : " & ex.Source & ControlChars.NewLine
str &= "Number : " & ex.Number & ControlChars.NewLine
str &= "Message : " & ex.Message & ControlChars.NewLine
str &= "Class : " & ex.Class.ToString() & ControlChars.NewLine
str &= "Procedure : " & ex.Procedure & ControlChars.NewLine
str &= "Line number : " & ex.LineNumber.ToString() & ControlChars.NewLine
str &= "Server : " & ex.Server
Console.WriteLine("Database Exception" & str)
Catch ex As System.Exception
Dim str As String
str = "Source : " & ex.Source
str &= ControlChars.NewLine
str &= "Exception Message : " & ex.Message
Console.WriteLine("General Exception" & str)
Finally
If SqlConnection1.State = ConnectionState.Open Then
Console.WriteLine("Finally block closing the connection")
SqlConnection1.Close()
End If
End Try
End Sub
End Class
| 
