Listing 1: Inhalt eines XML-Dokuments mit einer Bestellung<\/p>\n
Voraussetzungen<\/h2>\n
Wenn Sie die Beispiele dieses Artikels nachvollziehen wollen, verwenden Sie entweder die Beispieldatenbank oder eine eigene Datenbank. Dieser fügen Sie dann einen Verweis auf die Bibliothek Microsoft XML, v6.0 <\/b>hinzu.<\/p>\nSchnelles Einlesen des XML-Dokuments<\/h2>\n
Da wir das XML-Dokument aus dem Listing in allen folgenden Beispielprozeduren einlesen müssen, lagern wir die dazu notwendigen Anweisungen in eine eigene Funktion namens DokumentEinlesen <\/b>aus.<\/p>\n
Diese finden Sie in Listing 2. Alle Aufgaben dieser Funktion haben wir bereits im Artikel XML-Dokumente mit VBA lesen <\/b>erläutert.<\/p>\n Listing 2: Funktion zum Einlesen des Inhalts von XML-Dokumenten<\/p>\n In den folgenden Prozeduren füllen wir einfach eine MSXML2.DOMDocument60<\/b>-Variable mit dem Ergebnis der Funktion DokumentEinlesen<\/b>.<\/p>\n Die Parameter, die wir den beiden Funktionen SelectNodes <\/b>oder SelectSingleNode <\/b>übergeben, werden in einer eigenen Sprache formuliert – in XPath<\/b>.<\/p>\n Wir schauen uns zunächst an, welche Daten uns die beiden Funktionen zurückliefern, wenn wir diesen gar keine Parameter übergeben.<\/p>\n Die Funktion selectSingleNode <\/b>funktioniert, wie wir schnell herausfinden, schon einmal nicht ohne Parameter. Sie erwartet mindestens die Angabe des Schrägstrichs als Zeichenkette:<\/p>\n Wenn wir mit dieser Prozedur auf das mit dem Ausdruck \/ <\/b>zu findende Element zugreifen, erhalten wir das vollständige XML-Dokument über die XML-Eigenschaft des gefundenen IXMLDOMNode<\/b>-Elements.<\/p>\n Aber handelt es sich hierbei überhaupt um ein IXMLDOMNode<\/b>-Element Das finden wir heraus, wenn wir die Variable objNode <\/b>als Object <\/b>deklarieren und den Objekttyp dann mit der Funktion Typename <\/b>ausgeben lassen:<\/p>\n Das Ergebnis lautet:<\/p>\n \/ <\/b>liefert also das vollständige Dokument zurück.<\/p>\n Wenn wir gezielt den Namen eines Elements angeben, in diesem Fall den des Root-Elements, dann liefert selectSingleNode <\/b>ein Element des Typs IXMLDOM-Element <\/b>und gibt den vollständigen Dokumentinhalt mit Ausnahme der Processing Instruction (das ist die Wenn wir über den Elementnamen auf ein Element zugreifen wollen, das nicht auf der ersten Ebene liegt, könnten wir das so probieren (die beiden Address<\/b>-Elemente liegen direkt unterhalb von PurchaseOrder<\/b>):<\/p>\n Wenn wir danach mit objNode.XML <\/b>auf den Inhalt zugreifen wollen, gelingt das nicht – wir erhalten dann die Fehlermeldung aus Bild 1.<\/p>\n Bild 1: Fehler beim Zugriff auf eine nicht gefüllte Objektvariable<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><font color=blue>Public Function <\/font>DokumentEinlesen()<font color=blue> As <\/font>MSXML2.DOMDocument60\r\n <font color=blue>Dim <\/font>strDatei<font color=blue> As String<\/font>\r\n <font color=blue>Dim <\/font>objXML<font color=blue> As <\/font>MSXML2.DOMDocument60\r\n strDatei = CurrentProject.Path & \"\\PurchaseOrder.xml\"\r\n <font color=blue>Set<\/font> objXML = <font color=blue>New<\/font> MSXML2.DOMDocument60\r\n objXML.Load strDatei\r\n <font color=blue>If <\/font><font color=blue>Not<\/font> <font color=blue>Len<\/font>(objXML.XML) = 0<font color=blue> Then<\/font>\r\n <font color=blue>Set<\/font> DokumentEinlesen = objXML\r\n <font color=blue>Else<\/font>\r\n <font color=blue>MsgBox<\/font> \"Fehler \" & objXML.parseError.errorCode & \": \" & objXML.parseError.reason\r\n <font color=blue>End If<\/font>\r\nEnd Function<\/span> <\/pre>\nXPath<\/h2>\n
selectSingleNode, einfache Variante<\/h2>\n
Public Sub <\/span>SelectNodesOhneParameter()\r\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument60\r\n Dim <\/span>objNode As <\/span>MSXML2.IXMLDOMNode\r\n Set<\/span> objXML = DokumentEinlesen\r\n Set<\/span> objNode = objXML.selectSingleNode(\"\/\")\r\n Debug.Print<\/span> objNode.XML\r\nEnd Sub<\/span><\/pre>\n...\r\nDim <\/span>objNode As Object<\/span> 'MSXML2.IXMLDOMNode\r\nSet<\/span> objXML = DokumentEinlesen\r\nSet<\/span> objNode = objXML.selectSingleNode(\"\/\")\r\nDebug.Print<\/span> TypeName(objNode)\r\n...<\/pre>\nDOMDocument60<\/pre>\n
selectSingleNode mit Elementname<\/h2>\n
Set<\/span> objNode = objXML.selectSingleNode(\"PurchaseOrder\")\r\nDebug.Print<\/span> TypeName(objNode)\r\nDebug.Print<\/span> objNode.XML<\/pre>\nAnderes Element per Elementname<\/h2>\n
Set<\/span> objNode = objXML.selectSingleNode(\"Address\")<\/pre>\n![\"Fehler](\"..\/tl_files\/images\/pic_465_001.png\")
<\/a><\/p>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t