ADO Database ASP.Net

  1. Home
  2. ASP.Net
  3. ADO Database
  4. Try Catch Finally for reading data from SQL server (VB net)
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

   Try-Catch-Finally Example
   
      
         Sub Page_Load()
     '    Dim ConnStr As String = "Data Source=(local)\NetSDK;" & _
      '      "Initial Catalog=Pubs;Trusted_Connection=True;"
            Dim ConnStr As String = "Data Source=whsql-v08.prod.mesa1.secureserver.net;Initial Catalog=DB_49907;User ID=rntsoftuser;Password='password';"
            Dim SQL As String = "SELECT ID, FirstName FROM Employee " & _ 
               "WHERE ID IS NOT NULL"
            Dim PubsConn As New SqlConnection(ConnStr)
            Dim TitlesCmd As New SqlCommand(SQL, PubsConn)
            Dim Titles As SqlDataReader
            Try
               PubsConn.Open()
               Titles = TitlesCmd.ExecuteReader()
               Output.Text = ""
               While Titles.Read()
                  Output.Text &= ""
                  Output.Text &= ""
'                  Output.Text &= ""
                  Output.Text &= ""
               End While
               Output.Text &= "
" & Titles.GetString(0) & "$" & _
 '                    Format(Titles.GetDecimal(1), "##0.00") & "
"
            Catch sqlEx As SqlException
               Response.Write("A SqlException has occurred.")
            Catch ex As Exception
               Response.Write("An Exception has occurred.")
            Finally
               If Not Titles Is Nothing Then
                  If Not Titles.IsClosed Then
                     Titles.Close()
                  End If
               End If
               If PubsConn.State = ConnectionState.Open Then
                  PubsConn.Close()
               End If
            End Try
            Response.Write("
The current connection state is: " & _
               PubsConn.State.ToString() & ".")
         End Sub
      
   

   

SqlDataReader Example