Mega Code Archive

 

Categories / VB.Net / ADO Database

 

Ado Net 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.CommandText = "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