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