SqlDataReader Example – VB.NET – SqlDataReader Example

Purpose: – Illustrates using SqlDataReader to read sql table.
Prerequistes:

1. Install Visual Basic (Express or Standard Edition)
2. Install SQL Server Express
3. Download Northwind Database
4. Attach Northwind Database to Databases in Sql Express

Notes:

• Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
• You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb

Instructions:

1. Use VB 2008 (Express or Standard) Edition
2. Create new project; select Console Application; name of Project could be VBNET_Syntax.
3. Right-click project name in solution explorer; add new folder; name of folder could be DatabaseADONET
4. Right-click folder; add class; class name could be clsSqlDataReader.vb
5. Copy code into clsSqlDataReader.vb
6. Copy code into Module1.vb
7. Click green arrow to start with debugging

Step 1: Use View Plain to Cut-n-paste code into clsSqlDataReader.vb

 Visual Basic | 
  |
?
 
 
Imports System
Imports System.Data
Imports System.Data.SqlClient
 
 
Public Class clsSqlDataReader
    Shared WithEvents con As SqlConnection
 
    Public Sub Main()
        con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=Northwind;Integrated Security=SSPI")
 
        Dim cmd As New SqlCommand()
 
        cmd.CommandText = "SELECT FirstName, LastName FROM Employees"
        cmd.Connection = con
 
        Try
            con.Open()
            Dim reader As SqlDataReader = cmd.ExecuteReader '(CommandBehavior.SingleRow)
            While reader.Read()
                Console.WriteLine("{0} - {1}", _
                                reader.GetString(0), reader.GetString(1))
            End While
            reader.Close()
        Finally
            con.Close()
        End Try
        Console.ReadLine()
    End Sub
End Class
 

 Visual Basic | 
  |
?
 
Module Module1
 
    Sub Main()
        '***** DataBaseADONET *************
 
        Dim mySqlDataReader As New clsSqlDataReader
        mySqlDataReader.Main()
 
 
    End Sub
 
End Module