DataSet Tabelle hinzufügen


Peter Parker

Mitglied
Hallo,

ich habe eine DataGrid mit DataSet und einer befüllten DataTable. Dort habe ich Spalten und Zeilen eingefügt.
Code:
Imports System.Windows.Forms.DataGrid
Imports System.Data
Imports System.IO

Public Class Form1

    Dim ds As DataSet                            'Container fuerTabelle

    Private Sub form1_load(ByVal sender As Object, _
                             ByVal e As System.EventArgs) _
                             Handles Me.Load
        'init()
        test("Zeiletest")
    End Sub


    '*** init() *********************************
    Private Sub init()

        Dim dt As New DataTable("meineTabelle")  'Tabelle fuer Inhalt

        ds = New DataSet()                   'Container fuer Tabelle
        dt.Columns.Add(New DataColumn("fsdfsd")) 'Tabelle, neue Spalte hinzufügen
        ds.Tables.Add(dt)                    'Container Tabelle hinzufügen

        With DataGridView1
            .DataSource = ds
            .DataMember = "meineTabelle"
        End With

        For i As Integer = 0 To 10
            updateUI_ImplAddRow("dsd" & i)
        Next

        ds.AcceptChanges()


    End Sub 'Ende updateUI_Impl()


    '*** updateUI_ImplAddRow() ************************
    Private Sub updateUI_ImplAddRow(ByVal tmp As String)

        Dim i As Integer

        Try

            Dim rw As DataRow = ds.Tables(0).NewRow 'Neue Zeile erstellen
            rw(i) = tmp
            ds.Tables(0).Rows.Add(rw)             'Zeile hinzufuegen

        Catch except As Exception
            MsgBox(except.Message)
        End Try

    End Sub
End Class

Das klappt auch wunderbar. Nur möchte ich jetzt noch neue Zeilen hinzufügen. Nicht aber immer Zeile für Zeile, sondern am besten gleich eine ganze Tabelle.


Code:
   Private Sub addTable(ByVal tmp As String)

        Dim newRow As DataRow

        Try

            mdt = New DataTable("meineTabelle")  'Tabelle fuer Inhalt
            ds = New DataSet()                   'Container fuer Tabelle

            mdt.Columns.Add(New DataColumn("Spalte")) 'Spalte hinzufügen

            newRow = mdt.NewRow("Zeile")
            mdt.Rows.Add(newRow)

            ds.Tables.Add(mdt)                   'Container Tabelle hinzufügen
            DataGridView1.DataSource = ds
            DataGridView1.DataMember = "meineTabelle"


        Catch except As Exception
            MsgBox(except.Message)
        End Try

    End Sub

Sinn und Zweck: Ich möchte eine Tabelle anzeigen. Während diese angezeigt wird, sollen die restlichen Daten in einer neuen Tabelle solange geladen werden. Scrollt nun der Anwender, dann wird die neue Tabelle an die alte angefügt.
Kann mir vielleicht jemand helfen?
Danke
 

Neue Beiträge