<\/p>\n
XML-Dateien bieten die Möglichkeit, Daten in hierarchischer Struktur im Textformat abzulegen. Die daraus entstehenden Dateien liefern im Wesentlichen eine Möglichkeit zum Austauschen von Daten. Dieser Beitrag zeigt, wie Sie dieses Format zum Austauschen oder Sammeln von Daten zwischen Access-Datenbanken mit identischem Datenmodell einsetzen.<\/b><\/p>\n<\/div>\n XML als Austauschformat<\/b><\/p>\n Den Einsatz von XML als Datenaustauschformat rechtfertigen einige Szenarios. In den meisten Fällen ist dabei Maßarbeit angesagt: Es kann beispielsweise sein, dass eine andere Anwendung eine Spezifikation bereitstellt, die das Format zu importierender XML-Daten definiert. Die Wahrscheinlichkeit, dass Access – egal in welcher Version – den Export automatisch im gewünschten Format vornimmt, ist gering. Also legen Sie selbst Hand an und erzeugen entweder direkt mit der XML-Bibliothek von Microsoft ein entsprechendes XML-Dokument oder Sie schneiden die von Access ausgegebene Datei auf die Zielanwendung zu.<\/p>\n Genauso kann es auch andersherum geschehen: Eine externe Anwendung liefert Daten in einem bestimmten XML-Schema, die Sie gern in Ihre Access-Datenbank importieren möchten. Auch hier können Sie die Daten per XSL entsprechend modifizieren oder direkt eine passende VBA-Routine entwickeln, die aus der Ausgangsdatei die benötigten Daten herausliest.<\/p>\n Unter Umständen sind die Ziel- und die Quellanwendung identisch – zumindest in Bezug auf das Datenmodell: So könnte es beispielsweise sein, dass Außendienstmitarbeiter bei Kundenbesuchen oder daheim am Telefon Daten zu Kunden oder Bestellungen aufnehmen. Zum Synchronisieren der Daten mit der zentralen Datenbank, die etwa auf einem Rechner in der Geschäftsstelle liegt, gibt es dann verschiedene Wege – beispielsweise das direkte Schreiben der Daten über eine passende ODBC-Verbindung.<\/p>\n Ist die Menge der Daten überschaubar, kann aber auch eine XML-Datei als Träger der auszutauschenden Informationen herhalten – zum Beispiel als Inhalt einer E-Mail oder als Anhang einer solchen. Natürlich kann man solche XML-Dateien auch per FTP oder mit einem anderen Protokoll über einen Webserver austauschen.<\/p>\n Der zuletzt geschilderte Fall steht in diesem Beitrag im Mittelpunkt: Aus einer Datenbank sollen zunächst die Daten einer oder mehrerer Tabellen in eine XML-Datei exportiert und dann in eine weitere Datenbank mit gleichem Aufbau importiert werden. Prinzipiell sind damit natürlich auch die ersten beiden Varianten abgedeckt – immerhin benötigen Sie hier ja jeweils einen Export, der auf das von der Zielanwendung benötigte XML-Schema abzielt und umgekehrt.<\/p>\n Beispieldatenbank<\/b><\/p>\n Als Beispieldatenbank dient die modifizierte Nordwind-Datenbank. Modifiziert deshalb, weil die bei den meisten Entwicklern gängige Konvention für die Benennung von Tabellen und Feldern angewendet wurde.<\/p>\n Sie enthält neben den üblichen Tabellen auch noch eine Kopie aller Tabellen, deren Name um den Zusatz 1 erweitert ist – auf diese Weise benötigen Sie zum Experimentieren mit den Beispielen dieses Beitrags nicht mehrere Datenbanken.<\/p>\n Von der Tabelle in das XML-Dokument<\/b><\/p>\n Die Abbildung einfacher Tabellen in XML-Dokumenten ist nicht besonders schwierig. Die Tabelle aus Bild 1 etwa ließe sich beispielsweise so abbilden:<\/p>\n Bild 1: Eine einfache, als XML-Dokument abzubildende Tabelle<\/span><\/b><\/p>\n<\/div>\n Dabei entspricht jeder Datensatz einem Kontakt-Element und jedes Feld einem weiteren Element mit einem Text-Wert.<\/p>\n Es gibt noch weitere Varianten, Daten aus Tabellen in XML-Dokumenten unterzubringen. Dabei entspricht wiederum je ein Kontakt-Element einem Datensatz, allerdings werden die Feldinhalte nun nicht in eigenen Elementen, sondern in Eigenschaften des Kontakt-Elements gespeichert:<\/p>\n Die beiden Varianten lassen sich auch derart kombinieren, dass die Geschäftsdaten in eigenen Elementen und die ID, die nur der eindeutigen Identifizierung des Datensatzes dient, in einer Eigenschaft gespeichert werden:<\/p>\n Daneben gibt es sicher noch viel allgemeinere Schemata für das Speichern von Tabelleninhalten in XML-Dateien. Diese sollen jedoch aus Platzgründen hier nicht näher beleuchtet werden.<\/p>\n 1:n-Beziehungen<\/b><\/p>\n Ein wenig interessanter wird es, wenn Beziehungen und damit verknüpfte Daten ins Spiel kommen. Wie stellt man beispielsweise eine 1:n-Beziehung in einem XML-Dokument dar Erweitern wir das obige Beispiel um eine kleine Tabelle namens tblAnreden<\/b>, die zwei Felder namens AnredeID <\/b>und Anrede <\/b>enthält und die von der Tabelle tblKontakte <\/b>über das Fremdschlüsselfeld AnredeID <\/b>referenziert wird.<\/p>\n Eindeutige Daten<\/b><\/p>\n Wann immer Daten nicht nur in einer, sondern über mehrere, verteilte Datenbanken eindeutig identifizierbar sein sollen, brauchen Sie entsprechende Primärschlüssel. Mit hoher Wahrscheinlichkeit eindeutig sind Globally Unified Identifier (GUIDs). Sie erzeugen diese mit Hilfe zweier API-Funktionen und einem entsprechenden Wrapper, den Sie unter dem Namen CreateGUID <\/b>im Modul mdlGlobal <\/b>der Beispieldatenbank finden.<\/p>\n Das Anpassen einer bestehenden Datenbank auf GUIDs als Primärschlüssel ist eine nicht besonders komplizierte Fleißarbeit. Beim Zusammenführen von Daten aus verschiedenen Datenbanken ist dies aber unerlässlich: Sie können auf diese Weise genau feststellen, ob ein Datensatz bereits vorhanden ist und angepasst werden muss oder ob dieser komplett neu zu erstellen ist. Auch die in Access eingebaute Replikation arbeitet auf diese Weise.<\/p>\n Probleme<\/b><\/p>\n Beim Export von Daten in eine XML-Datei und beim anschließenden kompletten Import in eine gleich aufgebaute Datenbank tritt das eine oder andere kleinere Problem auf – wer schon einmal Daten von Excel nach Access transportiert hat oder umgekehrt, kennt das vermutlich. Beim Erstellen der Routinen zum Weitergeben der Daten der Südsturm-Datenbank sind beispielsweise folgende Probleme aufgetreten:<\/p>\n Die Datentypen in XML-Dateien liefert übrigens die Referenz aus [1] unter MSXML|XML Standards Preference|XDR Reference|XDR Schema Data Types Reference|XDR Schema Data Types<\/b>. Wie die oben gefundenen Probleme behoben werden, erfahren Sie in den folgenden Abschnitten.<\/p>\n Komplette Datenbank exportieren<\/b><\/p>\n Für das Exportieren beliebiger Datenbanken ist lediglich die Routine aus Listing 1 nötig. Sie erledigt alle notwendigen Schritte, indem sie zunächst die Zeile mit den Angaben zu Format und Codierung erzeugt und dann in verschachtelten For Each<\/b>– und Do While<\/b>-Schleifen die Tabellen, die Datensätze, die Felder und Werte durchläuft und in Form geeigneter XML-Elemente zum DOMDocument<\/b>-Objekt hinzufügt. Voraussetzung für den Einsatz dieser Routine ist, dass alle zu berücksichtigenden Tabellen mit dem Präfix tbl <\/b>beginnen – das ist aber bei dieser Datenbank der Fall.<\/p>\n Listing 1: Tabellen in ein XML-Dokument exportieren<\/p>\n Public Sub TabellenExportieren()<\/p>\n ' … Deklaration aus Platzgründen nicht abgedruckt<\/p>\n Set db = CurrentDb<\/p>\n Set objXML = New DOMDocument<\/p>\n AddFormat objXML, eEncodingUTF8<\/p>\n Set nodeRoot = objXML.createElement("Datenbank")<\/p>\n strTableNames = ExportOrder<\/p>\n For i = LBound(strTableNames) To UBound(strTableNames)<\/p>\n strTablename = strTableNames(i)<\/p>\n If Left(strTablename, 3) = "tbl" Then<\/p>\n Set rst = db.OpenRecordset("SELECT * FROM " & strTablename, dbOpenDynaset)<\/p>\n Do While Not rst.EOF<\/p>\n Set nodeTable = objXML.createElement(strTablename)<\/p>\n nodeTable.setAttribute "Tabellenname", strTablename<\/p>\n For Each fld In rst.Fields<\/p>\n Set nodeField = objXML.createElement(fld.Name)<\/p>\n Select Case fld.Type<\/p>\n Case dbLongBinary<\/p>\n nodeField.DataType = "bin.base64"<\/p>\n nodeField.nodeTypedValue = fld.Value<\/p>\n Case dbDate<\/p>\n nodeField.DataType = "date"<\/p>\n nodeField.nodeTypedValue = fld.Value<\/p>\n Case dbBoolean<\/p>\n nodeField.nodeTypedValue = rst(fld.Name).Value<\/p>\n Case dbBigInt, dbBinary, dbByte, dbDecimal, dbDouble, dbFloat, dbInteger, _<\/p>\n dbLong, dbNumeric, dbSingle, dbCurrency<\/p>\n nodeField.DataType = "float"<\/p>\n nodeField.nodeTypedValue = fld.Value<\/p>\n Case dbChar, dbText, dbMemo<\/p>\n nodeField.DataType = "string"<\/p>\n nodeField.nodeTypedValue = fld.Value<\/p>\n Case Else<\/p>\n Debug.Print fld.Name, fld.Type<\/p>\n nodeField.nodeTypedValue = Nz(rst(fld.Name).Value, "")<\/p>\n<\/div>\n <\/p>\n Die Routine enthält einige weitere Finessen: So werden die Tabellen beispielsweise nicht in einer willkürlichen, sondern in einer durch eine weitere Funktion festgelegten Reihenfolge durchlaufen – dazu später mehr.<\/p>\n Des Weiteren schreibt die Routine nicht einfach alle Daten als Text in die jeweiligen Objekte, sondern prüft zuvor den Datentyp des Feldes und schreibt die Daten unter Angabe gewisser Datentypinformationen in das XML-Dokument. Wichtig ist dies vor allem, damit der Inhalt von OLE-Objekten, von Boolean- und Datumsfeldern und von Feldern mit Dezimalzahlen korrekt wieder hergestellt werden kann.<\/p>\n Import komplexerer Daten<\/b><\/p>\n Sie haben nun mit einer recht einfachen Routine alle Daten der Südsturm-Datenbank in ein XML-Dokument geschrieben – scheinbar mit allen Informationen, die für das Zurückschreiben in eine Datenbank mit gleichem Datenmodell nötig sind.<\/p>\n Leider sind die Informationen doch nicht ganz vollständig und der Import wird nur mit viel Glück reibungslos über die Bühne gehen – zumindest, wenn die Zieldatenbank dieselben Beziehungen wie die Quelldatenbank aufweist. Diese legen nämlich in gewissem Maße die Reihenfolge des Imports von Daten fest. So können Sie beispielsweise nicht die Daten von Tabellen einlesen, deren Fremdschlüsselfelder auf die Daten in Tabellen verweisen, die zuvor noch nicht gefüllt wurden, wenn referenzielle Integrität vorgesehen ist.<\/p>\n Wenn Sie also etwa die Bestellungen aus der XML-Datei in die Tabelle tblBestellungen <\/b>schreiben möchten, löst dies einen Fehler etwa mit folgender Meldung aus: „Der Datensatz kann nicht hinzugefügt oder geändert werden, da ein Datensatz der Tabelle „tblKunden‘ mit diesem Datensatz in Beziehung stehen muss.“<\/p>\n Sie brauchen also Informationen darüber, in welcher Reihenfolge die Tabellen beim Import bearbeitet werden sollen. Wenn man das Datenmodell betrachtet, lassen sich die einzelnen Schritte recht leicht ableiten: Die Tabellen tblPersonal<\/b>, tblLieferanten<\/b>, tblKategorien <\/b>und tblVersandfirmen <\/b>besitzen beispielsweise gar keine Fremdschlüsselfelder und können direkt zu Beginn in beliebiger Reihenfolge eingelesen werden. Dann folgen die Tabellen tblArtikel <\/b>und tblBestellungen<\/b>, die beide ausschließlich Fremdschlüssel aufweisen, die auf die bereits aufgeführten Tabellen zeigen. Die Tabelle tblBestelldetails<\/b> referenziert ihrerseits weitere Tabellen, wird aber von keiner der anderen Tabellen referenziert und somit als letzte importiert.<\/p>\n Nun erfolgt der Export der Daten in das XML-Dokument innerhalb einer Routine, die selbst keine einzige der betroffenen Tabellen oder Felder namentlich referenziert und daher auch mit Tabellen anderer Datenbanken funktionieren würde – vorausgesetzt, diese genügen der in der Export-Prozedur geforderten Konvention nach Tabellennamen, die mit tbl <\/b>beginnen (die Prozedur ließe sich aber auch an andere Tabellennamen anpassen). Da wäre es doch schön, wenn der Import in die Zieldatenbank auf genauso flexible Weise erfolgen könnte.<\/p>\n Die richtige Export-Reihenfolge<\/b><\/p>\n Sie müssen also vor dem Import mit einem geeigneten Algorithmus die Reihenfolge der zu importierenden Tabellen ermitteln oder – noch besser – die Tabellen direkt in der richtigen Reihenfolge in die XML-Datenbank schreiben.<\/p>\n Die nachfolgend beschriebene Routine, deren kompletten Code Sie in der Beispieldatenbank im Modul mdlXML <\/b>unter dem Namen ExportOrder <\/b>finden, erledigt diese Aufgabe und liefert als Ergebnis ein Array mit den Namen der Tabellen in der richtigen Reihenfolge.<\/p>\n Tabellen ohne Fremdschlüssel finden<\/b><\/p>\n Im ersten Schritt benötigen Sie alle Tabellen, die nicht auf andere Tabellen verweisen. Beim Auffinden dieser Tabellen helfen die Systemtabellen von Access: Die Tabelle MSysObjects <\/b>verzeichnet alle Tabellen (und auch alle übrigen Objekte einer Datenbank) und die Tabelle MSysRelationships <\/b>Informationen über die Beziehungen zwischen den Tabellen.<\/p>\n Die Routine aus Listing 2 füllt zunächst ein Array namens strTables <\/b>mit den Namen der in der Datenbank enthaltenen Tabellen, die mit tbl <\/b>beginnen.<\/p>\n Listing 2: Sortieren der Tabellen einer Datenbank in eine Reihenfolge, in der Tabellen mit Fremdschlüsselfeldern erst nach dem Anlegen der Datensätze der verknüpften Tabellen gefüllt werden.<\/p>\n Public Function ExportOrder() As Variant<\/p>\n Dim strTables() As String<\/p>\n Dim db As DAO.Database<\/p>\n Dim intTable As Integer<\/p>\n Dim intReferencedTable As Integer<\/p>\n Dim rstTables As DAO.Recordset<\/p>\n Dim rstRelations As DAO.Recordset<\/p>\n Dim intTables As Integer<\/p>\n Dim strTemp As String<\/p>\n Dim boltausch As Boolean<\/p>\n Set db = CurrentDb<\/p>\n Set rstTables = _<\/p>\n db.OpenRecordset("SELECT Name FROM MSysObjects WHERE Name LIKE 'tbl*' AND Type=1", dbOpenDynaset)<\/p>\n Do While Not rstTables.EOF<\/p>\n ReDim Preserve strTables(intTable)<\/p>\n strTables(intTable) = rstTables!Name<\/p>\n intTable = intTable + 1<\/p>\n rstTables.MoveNext<\/p>\n Loop<\/p>\n intTables = intTable<\/p>\n boltausch = True<\/p>\n Do While boltausch = True<\/p>\n boltausch = False<\/p>\n For intTable = 0 To intTables – 1<\/p>\n For intReferencedTable = intTable + 1 To intTables – 1<\/p>\n Set rstRelations = db.OpenRecordset("SELECT * FROM MSysRelationships WHERE szObject = '" _<\/p>\n & strTables(intTable) & "' AND szReferencedObject = '" & strTables(intReferencedTable) & "'")<\/p>\n If Not rstRelations.EOF Then<\/p>\n strTemp = strTables(intTable)<\/p>\n strTables(intTable) = strTables(intReferencedTable)<\/p>\n strTables(intReferencedTable) = strTemp<\/p>\n boltausch = True<\/p>\n End If<\/p>\n Next intReferencedTable<\/p>\n Next intTable<\/p>\n Loop<\/p>\n ExportOrder = strTables<\/p>\n End Function<\/p>\n<\/div>\n Nachfolgend durchlaufen zwei For…Next<\/b>-Schleifen alle Kombinationen von Tabellen und prüft, ob die eine auf die jeweils andere verweist. Dazu öffnet die Routine jeweils ein Recordset basierend auf den Einträgen der Tabelle MSysRelationships<\/b>, wobei nur diejenigen Einträge ermittelt werden, in denen die erste Tabelle als szObject <\/b>und die zweite als szReferencedObject <\/b>geführt wird.<\/p>\n Das ist in der Regel maximal ein Datensatz für jede Kombination (wenn es bei Ihnen mal mehr sein sollten, prüfen Sie dringend Ihr Datenmodell!). Ist die erste Tabelle von der zweiten abhängig, vertauscht die Routine die Positionen der beiden Einträge im Array strTables<\/b>. Dies geschieht so lange, bis alle Kombinationen einmal durchlaufen wurden. Wichtig ist hierbei, dass es tatsächlich um die Position im Array geht und nicht um die Tabellennamen selbst – die werden ja hin- und hergeschoben. Durch diese Schieberei können natürlich auch nicht alle Kombinationen von Tabellen geprüft und entsprechend sortiert werden. Deshalb gibt es außen um die beiden For…Next<\/b>-Schleifen herum noch eine Do While<\/b>-Schleife. Diese hat eine Abbruchbedingung, die dann zutrifft, wenn beim Durchlaufen der aktuellen Positionen keine Umsortierung mehr stattfindet.<\/p>\n Dafür sorgt die Variable bolTausch<\/b>: Sie wird auf True <\/b>gesetzt, sobald zwei Elemente vertauscht wurden, was nach Durchlaufen der aktuellen Kombinationen für eine Wiederholung des ganzen sorgt – so lange, bis sich alle Elemente in der richtigen Reihenfolge befinden.<\/p>\n Die Funktion gibt ein Array mit der richtigen Reihenfolge der Tabellen zurück, was auch in der Routine aus Listing 1 zum Einsatz kommt.<\/p>\n XML-Daten in die Zieldatenbank schreiben<\/p>\n Der hier vorgestellte Import geht davon aus, dass die Zieldatenbank noch keine Daten enthält – oder zumindest keine, die den Primärschlüsselwerten der zu importierenden Daten in die Quere kommen.<\/p>\n Dies ließe sich leicht lösen, wenn man GUIDs als Primärschlüssel verwenden würde: Diese sind mit hoher Wahrscheinlichkeit eindeutig, sodass Daten an verschiedenen Stellen angelegt und dann in einer zentralen Datenbank gesammelt werden können.<\/p>\n Damit die Beispieldatenbank (XMLZiel.mdb<\/b>) beim Experimentieren keine Probleme macht, finden Sie hier eine kleine Routine, die alle vorhandenen Datenbanken, die mit tbl <\/b>beginnen, leert:<\/p>\n Wie auch die übrigen Routinen in diesem Beitrag löscht auch diese die Daten aller Tabellen, ohne dass Sie die Namen der Tabellen programmatisch festlegen müssen. Dabei behilft die Routine sich der soeben vorgestellten Funktion ExportOrder<\/b>, die ja die Tabellen in die richtige Reihenfolge zum Importieren der Daten bringt. Beim Löschen geht dies freilich genau andersherum: Erst müssen die Daten der Tabellen entfernt werden, die auf andere Tabellen verweisen, und dann die übrigen. Das ist zumindest zwingend erforderlich, wenn Sie für die Beziehungen referentielle Integrität festgelegt haben.<\/p>\n Wenn die Zieldatenbank leer ist, können Sie getrost die Routine aus Listing 3 starten: Diese schnappt sich das XML-Dokument und füllt dessen Daten in die Tabellen der leeren Südsturm-Datenbank.<\/p>\n Listing 3: Importieren der Daten aus einer XML-Datei in die Tabellen der Zieldatenbank<\/p>\n Public Sub TabellenEinlesen()<\/p>\n ' … Deklaration aus Platzgründen nicht abgedruckt<\/p>\n DBLeeren<\/p>\n Set db = CurrentDb<\/p>\n Set objXML = New DOMDocument<\/p>\n If objXML.Load(CurrentProject.Path & "\\Suedsturm.xml") Then<\/p>\n Set objRoot = objXML.childNodes(1)<\/p>\n For i = 0 To objRoot.childNodes.length – 1<\/p>\n Set objTable = objRoot.childNodes.Item(i)<\/p>\n Set rst = db.OpenRecordset(objTable.nodeName, dbOpenDynaset)<\/p>\n rst.AddNew<\/p>\n For l = 0 To objTable.childNodes.length – 1<\/p>\n Set objField = objTable.childNodes.Item(l)<\/p>\n Select Case objField.DataType<\/p>\n Case "bin.base64"<\/p>\n strField = objField.nodeName<\/p>\n rst(strField) = objField.nodeTypedValue<\/p>\n Case "string"<\/p>\n strField = objField.nodeName<\/p>\n If Len(objField.Text) > 0 Then<\/p>\n rst(strField) = objField.nodeTypedValue<\/p>\n End If<\/p>\n Case Else<\/p>\n strField = objField.nodeName<\/p>\n rst(strField) = objField.nodeTypedValue<\/p>\n End Select<\/p>\n Next l<\/p>\n rst.Update<\/p>\n Next i<\/p>\n Else<\/p>\n MsgBox "Fehler: " & objXML.parseError.reason & "Zeile " & objXML.parseError.Line & ", Zeichen " <\/p>\n & objXML.parseError.linepos<\/p>\n End If<\/p>\n End Sub<\/p>\n<\/div>\n Dabei passiert wiederum nicht viel Spektakuläres: Im Wesentlichen durchläuft die Routine die Elemente des XML-Dokuments, die ja bezüglich der Tabellen schon in der richtigen Reihenfolge gespeichert wurden, und legt je Element einen neuen Datensatz in der aktuell zu füllenden Tabelle an.<\/p>\n Die einzigen interessanten Stellen sind die, wo der Datentyp des XML-Elements ausgewertet wird: Im Falle eines Strings liefert ein XML-Dokument nämlich immer eine Zeichenkette, auch wenn es eine leere ist.<\/p>\n Da aber Textfelder standardmäßig so eingestellt sind, dass zwar Nullwerte, aber keine leeren Zeichenketten erlaubt sind, erzeugt das Einfügen einer leeren Zeichenkette meist einen Fehler. Dem beugt die Routine vor, indem sie überhaupt nur einen Wert einfügt, wenn die vom XML-Dokument gelieferte Zeichenkette nicht leer ist.<\/p>\n Verbleibende Probleme<\/b><\/p>\n Die Südsturm-Datenbank verursachte nur an einer Stelle Probleme – und zwar dort, wo der Inhalt von Textfeldern Zeilenumbrüche enthielt, der ja dort üblicherweise durch die Zeichen Chr(10) <\/b>und Chr(13) <\/b>angegeben wird. Nach dem Export in das XML-Dokument und dem Importieren in die Zieldatenbank ist davon allerdings nur noch der Wert Chr(10) <\/b>übrig, der leider als Sonderzeichen und nicht als Zeilenumbruch interpretiert wird. Für solche Fälle empfiehlt sich das gleiche Vorgehen wie beispielsweise beim Import von Daten aus Excel-Tabellen: man sieht eine Sonderbehandlung vor. Dabei fügen Sie einfach an allen Stellen, die Chr(10) <\/b>ohne vorheriges Chr(13) <\/b>enthalten, die gewünschte Kombination der beiden Zeichen ein.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Sie haben hier in kompakter Form erfahren, wie Sie halbwegs komplexe Daten aus einer Datenbank heraus in einem XML-Dokument speichern und andersherum. Die Anforderungen in der Praxis sind zuweilen komplizierter, aber mit den hier und im Beitrag XML-Dokumente mit VBA erstellen und lesen <\/b>vorgestellten Techniken zum größten Teil erfüllbar. Sollten Sie selbst einmal planen, Daten mehrerer Datenbanken über die Zwischenstation XML-Dokument zu synchronisieren, planen Sie frühzeitig die Verwendung von GUIDs als Primärschlüssel ein. Ein interessanter Anwendungsfall für die hier vorgestellten Techniken ist ein Onlineshop, der die Bestelldaten im XML-Format per E-Mail an den Betreiber sendet. Die E-Mails könnten dann von Outlook aus automatisiert ausgelesen und in die Bestelldatenbank geschrieben werden.<\/p>\n Wie so etwas im Detail aussieht, erfahren Sie in der nächsten Ausgabe im Beitrag Bestellverwaltung für Onlineshops<\/b>, Shortlink 542.<\/p>\n [1] Microsoft Core XML Services (MSXML) 6.0: http:\/\/www.microsoft.com\/downloads\/details.aspxFamilyID=993c0bcf-3bcf-4009-be21-27e85e1857b1&DisplayLang=en, hier die Datei msxml6_SDK.msi herunterladen<\/p>\n Enthaltene Beispieldateien:<\/p>\n XML.mdb<\/p>\n\n<Kontakte>\r\n <Kontakt>\r\n <KontaktID>1<\/KontaktID>\r\n <Vorname>André<\/Vorname>\r\n <Nachname>Minhorst<\/Nachname>\r\n <Telefon>0203-4494477<\/Telefon>\r\n <\/Kontakt>\r\n <Kontakt>\r\n ...\r\n <\/Kontakt>\r\n<\/Kontakte><\/pre>\n
\n ![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/XMLExport-web-images\/pic001_opt.jpeg\")
\n<\/div>\n\n<Kontakte>\r\n <Kontakt KontaktID="1" Vorname="André"
Nachname="Minhorst" Telefon="0203-4494477"\/>\r\n <Kontakt KontaktID="2" Vorname="Sascha"
Nachname="Trowitzsch" Telefon="030-1234566"\/>\r\n<\/Kontakte><\/pre>\n<Kontakte>\r\n <Kontakt ID="1">\r\n <Vorname>André<\/Vorname>\r\n <Nachname>Minhorst<\/Nachname>\r\n <Telefon>0203-4494477<\/Telefon>\r\n <\/Kontakt>\r\n <Kontakt ID="2">\r\n <Vorname>Sascha<\/Vorname>\r\n <Nachname>Trowitzsch<\/Nachname>\r\n <Telefon>030-1234566<\/Telefon>\r\n <\/Kontakt>\r\n<\/Kontakte><\/pre>\n
\n
\n\nPublic Sub DBLeeren()\r\n Dim strTables() As String\r\n Dim db As DAO.Database\r\n Dim i As Integer\r\n strTables = ExportOrder\r\n Set db = CurrentDb\r\n For i = UBound(strTables) To _
LBound(strTables) Step -1\r\n db.Execute "DELETE FROM " _
& strTables(i), dbFailOnError\r\n Next i\r\nEnd Sub<\/pre>\n\nDownloads zu diesem Beitrag<\/h3>\n