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

Listado 5.19

Uso del método Copy de la clase DataSet.

Dim cn As SqlConnection

Dim cmd As SqlCommand

Dim miDataSet As DataSet

Dim CopiaDeDataSet 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)

miDataSet = New DataSet()

intRegistros = sqldad.Fill(miDataSet)

CopiaDeDataSet = miDataSet.Copy()