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

Listado 5.9

Uso del método Clone de la clase DataTable.

Dim cn As SqlConnection

Dim cmd As SqlCommand

Dim Publishers As DataTable

Dim CopiaDePublishers as DataTable

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)

Publishers = New DataTable()

intRegistros = sqldad.Fill(Publishers)

CopiaDePublishers = Publishers.Clone()