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

Listado 5.1

Creación de un conjunto de datos.

Imports System.Data.SqlClient

Dim cn As SqlConnection

Dim cmd As SqlCommand

Dim ds As DataSet

Dim sqldad As SqlDataAdapter

Dim intRegistros As Integer

cn = New SqlConnection()

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

& "user id=sa;password="

cn.Open()

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

sqldad = New SqlDataAdapter(cmd)

ds = New DataSet(“MiDataSet”)

intRegistros = sqldad.Fill(ds, “Publishers”)