ADO.NET中的DataReader简介(2)

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic

Public Class DataReaderSample

    Public Shared Sub Main()
        Dim sqlConn As SqlConnection = New SqlConnection
("data source=DBServer;initial catalog=Northwind;
persist security info=True;user id=sa")

        Dim sqlCmd As SqlCommand = sqlConn.CreateCommand()
        sqlCmd.CommandText = "SELECT EmployeeID, LastName , FirstName FROM Employees"

        sqlConn.Open()

        Dim sqlReader As SqlDataReader = sqlCmd.ExecuteReader()
        Dim intFor As Int32
        For intFor = 0 To sqlReader.FieldCount - 1
            Console.Write(String.Format("{0,-20:G}", sqlReader.GetName(intFor)))
        Next

        Console.WriteLine()

        Do While sqlReader.Read()
            Console.WriteLine(String.Format("{0,-20:G}{1,-20:G}{2,-20:G}", 
sqlReader.GetInt32(0),
 sqlReader.GetString(1), sqlReader.GetString(2)))
        Loop

        sqlReader.Close()
        sqlConn.Close()
        Console.Read()
    End Sub
End Class

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic

Public Class DataReaderSample

    Public Shared Sub Main()
        Dim sqlConn As SqlConnection = New SqlConnection
("data source= DBServer;initial catalog=Northwind;
persist security info=True;user id=sa")

        Dim sqlCmd As SqlCommand = sqlConn.CreateCommand()
        sqlCmd.CommandText = "SELECT EmployeeID, LastName , 
FirstName  FROM Employees;SELECT CategoryID, 
CategoryName, Description FROM Categories"

        sqlConn.Open()

        Dim sqlReader As SqlDataReader = sqlCmd.ExecuteReader()
        Dim intFor As Int32
        Dim blnNextResult As Boolean = False

        Do While Not blnNextResult
            For intFor = 0 To sqlReader.FieldCount - 1
                Console.Write(String.Format("{0,-20:G}", sqlReader.GetName(intFor)))
            Next

            Console.WriteLine()

            Do While sqlReader.Read()
                Console.WriteLine(String.Format("{0,-20:G}{1,-20:G}{2,-20:G}", 
sqlReader.GetInt32(0), sqlReader.GetString(1), 
sqlReader.GetString(2)))
            Loop

            Console.WriteLine()

            blnNextResult = Not sqlReader.NextResult()
        Loop

        sqlReader.Close()
        sqlConn.Close()
        Console.Read()
    End Sub
End Class