Wie schreibe/lade ich mein Dataset zu/von XML

Question

Ich habe derzeit eine Tabelle bereit, um die Eingabe von einem Formular in meinem Stocklist App-System zu nehmen.

Ich möchte in der Lage sein, die Daten aus der Tabelle in eine XML-Datei zu speichern, die beim nächsten Öffnen des Programms geladen werden kann.

Der aktuelle Code verwende ich ist dies ...

Dim entryno As Integer = 1 
IDColumn.Table.WriteXml("C:\Users\User\Documents\Stocklist\XML\" & entryno & ".xml") 
entryno += 1 

Aber nichts geschaffen wird?

Mein Datensatz wird "StockdataDataSet.xsd" genannt

mein datierbar ist "DataTable1" genannt

Irgendwelche Vorschläge?

Answer 1

Hier ist ein sehr einfaches Beispiel mit fest codierten Daten, damit Sie sehen können, worüber ich gesprochen habe. Platzieren Sie in der Console.WriteLine einen Unterbrechungspunkt, und notieren Sie das DataSet.

Dim fileName As String = IO.Path.Combine(
    AppDomain.CurrentDomain.BaseDirectory, "MyData.xml") 

Dim ds As New DataSet 
Dim dt As New DataTable With {.TableName = "Person"} 
dt.Columns.Add(New DataColumn With {.ColumnName = "FirstName", .DataType = GetType(String)}) 
dt.Columns.Add(New DataColumn With {.ColumnName = "MiddleName", .DataType = GetType(String)}) 
dt.Columns.Add(New DataColumn With {.ColumnName = "LastName", .DataType = GetType(String)}) 

dt.Rows.Add(New Object() {"Karen", "Ann", "Payne"}) 
dt.Rows.Add(New Object() {"Kevin", "S", "Gallagher"}) 
dt.Rows.Add(New Object() {"Mary", "D", "Jones"}) 

ds.Tables.Add(dt) 

ds.WriteXml(fileName) 
Console.WriteLine("place a break point here") 
ds.Clear() 
ds.ReadXml(fileName) 
Console.WriteLine("place a break point here") 

Ergebnisse

<?xml version="1.0" standalone="yes"?> 
<NewDataSet> 
    <Person> 
    <FirstName>Karen</FirstName> 
    <MiddleName>Ann</MiddleName> 
    <LastName>Payne</LastName> 
    </Person> 
    <Person> 
    <FirstName>Kevin</FirstName> 
    <MiddleName>S</MiddleName> 
    <LastName>Gallagher</LastName> 
    </Person> 
    <Person> 
    <FirstName>Mary</FirstName> 
    <MiddleName>D</MiddleName> 
    <LastName>Jones</LastName> 
    </Person> 
</NewDataSet> 

Notiere die DataSet Namen NewDataSet, lassen Sie uns ändern, dass die Daten durch die Schaffung eingestellt als

Dim ds As New DataSet With {.DataSetName = "People"} 

Ergebnisse

<?xml version="1.0" standalone="yes"?> 
<People> 
    <Person> 
    <FirstName>Karen</FirstName> 
    <MiddleName>Ann</MiddleName> 
    <LastName>Payne</LastName> 
    </Person> 
    <Person> 
    <FirstName>Kevin</FirstName> 
    <MiddleName>S</MiddleName> 
    <LastName>Gallagher</LastName> 
    </Person> 
    <Person> 
    <FirstName>Mary</FirstName> 
    <MiddleName>D</MiddleName> 
    <LastName>Jones</LastName> 
    </Person> 
</People>