Execute Reader Example : Database Reader « Database ADO.net « VB.Net

1. VB.Net
2. Database ADO.net
3. Database Reader

Execute Reader Example

  


Imports System
Imports System.Data
Imports System.Data.SqlClient

    Public Class MainClass

        Public Shared Sub ExecuteReaderExample(ByVal con As IDbConnection)
            Dim com As IDbCommand = con.CreateCommand
            com.CommandType = CommandType.Text
            com.CommandText = "SET ROWCOUNT 10;SELECT Production.Product.Name, Production.Product.ListPrice FROM Production.Product ORDER BY Production.Product.ListPrice DESC;SET ROWCOUNT 0;"
            Using reader As IDataReader = com.ExecuteReader
                While reader.Read
                    Console.WriteLine("  {0} = {1}", reader("Name"), reader("ListPrice"))
                End While
            End Using
        End Sub
        Public Shared Sub Main()
            Using con As New SqlConnection
                con.ConnectionString = "Data Source=.\sqlexpress;Database=AdventureWorks;Integrated Security=SSPI;"
                con.Open()

                ExecuteReaderExample(con)
                con.Close()
            End Using
        End Sub
    End Class

   
    
  

Related examples in the same category

1.	Use SqlDataReader to read a single row of data
2.	Select top 5 Records in data table
3.	Execute Scalar Example
4.	Execute the command and retrieve and XmlReader to access the results