VB.Net/Database ADO.net/ADO.net Exception

Ado.Net Exception: access non-exist column exception

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.rumandText = "Select * from Employee"
      Try
         " Open connection
         SqlConnection1.Open()
         " Run command and get data as a reader
         Dim thisReader As SqlDataReader = thisCommand.ExecuteReader()
         " Access non-existent column
         Dim str As String = thisReader.GetValue(20).ToString()
         " Close data reader
         thisReader.Close()
      Catch ex As System.InvalidOperationException
         Dim str As String
         str = "Source : " & ex.Source
         str &= ControlChars.NewLine
         str &= "Exception Message : " & ex.Message
         str &= ControlChars.NewLine
         str &= "Stack Trace : " & ex.StackTrace
         Console.WriteLine("Specific Exception:" & str)
      Catch ex As System.Data.SqlClient.SqlException
         Dim str As String
         str = "Source : " & ex.Source
         str &= ControlChars.NewLine
         str &= "Exception Message : " & ex.Message
         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("Generic 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

Ado.Net Exception: No Store Procedure Exception

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.rumandType = CommandType.StoredProcedure
      thisCommand.rumandText = "SelectAllEmployees"
      Try
         SqlConnection1.Open()
         Dim thisReader As SqlDataReader = thisCommand.ExecuteReader()
         thisReader.Close()
      Catch ex As System.Data.SqlClient.SqlException
         Dim str As String
         str = "Source : " & ex.Source
         str &= ControlChars.NewLine
         str &= "Exception Message : " & ex.Message
         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("Non-Database 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

Ado.Net Exception: Wrong SQL command exception

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.rumandText = "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