Mega Code Archive

 

Categories / VB.Net / ADO Database

 

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