Select top 5 Records in data table

 
Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Xml
Imports System.Windows.Forms
Imports System.Data.SqlClient


Public Class MainClass
    Shared Dim WithEvents con As SqlConnection

    Shared Sub Main()
        con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI") 

        Dim cmd As New SqlCommand()
        cmd.CommandText = "SELECT TOP 5 FirstName, LastName FROM Employee"
        cmd.Connection = con

        Try
            con.Open()

            Dim reader As SqlDataReader = cmd.ExecuteReader()
            While reader.Read()
                Console.WriteLine( _
                       "{0} - {1}", reader.GetString(0), reader.GetString(1))
            End While
            reader.Close()
        Finally
            con.Close()
        End Try
    End Sub

    Shared Sub con_StateChange(ByVal Sender As Object, _
                 ByVal E As StateChangeEventArgs) Handles con.StateChange
        Console.WriteLine( _
                   "{0} - {1}", "ConnectionState", E.CurrentState.ToString())
    End Sub
End Class

Related examples in the same category

1.	Use SqlDataReader to read a single row of data
2.	Execute Reader Example
3.	Execute Scalar Example
4.	Execute the command and retrieve and XmlReader to access the results

Select top 5 Records in data table : Database Reader « Database ADO.net « VB.Net

Related examples in the same category