DataTable XML

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von ChaosBernd.

    Dann muss Du die DataTable in ein DataSet packen und die ReadXml- bzw. WriteXml-Methode von DataSet nehmen.

    VB.NET-Quellcode

    1. Dim myDataSet As New DataSet("MyDataset")
    2. Dim myDataTable As DataTable = myDataSet.Tables.Add("MyDataTable")
    4. myDataSet.WriteXml("pfad", XmlWriteMode.WriteSchema)
    5. myDataSet.ReadXml("pfad", XmlReadMode.ReadSchema)

    Das war mal ein versuch von mir. ich wollte mal wiessen wie das läuft.
    schau einfach mal ob es ir hilft.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim ds As New DataSet
    3. Dim xmldatadoc As Xml.XmlDataDocument
    4. #Region "DataSet"
    5. ' Laden
    6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. ds.Clear()
    8. ds.ReadXml("H:\Test.xml") 'hier könnte das Dataset auch aus einer Datenbank geladen werden
    9. DataGridView1.DataSource = ds.Tables(0)
    10. DataGridView1.Columns.Item(0).Width = 100
    11. DataGridView1.Columns.Item(1).Width = 150
    12. DataGridView1.Columns.Item(2).Width = 150
    13. DataGridView1.Columns.Item(3).Width = 50
    14. End Sub
    15. ' Speichern
    16. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    17. ds.WriteXml("H:\Test.xml")
    18. End Sub
    19. #End Region
    20. #Region "XML Document"
    21. ' Laden
    22. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    23. xmldatadoc = New Xml.XmlDataDocument
    24. xmldatadoc.DataSet.ReadXml("H:\Test.xml") ' hier wird das DataSet direk über XML Read geladen
    25. DataGridView2.DataSource = xmldatadoc.DataSet.Tables(0)
    26. DataGridView2.Columns.Item(0).Width = 100
    27. DataGridView2.Columns.Item(1).Width = 150
    28. DataGridView2.Columns.Item(2).Width = 150
    29. DataGridView2.Columns.Item(3).Width = 50
    30. End Sub
    31. ' Speichern
    32. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    33. xmldatadoc.DataSet.WriteXml("H:\Test.xml")
    34. End Sub
    35. #End Region
    36. End Class

Facebook
Telefonspende