Kopiere database over i et dataset

Imports System
Imports System.Collections.Generic
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO

Namespace E
    Public Class Program
        Public Shared Sub Dump(ds As DataSet, tw As TextWriter)
            For Each dt As DataTable In ds.Tables
                tw.WriteLine(dt.TableName)
                For Each dr As DataRow In dt.Rows
                    For Each val As Object In dr.ItemArray
                        tw.Write(" " & Convert.ToString(val))
                    Next
                    tw.WriteLine()
                Next
            Next
        End Sub
        Public Shared Function Load(con As SqlConnection) As DataSet
            Dim tblnams As New List(Of String)()
            Using sel As New SqlCommand("SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES", con)
                Using rdr As SqlDataReader = sel.ExecuteReader()
                    While rdr.Read()
                        tblnams.Add(DirectCast(rdr("TABLE_NAME"), String))
                    End While
                End Using
            End Using
            Dim ds As New DataSet()
            For Each tblnam As String In tblnams
                Dim dt As New DataTable(tblnam)
                Using sel As New SqlCommand("SELECT * FROM " & tblnam, con)
                    Using rdr As SqlDataReader = sel.ExecuteReader()
                        dt.Load(rdr)
                    End Using
                End Using
                ds.Tables.Add(dt)
            Next
            Return ds
        End Function
        Public Shared Sub Main(args As String())
            Using con As New SqlConnection(("Server=ARNEPC4\SQLEXPRESS;Database=Test;Trusted_Connection=True"))
                con.Open()
                Dim ds As DataSet = Load(con)
                Dump(ds, Console.Out)
            End Using
            Console.ReadKey()
        End Sub
    End Class
End Namespace