Problemer med XML fil og DataSet

Hvis det ellers kan laves på en anden og smartere måde må i da også godt komme med et svar til denne, da jeg ser det som samme problem stilling, da jeg ikke lige ved hvordan jeg skal håndtere filer med settings / info i forhold til et dataset, som skal bruges til at hente information ind i et listview felt.

Har du set på:

ds.ReadXML("minfil.xml")

og

ds.WriteXML("minfil.xml")

?

Nej men jeg skal også lige ha smidt det ind i et dataset og det er nok der mit største problem lige pt. er.. det er det dumme dataset, som driller mig helt vildt :(

Så jeg slettede bare al min dataset kode i går i ren frustration over dette :( så.... hjælp mig lidt i den rigtige retning .. om kring det at hente og skrive til og fra dataset over i XML filer og dataset.

jeg ved med database over til dataset bruger man dataset.fill(data) eller noget i den stil men jeg ved sku ikke når det er xml så er det lidt et større problem for mig.

Du kan læse fra XML ind i et data set med ReadXML metoden.

Hej Arne v

Det virkede sku efter jeg havde siddet og skumlet lidt.

Vil du lige smide et svar så du kan få nogle point ?

Til folk som vil se hvad løsningen er så ser det sådan ud :


    Public Overloads Function ReadXml(ByVal stream As Stream) As XmlReadMode

    End Function
    Private Sub DemonstrateReadWriteXMLDocumentWithFileStream()
        ' Create a DataSet with one table and two columns.
        Dim OriginalDataSet As New DataSet("myDataSet")
        Dim myTable As New DataTable("myTable")
        Dim c1 As New DataColumn("id", Type.GetType("System.Int32"))
        c1.AutoIncrement = True
        Dim c2 As New DataColumn("item")
        myTable.Columns.Add(c1)
        myTable.Columns.Add(c2)
        OriginalDataSet.Tables.Add(myTable)
        ' Add ten rows.
        Dim newRow As DataRow
        Dim i As Integer
        For i = 0 To 9
            newRow = myTable.NewRow()
            newRow("item") = "item " + i.ToString()
            myTable.Rows.Add(newRow)
        Next i
        OriginalDataSet.AcceptChanges()
        ' Print out values of each table in the DataSet using the
        ' function defined below.
        PrintValues(OriginalDataSet, "Original DataSet")
        ' Write the schema and data to XML file with FileStream.
        Dim xmlFilename As String = "myXmlDocument.xml"
        Dim fsWriteXml As New System.IO.FileStream _
          (xmlFilename, System.IO.FileMode.Create)
        ' Use WriteXml to write the XML document.
        OriginalDataSet.WriteXml(fsWriteXml)
        ' Close the FileStream.
        fsWriteXml.Close()

        ' Dispose of the original DataSet.
        OriginalDataSet.Dispose()
        ' Create a new DataSet.
        Dim newDataSet As New DataSet("New DataSet")

        ' Read the XML document back in.
        ' Create new FileStream to read schema with.
        Dim fsReadXml As New System.IO.FileStream _
          (xmlFilename, System.IO.FileMode.Open)

        newDataSet.ReadXml(fsReadXml)
        ' Print out values of each table in the DataSet using the
        ' function defined below.
        PrintValues(newDataSet, "New DataSet")
    End Sub


    Private Sub PrintValues(ByVal ds As DataSet, ByVal label As String)
        RichTextBox1.Text = (ControlChars.Cr + label)
        Dim t As DataTable
        Dim r As DataRow
        Dim c As DataColumn
        For Each t In ds.Tables
            RichTextBox1.Text = RichTextBox1.Text & ("TableName: " + t.TableName)
            For Each r In t.Rows
                For Each c In t.Columns
                    RichTextBox1.Text = RichTextBox1.Text & (ControlChars.Tab + " " + r(c).ToString())
                Next c
                '                Console.WriteLine()
            Next r
        Next t
    End Sub



Skal siges at jeg ændrede til Richtextbox istedet for Console.Write

så det er det eneste jeg har modificeret.

svar