Ich habe folgendes Problem, bei der Programmierung von Pocket PCs gibt es kein SelectSingleNode, mit dem ich meine Variable auf mein ausgewähltes Child setze und ab dort meine XML-Dateien in mein Listview schreiben kann!
Gibt es vielleicht irgendeine andere Möglichkeit ein selbst zu bestimmendes Child anzuwählen, bzw. dann in eine Variable schreiben kann!
Ich geb euch mal meinen Quelltext:
Dim Datensatz As New Xml.XmlDocument
Datensatz.Load("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Projekt Pocket PC\Pocket PC\Daten.xml")
'XML Datei wird von "C:\" geladen
Dim Anfang As Xml.XmlNode
Anfang = Datensatz.selectsinglenode ("/Patienten/patient") 'hier sollte eigentlich Anfang auf das erste Child patient gesetzt werden 'Anfang wird auf das Child patient gesetzt
Dim start As Xml.XmlNode
Dim i As Integer
Dim a As Integer
While (Not IsNothing(Anfang)) 'While schleife, wo alle Daten nach und
start = Anfang.FirstChild 'nach aus der XML-Datei gelesen werden With lsvPatDaten.Items.Add(Anfang.ChildNodes.ItemOf(0).InnerText) 'Einfügen in die Spalten
.SubItems.Add(Anfang.ChildNodes.ItemOf(1).InnerText)
.SubItems.Add(Anfang.ChildNodes.ItemOf(2).InnerText)
.SubItems.Add(Anfang.ChildNodes.ItemOf(3).InnerText)
.SubItems.Add(Anfang.ChildNodes.ItemOf(4).InnerText)
End With
Anfang = Anfang.NextSibling 'Hier springt die Schleife zum nächsten Child End While
Gibt es vielleicht irgendeine andere Möglichkeit ein selbst zu bestimmendes Child anzuwählen, bzw. dann in eine Variable schreiben kann!
Ich geb euch mal meinen Quelltext:
Dim Datensatz As New Xml.XmlDocument
Datensatz.Load("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Projekt Pocket PC\Pocket PC\Daten.xml")
'XML Datei wird von "C:\" geladen
Dim Anfang As Xml.XmlNode
Anfang = Datensatz.selectsinglenode ("/Patienten/patient") 'hier sollte eigentlich Anfang auf das erste Child patient gesetzt werden 'Anfang wird auf das Child patient gesetzt
Dim start As Xml.XmlNode
Dim i As Integer
Dim a As Integer
While (Not IsNothing(Anfang)) 'While schleife, wo alle Daten nach und
start = Anfang.FirstChild 'nach aus der XML-Datei gelesen werden With lsvPatDaten.Items.Add(Anfang.ChildNodes.ItemOf(0).InnerText) 'Einfügen in die Spalten
.SubItems.Add(Anfang.ChildNodes.ItemOf(1).InnerText)
.SubItems.Add(Anfang.ChildNodes.ItemOf(2).InnerText)
.SubItems.Add(Anfang.ChildNodes.ItemOf(3).InnerText)
.SubItems.Add(Anfang.ChildNodes.ItemOf(4).InnerText)
End With
Anfang = Anfang.NextSibling 'Hier springt die Schleife zum nächsten Child End While
