Programación de bases de datos con Visual Basic .NET

Listado 4.1

Uso del clase SqlDataReader

Imports System.Data.SqlClient

Dim cn As SqlConnection

Dim cmd As SqlCommand

Dim dr As SqlDataReader

cn = New SqlConnection()

cn.ConnectionString = "data source=rhpc;initial catalog=pubs; " _

& "user id=sa;password="

cn.Open()

cmd = New SqlCommand("SELECT * FROM publishers", cn)

dr = cmd.ExecuteReader()

While dr.Read()

MsgBox(dr("pub_name") & " - " & dr("city"))

End While

dr.Close()

cn.Close()