<\/p>\n
Im Beitrag XML-Dokumente mit SAX parsen haben wir die Grundlagen ds SAX-Parsers vorgestellt. Dabei sind wir soweit gekommen, dass wir den kompletten Inhalt einer XML-Datei im Direktbereich des VBA-Editors ausgegeben haben. Das kann natürlich nicht alles sein: Die Daten sollen ja in der Regel in den Tabellen der Datenbank landen. Den Ereignisprozeduren, welche das XML-Dokument sequenziell durchlaufen, müssen wir dabei natürlich noch die eine oder andere zusätzliche Anweisung hinzufügen, damit die Daten an der gewünschten Stelle gespeichert werden.<\/b><\/p>\n
Das sequenzielle Einlesen einer XML-Datei und die Ausgabe der gefundenen Daten ist bereits ein guter Startpunkt. Aber wie machen wir dann weiter, um die Daten, die ja meist in mehreren Datensätzen landen sollen, in eine entsprechende Tabelle zu schreiben<\/p>\n
Mit dem DOM-Parser war das relativ einfach: Man hat beispielsweise alle Kunde<\/b>-Elemente mit der SelectNodes<\/b>-Methode identifiziert und diese dann durchlaufen, wobei für jedes Element ein neuer Datensatz angelegt wurde. Die einzelnen Daten konnte man dann einfach über die entsprechenden Objekte einlesen.<\/p>\n
Beim SAX-Parser ist dies völlig anders: Hier kann man nicht mal eben alle Kunde-Elemente durchlaufen. Genau genommen kann der SAX-Parser nur entweder alle Elemente durchlaufen €“ oder gar keines.<\/p>\n
Dabei werden dann immer die gleichen Ereignisprozeduren ausgelöst, in denen wir lediglich mit den per Parameter übermittelten Daten arbeiten können.<\/p>\n
Genau genommen liefert jede Ereignisprozedur für sich noch nicht einmal ausreichend Informationen, um die Inhalte der Elemente den richtigen Elementen zuordnen zu können. Darum müssen wir uns selbst kümmern.<\/p>\n
Beispieldaten<\/b><\/p>\n
Im ersten Beispiel wollen wir die Daten aus der XML-Datei Kunden.xml <\/b>einlesen (s. Listing 1).<\/p>\n Listing 1: Beispiel eines XML-Dokuments mit Kundendaten<\/span><\/b><\/p>\n Diese sollen in der Tabelle tblKunden <\/b>landen, die lediglich ein Primärschlüsselfeld namens KundeID <\/b>sowie zwei Textfelder namens Vorname <\/b>und Nachname <\/b>enthält (s. Bild 1).<\/p>\n Bild 1: Die Tabelle tblKunden<\/span><\/b><\/p>\n Wir verwenden an dieser Stelle das bereits im Beitrag XML-Dokumente mit SAX parsen <\/b>verwendete Formular namens frmSAX<\/b>, um den Einlesevorgang zu starten. Dieses Formular bietet die Möglichkeit, eine Datei auszuwählen und per Mausklick den Einlesevorgang auszulösen (s. Bild 2).<\/p>\n Bild 2: Formular zum Starten des Einlesevorgangs<\/span><\/b><\/p>\n Die Schaltfläche cmdEinlesen<\/b> löst die Prozedur aus Listing 2 aus. Diese verwendet die Klasse clsSAX<\/b>, welche die Ereignisprozeduren der Schnittstelle MSXML2.IVBSAXContentHandler <\/b>implementiert. In diese Ereignisprozeduren schreiben wir nachfolgend den Code, der zum Einlesen der Daten aus der XML-Datei Kunden.xml <\/b>benötigt wird.<\/p>\n Listing 2: Start des Einlesevorgangs<\/span><\/b><\/p>\n Dazu benötigen wir prinzipiell die folgenden Ereignisprozeduren:<\/p>\n Damit begeben wir uns an die Arbeit. Beachten Sie, dass Sie €“ auch wenn wir nur einige der verfügbaren Ereignisse verwenden €“ alle Ereignisse der Schnittstelle implementieren müssen.<\/p>\n Deklarationen<\/b><\/p>\n Zunächst benötigen wir einige Deklarationen für Objekte, die von mehreren der Ereignisprozeduren verwendet werden. Da wäre zum Beispiel das Database<\/b>-Objekt, das in der Prozedur IVBSAXContentHandler_startDocument <\/b>gefüllt und in IVBSAXContentHandler_endDocument <\/b>wieder geleert werden soll. Daher landet die Deklaration im Kopf des Klassenmoduls clsSAX<\/b>:<\/p>\n Desweiteren benötigen wir ein Recordset, das wir in startDocument <\/b>erstellen, in startElement <\/b>mit einem neuen Datensatz füllen, dessen Felder in IVBSAXContentHandler_characters <\/b>ihre Werte erhalten, das in IVBSAXContentHandler_endElement <\/b>gespeichert und das in IVBSAXContentHandler_endDocument <\/b>geschlossen wird:<\/p>\n Schließlich fehlt noch eine Variable, mit der wir uns merken können, welches Element gerade in IVBSAXContentHandler_startElement <\/b>durchlaufen wurde:<\/p>\n Start des Dokuments<\/b><\/p>\n Das Ereignis IVBSAXContentHandler_startDocument <\/b>implementieren wir wie in Listing 3. Diese Prozedur füllt zunächst die Variable db<\/b> mit einem Verweis auf die aktuelle Datenbank. Die Recordset<\/b>-Variable rstKunden <\/b>füllen wir mit der OpenRecordset<\/b>-Methode, die ein Recordset mit allen Datensätzen der Tabelle tblKunden <\/b>zurückliefert. Dies alles fassen wir in eine rudimentäre Fehlerbehandlung ein, damit wir Fehler gleich an Ort und Stelle untersuchen können.<\/p>\n Listing 3: Start des Dokuments<\/span><\/b><\/p>\n Start eines Elements<\/b><\/p>\n Danach wird als nächste für uns interessante Ereignisprozedur IVBSAXContentHandler_startElement <\/b>ausgelöst (s. Listing 4).<\/p>\n Listing 4: Start eines Elements<\/span><\/b><\/p>\n Hier prüfen wir zunächst in einer Select Case<\/b>-Bedingung, welches Element an der Reihe ist. Als Erstes wird hier das Element Kunden <\/b>erscheinen, um das wir uns aber an dieser Stelle nicht zu kümmern brauchen €“ dies wird erst interessant, wenn ein XML-Dokument mehrerer solcher Hauptelemente enthält (wie Kunden, Artikel, Bestellungen et cetera).<\/p>\n Danach folgt das Element Kunde <\/b>und wir beginnen, den ersten Kunden in der Tabelle tblKunden <\/b>einzufügen.<\/p>\n Der entsprechende Zweig der Select Case<\/b>-Bedingung ermittelt zunächst den Wert des Attributs KundeID <\/b>€“ das ja in diesem Element enthalten ist:<\/p>\n Dazu verwendet es die Funktion getValue-FromName <\/b>des mitgelieferten Parameters oAttributes <\/b>und übergibt den Namen des Attributs (hier KundeID<\/b>) als zweiten Parameter. Wir wollen Kundendatensätze, deren KundeID<\/b> bereits vergeben ist, einfach löschen und neu füllen. Je nach Anforderungen werden Sie diesen Sachverhalt anders programmieren wollen. Dann legt die Prozedur mit der AddNew<\/b>-Methode einen neuen Datensatz in der Tabelle tblKunden <\/b>an. Da wir den Primärschlüsselwert bereits kennen, fügen wir diesen für das Feld KundeID<\/b> ein (dieses darf zu diesem Zweck nicht als Autowert definiert sein).<\/p>\n Außerdem stellen wir die Variable strFeld <\/b>auf eine leere Zeichenkette ein.<\/p>\n Später wird diese Prozedur für die Elemente Vorname<\/b> und Nachname <\/b>ausgelöst. In diesem Fall müssen wir natürlich keinen neuen Datensatz anlegen.<\/p>\n Wir können auch die Werte noch nicht eintragen, da diese ja erst in der Ereignisprozedur IVBSAXContentHandler_characters <\/b>übermittelt werden.<\/p>\n Aber damit wir später beim Auslösen der Prozedur IVBSAXContentHandler_characters <\/b>wissen, zu welchem Feld die enthaltenen Werte gehören, merken wir uns nun mithilfe der Variablen strFeld <\/b>den Namen des Elements €“ also entweder Vorname <\/b>oder Nachname<\/b>.<\/p>\n Inhalt eines Elements einlesen<\/b><\/p>\n Damit geht es gleich weiter mit der Ereignisprozedur IVBSAXContentHandler_characters<\/b> (s. Listing 5). Diese Prozedur erhält mit dem Parameter strChars <\/b>den Inhalt des Elements.<\/p>\n Listing 5: Einlesen des Wertes eines Elements<\/span><\/b><\/p>\n Dabei kann es sich auch um Zeilenumbrüche oder Einschübe handeln, wenn das aktuelle Element weitere Unterelemente enthält.<\/p>\n Angenommen, das XML-Dokument ist an dieser Stelle wie folgt aufgebaut:<\/p>\n Dann folgt nach dem Element Kunde <\/b>zuerst ein Aufruf der Prozedur IVBSAXContentHandler_characters<\/b>, bei der strChars <\/b>den Zeilenumbruch von der Zeile <Kunde… <\/b>zur Zeile <Vorname <\/b>enthält.<\/p>\n Dann folgt ein weiterer Aufruf der Prozedur IVBSAXContentHandler_characters<\/b>, welcher mit dem Parameter strChars <\/b>die Einrückung des Textes <Vorname… <\/b>enthält (also etwa einige Leerzeichen oder ein Tabulator-Zeichen).<\/p>\n Wenn Sie ein XML-Dokument verwenden, das um Zeilenumbrüche und Einschübe bereinigt ist, entfallen diese zahlreichen Aufrufe der Ereignisporzedur IVBSAXContentHandler_characters<\/b> jedoch €“ dies dürfte sich positiv auf die Performance auswirken.<\/p>\n Solche Zeichen ignorieren wir jedoch, indem wir in einer Select Case<\/b>-Bedingung den Wert der Variablen strFeld <\/b>prüfen. Dabei wird die Prozedur nur tätig, wenn strFeld <\/b>entweder den Wert Vorname <\/b>oder Nachname <\/b>enthält. In diesem Fall füllt die Prozedur das jeweilige Feld des Recordsets rstKunden <\/b>mit dem per strChars <\/b>übergebenen Wert.<\/p>\n Ende eines Elements<\/b><\/p>\n Die Ereignisprozedur IVBSAXContentHandler_endElement <\/b>wird jeweils ausgelöst, wenn der SAX-Parser auf ein Element mit <\/… <\/b>stößt (s. Listing 6). In unserem Beispiel geschieht dies zum ersten Mal mit dem Element <\/Vorname><\/b>, dann mit <\/Nachname><\/b>. Hier geschieht nichts, da die Prozedur in einer Select Case<\/b>-Bedingung lediglich den Fall des Elements Kunde <\/b>berücksichtigt.<\/p>\n Listing 6: Bearbeitung des Ende-Tags eines Elements<\/span><\/b><\/p>\n Dies bedeutet, dass das komplette Kunde<\/b>-Element samt enthaltenen Feldern abgearbeitet wurde und der Datensatz gespeichert werden kann. Dies erledigt die Prozedur mit der Update<\/b>-Methode des Recordset<\/b>-Objekts.<\/p>\n Ende des Dokuments<\/b><\/p>\n Nachdem alle Elemente eingelesen wurden, löst der SAX-Parser schließlich noch die Ereignisprozedur IVBSAXContentHandler_endDocument <\/b>aus (s. Listing 7). Hier brauchen wir nur noch das geöffnete Recordset zu schließen und die Variablen db <\/b>und rstKunden <\/b>zu leeren.<\/p>\n Listing 7: Abschluss des Einlesevorgangs<\/span><\/b><\/p>\n Ein Blick in die Tabelle tblKunden <\/b>zeigt, dass die Daten erfolgreich gespeichert wurden (s. Bild 3).<\/p>\n Bild 3: Die Tabelle tblKunden mit einigen Beispieldaten<\/span><\/b><\/p>\n Speichern in eine Tabelle mit Autowert-Feld<\/b><\/p>\n Nun hat man nicht immer die Gelegenheit, die Zieltabelle selbst zu definieren. Während wir hier also der Einfachheit halber den Primärschlüsselwert nicht als Autowert definiert haben, ist dies normalerweise nicht der Fall.<\/p>\n Wie aber bekommen wir den Primärschlüsselwert, hier aus dem Attribut KundeID <\/b>der Kunde<\/b>-Elemente, in das Primärschlüsselfeld Legen wir doch als Erstes eine Kopie der Tabelle tblKunden <\/b>unter dem Namen tblKundenMitAutowert <\/b>an und ändern dort den Felddatentyp des Feldes KundeID <\/b>auf Autowert (s. Bild 4).<\/p>\n Bild 4: Die Tabelle tblKunden mit Autowert als Primärschlüssel<\/span><\/b><\/p>\n Außerdem fügen wir dem Formular frmSAX <\/b>eine weitere Schaltfläche namens cmdEinlesenMitAutowert <\/b>hinzu. Diese löst die Prozedur aus Listing 8 aus. Der Unterschied zu der Prozedur der anderen Schaltfläche ist, dass wir hier die neu erstellte Klasse clsSAXMitAutowert <\/b>referenzieren. Schließlich kopieren wir die Klasse clsSAX <\/b>in eine neue Klasse namens clsSAXMitAutowert<\/b>. <\/p>\n <\/p>\n Listing 8: Einlesen der gleichen Datei, diesmal in eine Tabelle mit Autowert-Feld<\/span><\/b><\/p>\n Danach wollen wir uns ansehen, ob wir die Tabelle mit dem Autowert im Primärschlüsselfeld nicht einfach genauso füllen können wie im vorherigen Beispiel (s. Listing 9). Und siehe da: Es klappt ohne Probleme! Sie müssen bei einem Autowert-Feld also nicht unbedingt den Autowert nutzen, sondern können auch neue Datensätze mit eigenem Primärschlüsselwert einfügen.<\/p>\n Listing 9: änderungen in der Klasse clsSAXMitAutowert, um die Daten in eine andere Tabelle einzulesen<\/span><\/b><\/p>\n Einlesen von XML-Dateien mit Lookup-Daten<\/b><\/p>\n Im folgenden Beispiel sehen wir uns an, wie wir mit dem SAX-Parser arbeiten, um Daten aus einem XML-Dokument in Tabellen mit Lookup-Tabelle zu importieren. Dazu haben wir die Beispieldatei um das Element Anrede <\/b>erweitert, das zum Beispiel die Werte Herr <\/b>oder Frau <\/b>aufnimmt. Das Dokument haben wir unter dem Namen KundeMitAnrede.xml <\/b>gespeichert (s. Listing 10).<\/p>\n Listing 10: Die Anrede soll in einem Fremdschlüsselfeld landen.<\/span><\/b><\/p>\n Die Zieltabellen sehen wie in Bild 5 aus. Die Tabelle tblKundenMitAnrede <\/b>ist dabei über das Fremdschlüsselfeld AnredeID <\/b>mit dem gleichnamigen Primärschlüsselfeld der Tabelle tblAnreden <\/b>verknüpft. Ziel ist es nun, eine neue Klasse clsSAXMitLookupTabelle <\/b>zu programmieren, welche die Anreden <\/b>aus dem Element Anrede <\/b>direkt in die Tabelle einträgt und den neuen Primärschlüsselwert nutzt. Dies soll natürlich nur geschehen, wenn der Wert noch nicht in der Tabelle tblAnreden <\/b>enthalten ist. Anderenfalls soll die Prozedur einfach den Primärschlüsselwert des entsprechenden Datensatzes der Tabelle <xml version=\"1.0\" encoding=\"utf-8\">\r\n<Kunden xmlns:xsi=\"http:\/\/www.w3.org\/2001\/XMLSchema-instance\" \r\n xmlns:xsd=\"http:\/\/www.w3.org\/2001\/XMLSchema\">\r\n <Kunde KundeID=\"123\">\r\n <Vorname>André<\/Vorname>\r\n <Nachname>Minhorst<\/Nachname>\r\n <\/Kunde>\r\n <Kunde KundeID=\"124\">\r\n <Vorname>Hermann<\/Vorname>\r\n <Nachname>Müller<\/Nachname>\r\n <\/Kunde>\r\n <Kunde KundeID=\"125\">\r\n <Vorname>Klaus<\/Vorname>\r\n <Nachname>Meier<\/Nachname>\r\n <\/Kunde>\r\n<\/Kunden><\/pre>\n
![\"Die](\"..\/fileadmin\/_temp_\/2015_01\/pic_970_001.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2015_01\/pic_970_002.png\")
<\/p>\nPrivate Sub <\/span>cmdEinlesen_Click()\r\n Dim <\/span>objReader As <\/span>SAXXMLReader60\r\n Dim <\/span>objSax As <\/span>clsSAX\r\n Set<\/span> objReader = New<\/span> SAXXMLReader60\r\n Set<\/span> objSax = New<\/span> clsSAX\r\n Set<\/span> objReader.contentHandler = objSax\r\n objReader.parseURL Me!txtDatei\r\n Set<\/span> objReader = Nothing\r\nEnd Sub<\/span><\/pre>\n\n
Dim <\/span>db As <\/span>DAO.Database<\/pre>\nDim <\/span>rstKunden As <\/span>DAO.Recordset<\/pre>\nDim <\/span>strFeld As String<\/span><\/pre>\nPrivate Sub <\/span>IVBSAXContentHandler_startDocument()\r\n On Error Resume Next<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstKunden = db.OpenRecordset(\"SELECT * FROM tblKunden\", dbOpenDynaset)\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n MsgBox<\/span> Err.Number & \" \" & Err.Description\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>IVBSAXContentHandler_startElement(strNamespaceURI As String<\/span>, _\r\n strLocalName As String<\/span>, strQName As String<\/span>, _\r\n ByVal oAttributes As <\/span>MSXML2.IVBSAXAttributes)\r\n Dim <\/span>lngKundeID As Long<\/span>\r\n On Error Resume Next<\/span>\r\n Select Case strLocalName\r\n Case <\/span>\"Kunde\"\r\n lngKundeID = oAttributes.getValueFromName(\"\", \"KundeID\")\r\n db.Execute \"DELETE FROM tblKunden WHERE KundeID = \" & lngKundeID, _\r\n dbFailOnError\r\n rstKunden.AddNew<\/span>\r\n rstKunden!KundeID = lngKundeID\r\n strFeld = \"\"\r\n Case <\/span>\"Vorname\", \"Nachname\"\r\n strFeld = strLocalName\r\n Case Else<\/span>\r\n strFeld = \"\"\r\n End Select<\/span>\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n MsgBox<\/span> Err.Number & \" \" & Err.Description\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\nEnd Sub<\/span><\/pre>\n <Kunde KundeID=\"123\"><\/pre>\n
Private Sub <\/span>IVBSAXContentHandler_characters(strChars As String<\/span>)\r\n On Error Resume Next<\/span>\r\n Select Case strFeld\r\n Case <\/span>\"Vorname\"\r\n rstKunden!Vorname = strChars\r\n Case <\/span>\"Nachname\"\r\n rstKunden!Nachname = strChars\r\n End Select<\/span>\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n MsgBox<\/span> Err.Number & \" \" & Err.Description\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\nEnd Sub<\/span><\/pre>\n <Kunde KundeID=\"123\">\r\n <Vorname>André<\/Vorname><\/pre>\n
Private Sub <\/span>IVBSAXContentHandler_endElement(strNamespaceURI As String<\/span>, _\r\n strLocalName As String<\/span>, strQName As String<\/span>)\r\n On Error Resume Next<\/span>\r\n Select Case strLocalName\r\n Case <\/span>\"Kunde\"\r\n rstKunden.Update\r\n End Select<\/span>\r\n strFeld = \"\"\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n MsgBox<\/span> Err.Number & \" \" & Err.Description\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>IVBSAXContentHandler_endDocument()\r\n On Error Resume Next<\/span>\r\n rstKunden.Close\r\n Set<\/span> rstKunden = Nothing\r\n Set<\/span> db = Nothing\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n MsgBox<\/span> Err.Number & \" \" & Err.Description\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2015_01\/pic_970_003.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2015_01\/pic_970_004.png\")
<\/p>\nPrivate Sub <\/span>cmdEinlesenMitAutowert_Click()\r\n Dim <\/span>objReader As <\/span>SAXXMLReader60\r\n Dim <\/span>objSax As <\/span>clsSAXMitAutowert\r\n Set<\/span> objReader = New<\/span> SAXXMLReader60\r\n Set<\/span> objSax = New<\/span> clsSAXMitAutowert\r\n Set<\/span> objReader.contentHandler = objSax\r\n objReader.parseURL Me!txtDatei\r\n Set<\/span> objReader = Nothing\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>IVBSAXContentHandler_startDocument()\r\n ...\r\n Set<\/span> rstKunden = db.OpenRecordset(\"SELECT * FROM tblKundenMitAutowert\", dbOpenDynaset)\r\n ...\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>IVBSAXContentHandler_startElement(strNamespaceURI As String<\/span>, strLocalName As String<\/span>, strQName As String<\/span>, _\r\n ByVal oAttributes As <\/span>MSXML2.IVBSAXAttributes)\r\n ...\r\n db.Execute \"DELETE FROM tblKundenMitAutowert WHERE KundeID = \" & lngKundeID, dbFailOnError\r\n ...\r\nEnd Sub<\/span><\/pre>\n<xml version=\"1.0\" encoding=\"utf-8\">\r\n<Kunden xmlns:xsi=\"http:\/\/www.w3.org\/2001\/XMLSchema-instance\" \r\n xmlns:xsd=\"http:\/\/www.w3.org\/2001\/XMLSchema\">\r\n <Kunde KundeID=\"123\">\r\n <Anrede>Herr<\/Anrede>\r\n <Vorname>André<\/Vorname>\r\n <Nachname>Minhorst<\/Nachname>\r\n <\/Kunde>\r\n <Kunde KundeID=\"124\">\r\n <Anrede>Herr<\/Anrede>\r\n <Vorname>Hermann<\/Vorname>\r\n <Nachname>Müller<\/Nachname>\r\n <\/Kunde>\r\n <Kunde KundeID=\"125\">\r\n <Anrede>Frau<\/Anrede>\r\n <Vorname>Claudia<\/Vorname>\r\n <Nachname>Meier<\/Nachname>\r\n <\/Kunde>\r\n<\/Kunden><\/pre>\n