<\/p>\n
Access stellt verschiedene Möglichkeiten für den Export von Daten im XML-Format zur Verfügung. Die Variante, mit der Sie Tabellen über die Benutzeroberfläche in das XML-Format exportieren können, können Sie natürlich auch per VBA nutzen – und zwar mit dem Befehl „ExportXML“ des „Application“-Objekts. Dieser Beitrag zeigt, welcher Parameter welcher Option entspricht und welche zusätzlichen Features Sie per VBA erhalten.<\/b><\/p>\n
Der Export von Daten aus Access heraus in ein XML-Dokument erfordert immer zumindest die Angabe einer Tabelle sowie der Zieldatei. Außerdem können Sie nicht nur Tabellen, sondern auch alle anderen Objekttypen von Access im XML-Format exportieren – also müssen Sie auch noch den Objekttyp angeben. Dementsprechend lautet die minimale Version eines Aufrufs der Methode ExportXML <\/b>des Application<\/b>-Objekts wie folgt:<\/p>\n Der erste Parameter erwartet den Objekttyp, in diesem Fall acExportTable <\/b>(bei einer Abfrage würden Sie etwa acExportQuery <\/b>nutzen). Der zweite gibt den Namen des zu exportierenden Objekts an (hier tblAnreden<\/b>) und der dritte den Pfad zu der zu erzeugenden Datei. Hier haben wir CurrentProject.Path <\/b>zur Ermittlung des Verzeichnisses der aktuellen Datenbank genutzt, damit die XML-Datei direkt in diesem Verzeichnis angelegt wird – und zwar unter dem Namen tblAnreden.xml<\/b>. Damit können Sie den ersten einfachen Export per Einzeiler erledigen und sich das Ergebnis ansehen:<\/p>\n Mit diesem Einzeiler sparen Sie sich einige Mausklicks, die Sie bei der Benutzung des Export-Assistenten über die Benutzeroberfläche hätten ausführen müssen – zumindest, wenn Sie diese Anweisung einmal in eine Prozedur eingetragen haben und dann aufrufen.<\/p>\n Nun bietet der Assistent noch einige weitere Möglichkeiten, die wir uns auch schon im Beitrag XML-Export ohne VBA <\/b>(www.access-im-unternehmen.de\/1045<\/b>) angesehen haben. Diese wollen wir nun auch mit VBA abbilden.<\/p>\n In manchen Fällen möchten Sie vielleicht nicht alle Daten einer Tabelle exportieren, sondern nur eine Teilmenge. Bei Benutzung des Assistenten musste dafür die Tabelle mit den zu exportierenden Daten geöffnet sein.<\/p>\n Wenn Sie einen einzelnen Datensatz exportieren wollten, mussten Sie diesen zunächst markieren und dann den Assistenten starten, der nun die Option Aktueller Datensatz <\/b>bereitstellte. Wenn Sie zuvor einen Filter für die Tabelle oder Abfrage festgelegt haben, konnten Sie auch mit der Option Bestehenden Filter anwenden <\/b>arbeiten.<\/p>\n Nun sollen Sie vor dem Exportieren der Tabellendaten nicht erst die Tabelle öffnen und den Filter definieren. Dies erledigen Sie nämlich mit einem einfachen Parameter der ExportXML<\/b>-Methode. Im Gegensatz zu den bereits im vorherigen Beispiel vorgestellten drei Parametern befindet sich der nun gesuchte Parameter relativ weit hinten in der Parameterliste, sodass Sie entweder eine entsprechende Anzahl Kommata setzen, um zum gewünschten Parameter zu gelangen oder den Parameter benennen. Wir wollen in diesem Fall alle Datensätze der Tabelle tblArtikel <\/b>exportieren, deren Artikelname mit A <\/b>beginnt.<\/p>\n Im ersten Anlauf fügen wir die entsprechende Anzahl Kommata ein, wobei uns IntelliSense wie in Bild 1 unterstützt. Der Befehl sieht dann wie folgt aus:<\/p>\n Bild 1: Eingabe der Parameter für den Export mit einer Bedingung<\/span><\/b><\/p>\n Das Ergebnis überrascht: Es liefert nur den Kopf des Exportdokuments, aber keinerlei Artikeldaten (s. Bild 2). Eine kurze Prüfung der zu exportierenden Tabelle tblArtikel <\/b>zeigt, dass dort durchaus Artikel vorliegen, deren Artikelname <\/b>mit A <\/b>beginnt. Ein Blick in die Online-Dokumentation liefert auch keine Hinweise auf einen Fehler in der Formulierung unserer Bedingung.<\/p>\n Bild 2: XML-Export ohne Daten<\/span><\/b><\/p>\n Also experimentieren wir einfach etwas herum und finden heraus, dass es mit kompletten Vergleichswerten funktioniert – also etwa mit folgendem Aufruf:<\/p>\n Wie Bild 3 zeigt, funktioniert das Setzen einer Bedingung also grundsätzlich.<\/p>\n Bild 3: XML-Export mit Filter nach Artikelname<\/span><\/b><\/p>\n Woran also hapert es bei Verwendung eines Platzhalters wie dem Sternchen (*<\/b>)<\/p>\n Da wir wissen, dass in anderen SQL-Dialekten durchaus auch mal andere Platzhalter-Zeichen zum Einsatz kommen, wobei statt des Sternchens beispielsweise das Prozentzeichen (%<\/b>) verwendet wird, probieren wir es einfach einmal so aus:<\/p>\n Und siehe da: Es funktioniert! Hier ist die Ausgabe für diese Anweisung mit den beiden betroffenen Artikel-Datensätzen:<\/p>\n Wenn Sie nicht mit den vielen Kommata durcheinanderkommen wollen, können Sie, wie oben erwähnt, mit einem benannten Parameter arbeiten. Der Aufruf sieht dann so aus:<\/p>\n Sie können auch alle Parameter benennen:<\/p>\n Einige Parameter haben Sie nun schon kennen gelernt, dennoch hier die übersicht aller möglichen Parameter:<\/p>\n Bild 4: Auswahl der zu exportierenden Tabellen per TreeView und Kontrollkästchen<\/span><\/b><\/p>\n<\/ul>\n Den Parameter AdditionalData <\/b>schauen wir uns als Nächstes an. Onlinehilfe und Objektkatalog schweigen sich ebenso wie Intellisense über den Datentyp des zu übergebenden Wertes oder Objekts aus – hier taucht lediglich der Datentyp Variant <\/b>auf, der ja verschiedene Typen aufnehmen kann. Schließlich hilft eine Suche nach dem Schlüsselwort AdditionalData<\/b> im Objektkatalog weiter (s. Bild 5). Hier erfahren wir, dass es sich um eine eigene Klasse handelt, der wir wohl auch noch rekursiv weitere AdditionalData<\/b>-Elemente zuweisen können. Das macht natürlich Sinn, denn auch der Assistent für den XML-Export bietet ja die verknüpften Tabellen in hierarchischer Anordnung an.<\/p>\n Bild 5: Der Objektkatalog liefert Informationen über den Datentyp von AdditionalData.<\/span><\/b><\/p>\n Schauen wir uns ein einfaches Beispiel an – Kunden und ihre Anreden. Dazu wollen wir die Tabelle tblKunden <\/b>exportieren und die Daten der Tabelle tblAnreden <\/b>als zusätzliche Daten mitliefern. Wenn wir das mit dem Assistenten erledigen, definieren wir den Export wie in Bild 6. Das Ergebnis sieht dann so aus:<\/p>\n <\/p>\n Bild 6: Definition des Exports von Kunden und ihren Anreden<\/span><\/b><\/p>\n Das heißt, dass die Anrede im tblKunden<\/b>-Element als Fremdschlüsselwert gespeichert wird und alle Datensätze der Tabelle tblAnreden <\/b>ebenfalls angehängt werden, sodass diese einfach wieder importiert werden können.<\/p>\n Nun schauen wir uns an, was geschieht, wenn wir den Export per VBA durchführen und dem Parameter AdditionalData <\/b>ein Objekt des gleichnamigen Typs übergeben, das wir zuvor mit dem Element tblAnreden <\/b>gefüllt haben.<\/p>\n Den Code finden Sie in Listing 1. Hier deklarieren wir das AdditionalData<\/b>-Objekt mit der Variablen objAdditionalData <\/b>und erstellen es dann mit der Methode CreateAdditionalData <\/b>des Application<\/b>-Objekts. Dann fügen wir mit der Add<\/b>-Methode die Tabelle tblAnreden <\/b>hinzu. Schließlich übergeben wir das Objekt mit dem Parameter AdditionalData <\/b>an die Methode ExportXML<\/b>.<\/p>\n Listing 1: Export der Kundendaten und der Anreden<\/span><\/b><\/p>\n Das Ergebnis des Exports sieht diesmal wie folgt aus:<\/p>\n Hier hängen die beiden möglichen Datensätze der Tabelle tblAnreden <\/b>also nicht hinten am XML-Dokument an, sondern es wird jeweils der zutreffende Datensatz als Element dem aktuellen tblKunden<\/b>-Element untergeordnet. Auch wenn der Import in eine Datenbank mit gleicher Datenstruktur nun nicht mehr so einfach möglich ist, so gibt es dennoch sicher Anwendungsfälle, in denen gerade die hier produzierte Variante nützlich ist.<\/p>\n Das bekommen Sie mit dem Assistenten so nicht hin. Aber können wir die vom Assistenten gelieferte Version, die ja die Daten beider Tabellen hintereinander ausgibt, per VBA nachbilden<\/p>\n Dies scheint nur zu funktionieren, wenn wir zwei Tabellen verwenden, die nicht über ein Fremdschlüsselfeld miteinander verknüpft sind. Da wir nun kaum die Beziehungen aus der Datenbank löschen wollen und auch nicht darauf aus sind, die relevanten Tabellen unter anderem Namen und ohne Beziehung zu duplizieren, verwenden wir einfach entsprechende Abfragen.<\/p>\n Erstellen Sie also eine Abfrage namens tblKunden_NoRelation<\/b>, welche die Tabelle tblKunden <\/b>als Datenquelle verwendet und alle Felder dieser Tabelle enthält. Das Gleiche erledigen Sie für die Tabelle tblAnreden<\/b>. Hier nennen Sie die resultierende Abfrage tblAnreden_NoRelation<\/b>. Beide zusammen sehen dann wie in Bild 7 aus.<\/p>\n Bild 7: Abfragen, um nicht verknüpfte Tabellen zu simulieren<\/span><\/b><\/p>\n Die Prozedur zum Exportieren brauchen wir nur an drei Stellen umzuformulieren: Wir fügen dem Objekt objAdditionalData <\/b>die Abfrage tblAnreden_NoRelation <\/b>hinzu, geben als Quelle der ExportXML<\/b>-Methode die Abfrage tblKunden_NoRelation <\/b>an und – ganz wichtig – legen als Wert für den Parameter Objekttyp <\/b>statt acExportTable <\/b>den Wert acExportQuery <\/b>fest.<\/p>\n Sonst gibt es nämlich den Fehler mit der Nummer 2467 <\/b>(„In dem von Ihnen eingegebenen Ausdruck wird auf ein Objekt verwiesen, das geschlossen oder nicht vorhanden ist.“). Die neue Version der Prozedur finden Sie in Listing 2.<\/p>\n Listing 2: Export der Kundendaten und der Anreden ohne Beziehung zwischen den Daten<\/span><\/b><\/p>\n Das Ergebnis sieht nun wie gewünscht aus – die Datensätze der Tabelle tblAnreden <\/b>werden hinter den Kundendatensätzen eingefügt, statt mittendrin:<\/p>\n Beim Export einer Tabelle wie tblKunden <\/b>und seiner Lookuptabelle tblAnreden <\/b>geben wir die Tabelle mit dem Fremdschlüsselfeld der Beziehung als Parameter der ExportXML<\/b>-Methode an und fügen die Tabelle mit dem an der Beziehung beteiligten Primärschlüsselfeld mit dem Parameter AdditionalData <\/b>hinzu. Damit erhalten wir, wie wir oben gesehen haben, standardmäßig keine Verschachtelung der Daten, sondern diese werden nacheinander in das XML-Dokument geschrieben.<\/p>\n Wie sieht es aber aus, wenn wir die Tabellen der Beziehung in umgekehrter Reihenfolge angeben, also die Tabelle mit dem an der Beziehung beteiligten Primärschlüsselfeld als Parameter der ExportXML<\/b>-Methode angeben und die Tabelle mit dem Fremdschlüsselfeld per AdditionalData<\/b>-Parameter Wir schauen uns dies am Beispiel der Tabellen tblKategorien <\/b>und tblArtikel <\/b>an. Im Assistenten würden wir dies wie in Bild 8 definieren.<\/p>\n Bild 8: Export von Kategorien und den verknüpften Artikeln per Assistent<\/span><\/b><\/p>\n Der Export würde in diesem Fall so aussehen:<\/p>\n Die Artikel einer Kategorie werden also dem jeweiligen tblKategorie<\/b>-Element untergeordnet.<\/p>\n Unter VBA würden Sie den Export wie in Listing 3 realisieren. Das Ergebnis ist das Gleiche wie im zuvor beschriebenen Export über den Assistenten – hier verhalten sich der Export-Assistent und die ExportXML<\/b>-Methode also identisch.<\/p>\n Listing 3: Export der Kategorien und der dazu gehörenden Artikel<\/span><\/b><\/p>\n Nun wissen Sie, wie zusätzlich zu der zu exportierenden Tabelle noch eine weitere, verknüpfte Tabelle zum Export hinzufügen können und wie Sie diese direkt in die Elemente der Haupttabelle integrieren oder auch nicht. Was aber, wenn Sie nicht nur die Daten von Tabellen exportieren wollen, die direkt mit der Haupttabelle verknüpft sind, sondern noch darüber hinaus Dazu wollen wir beispielsweise die Bestellungen inklusive Bestelldetails, Artikelinformationen, Kundendaten und Anreden exportieren. Für den Beginn reichen uns die drei Tabellen tblBestellungen<\/b>, tblBestelldetails <\/b>und tblArtikel <\/b>aus. Wir geben einfach die Tabelle tblBestellungen <\/b>als Datenquelle für Export-XML <\/b>an und fügen die beiden Tabellen tblBestelldetails <\/b>und tblArtikel <\/b>über die Add<\/b>-Methode dem AdditionalData<\/b>-Objekt hinzu, das wir dann ebenfalls als Parameter an ExportXML <\/b>übergeben (s. Listing 4). Das Ergebnis sieht nun wie folgt aus:<\/p>\n Listing 4: Export der Bestellungen samt Bestelldetails und Artikeldetails<\/span><\/b><\/p>\n Hier werden also die Datensätze der Tabelle tblBestelldetails <\/b>unterhalb denen der Tabelle tblBestellungen <\/b>im XML-Dokument angeordnet. Die Datensätze der Tabelle tblArtikel <\/b>folgen im Anschluss an die tblBestellungen<\/b>-Elemente.<\/p>\n Nun wollen wir aber, dass die Artikeldetails aus der Tabelle tblArtikel <\/b>immer direkt unter den Bestelldetails angeordnet werden, die sich auf den jeweiligen Artikel beziehen – also etwa wie hier:<\/p>\n Diese Konstellation können Sie mit dem XML-Export-Assistenten nicht bewerkstelligen, aber mit VBA. Die dazu benötigte Prozedur finden Sie in Listing 5. Der Clou hierbei ist, dass wir die Tabelle tblArtikel <\/b>nicht einfach als weiteres Element des AdditionalData<\/b>-Objekts angeben, sondern dieses dem zuerst hinzugefügten Element auf Basis der Tabelle tblBestelldetails <\/b>hinzufügen. Dabei referenzieren wir das bereits angelegte Element mit obj-AdditionalData.Item(„tblBestelldetails“) <\/b>und fügen mit dessen Add<\/b>-Methode die Tabelle tblArtikel <\/b>als untergeordnetes Element hinzu. Auf diese Weise erhalten wir die zuvor beschriebene Anordnung, bei welcher die Artikeldetails noch den Bestelldetails untergeordnet werden.<\/p>\n Listing 5: Export der Bestellungen samt Bestelldetails und Artikeldetails, diesmal weiter verschachtelt<\/span><\/b><\/p>\n Dies ergibt zwar redundante Daten im XML-Dokument, aber es gibt sicher Anwendungsfälle, bei denen Sie die Daten wie hier dargestellt besser verarbeiten können als wenn etwa die Artikeldetails in einfacher Form hinten an das XML-Dokument angehängt werden.<\/p>\n Im Beitrag XML-Export ohne VBA <\/b>(www.access-im-unternehmen.de\/1045<\/b>) haben Sie erfahren, wie Sie unter Angabe einer .xslt<\/b>-Datei eine Transformation der exportierten Daten durchführen können.<\/p>\n So ist es beispielsweise möglich, nur bestimmte Felder im XML-Dokument zu erhalten, Daten statt als Inhalt eines Elements als Attribut anzugeben oder auch die komplette Struktur zu verändern.<\/p>\n Dort haben Sie die .xslt<\/b>-Datei nach einem Klick auf die Schaltfläche Transformieren… <\/b>der erweiterten Optionen des Export-Assistenten angegeben. Die Methode Export-XML <\/b>bietet leider keine solche Option.<\/p>\n Sie müssen die Transformation also nach der Erstellung der Export-XML-Datei selbst durchführen, was mit einigen VBA-Anweisungen jedoch leicht zu erledigen ist.<\/p>\n Wie dies gelingt, beschreiben wir im Detail im Beitrag XML-Dokumente transformieren mit XSLT <\/b>(www.access-im-unternehmen.de\/1047<\/b>). In Listing 6 finden Sie nur die Kurzfassung, bei der wir die im Beitrag XML-Export ohne VBA <\/b>vorgestellte .xslt<\/b>-Datei auf ein Export-Ergebnis anwenden.<\/p>\nApplication.ExportXML acExportTable, \"tblAnreden\", _\r\n CurrentProject.Path & \"\\tblAnreden.xml\"<\/pre>\n
<xml version=\"1.0\" encoding=\"UTF-8\">\r\n<dataroot ...>\r\n <tblAnreden>\r\n <AnredeID>1<\/AnredeID>\r\n <Anrede>Herr<\/Anrede>\r\n <\/tblAnreden>\r\n <tblAnreden>\r\n <AnredeID>2<\/AnredeID>\r\n <Anrede>Frau<\/Anrede>\r\n <\/tblAnreden>\r\n<\/dataroot><\/pre>\n
Zu exportierende Daten einschränken<\/h2>\n
![\"Eingabe](\"..\/fileadmin\/_temp_\/2016_04\/pic_1046_001.png\")
<\/p>\nApplication.ExportXML acExportTable, \"tblArtikel\", _\r\n CurrentProject.Path & \"\\tblArtikel.xml\", , , , , , \"Artikelname LIKE ''''A*''''\"<\/pre>\n
![\"XML-Export](\"..\/fileadmin\/_temp_\/2016_04\/pic_1046_002.png\")
<\/p>\nApplication.ExportXML acExportTable, \"tblArtikel\", _\r\n CurrentProject.Path & \"\\tblArtikel.xml\", , , , , , \"Artikelname LIKE ''''Alice Mutton''''\"<\/pre>\n
![\"XML-Export](\"..\/fileadmin\/_temp_\/2016_04\/pic_1046_003.png\")
<\/p>\nApplication.ExportXML acExportTable, \"tblArtikel\", _\r\n CurrentProject.Path & \"\\tblArtikel.xml\", , , , , , \"Artikelname LIKE ''''A%''''\"<\/pre>\n
<xml version=\"1.0\" encoding=\"UTF-8\">\r\n<dataroot ...>\r\n <tblArtikel>\r\n <ArtikelID>3<\/ArtikelID>\r\n <Artikelname>Aniseed Syrup<\/Artikelname>\r\n <LieferantID>1<\/LieferantID>\r\n <KategorieID>2<\/KategorieID>\r\n <Liefereinheit>12 x 550-ml-Flaschen<\/Liefereinheit>\r\n <Einzelpreis>5<\/Einzelpreis>\r\n <Lagerbestand>13<\/Lagerbestand>\r\n <BestellteEinheiten>70<\/BestellteEinheiten>\r\n <Mindestbestand>25<\/Mindestbestand>\r\n <Auslaufartikel>0<\/Auslaufartikel>\r\n <\/tblArtikel>\r\n <tblArtikel>\r\n <ArtikelID>17<\/ArtikelID>\r\n <Artikelname>Alice Mutton<\/Artikelname>\r\n <LieferantID>7<\/LieferantID>\r\n <KategorieID>6<\/KategorieID>\r\n <Liefereinheit>20 x 1-kg-Dosen<\/Liefereinheit>\r\n <Einzelpreis>19.5<\/Einzelpreis>\r\n <Lagerbestand>0<\/Lagerbestand>\r\n <BestellteEinheiten>0<\/BestellteEinheiten>\r\n <Mindestbestand>0<\/Mindestbestand>\r\n <Auslaufartikel>1<\/Auslaufartikel>\r\n <\/tblArtikel>\r\n<\/dataroot><\/pre>\n
Application.ExportXML acExportTable, _\r\n \"tblArtikel\", CurrentProject.Path & \"\\tblArtikel.xml\", _\r\n WhereCondition:=\"Artikelname LIKE ''''A%''''\"<\/pre>\n
Application.ExportXML ObjectType:=acExportTable, DataSource:=\"tblArtikel\", _\r\n DataTarget:=CurrentProject.Path & \"\\tblArtikel.xml\", WhereCondition:=\"Artikelname LIKE ''''A%''''\"<\/pre>\n
Parameter des Aufrufs<\/h2>\n
\n
![\"Auswahl](\"..\/fileadmin\/_temp_\/2016_04\/pic_1046_004.png\")
<\/p>\nDaten aus mehreren Tabellen<\/h2>\n
![\"Der](\"..\/fileadmin\/_temp_\/2016_04\/pic_1046_005.png\")
<\/p>\nExport von Tabellen mit verknüpfter Lookuptabelle<\/h2>\n
![\"Definition](\"..\/fileadmin\/_temp_\/2016_04\/pic_1046_006.png\")
<\/p>\n<xml version=\"1.0\" encoding=\"UTF-8\">\r\n<dataroot ...>\r\n <tblKunden>\r\n <KundeID>1<\/KundeID>\r\n <KundenCode>ALFKI<\/KundenCode>\r\n <Firma>Alfreds Futterkiste<\/Firma>\r\n <AnredeID>2<\/AnredeID>\r\n <Vorname>Maria<\/Vorname>\r\n <Nachname>Anders<\/Nachname>\r\n ...\r\n <\/tblKunden>\r\n ...\r\n <tblAnreden>\r\n <AnredeID>1<\/AnredeID>\r\n <Anrede>Herr<\/Anrede>\r\n <\/tblAnreden>\r\n <tblAnreden>\r\n <AnredeID>2<\/AnredeID>\r\n <Anrede>Frau<\/Anrede>\r\n <\/tblAnreden>\r\n<\/dataroot><\/pre>\n
Public Sub <\/span>ExportKundenUndAnreden()\r\n Dim <\/span>objAdditionalData As <\/span>AdditionalData\r\n Set<\/span> objAdditionalData = Application.CreateAdditionalData\r\n objAdditionalData.Add \"tblAnreden\"\r\n Application.ExportXML acExportTable, \"tblKunden\", _\r\n CurrentProject.Path & \"\\KundenUndAnreden.xml\", _\r\n AdditionalData:=objAdditionalData\r\nEnd Sub<\/span><\/pre>\n<xml version=\"1.0\" encoding=\"UTF-8\">\r\n<dataroot ...>\r\n <tblKunden>\r\n <KundeID>1<\/KundeID>\r\n <KundenCode>ALFKI<\/KundenCode>\r\n <Firma>Alfreds Futterkiste<\/Firma>\r\n <AnredeID>2<\/AnredeID>\r\n <Vorname>Maria<\/Vorname>\r\n <Nachname>Anders<\/Nachname>\r\n ...\r\n <tblAnreden>\r\n <AnredeID>2<\/AnredeID>\r\n <Anrede>Frau<\/Anrede>\r\n <\/tblAnreden>\r\n <\/tblKunden>\r\n ...\r\n <tblKunden>\r\n <KundeID>3<\/KundeID>\r\n <KundenCode>ANTON<\/KundenCode>\r\n <Firma>Antonio Moreno Taquería<\/Firma>\r\n <AnredeID>1<\/AnredeID>\r\n <Vorname>Antonio<\/Vorname>\r\n <Nachname>Moreno<\/Nachname>\r\n ...\r\n <tblAnreden>\r\n <AnredeID>1<\/AnredeID>\r\n <Anrede>Herr<\/Anrede>\r\n <\/tblAnreden>\r\n <\/tblKunden>\r\n ...\r\n<\/dataroot><\/pre>\n
Export ohne Beziehung<\/h2>\n
![\"Abfragen,](\"..\/fileadmin\/_temp_\/2016_04\/pic_1046_007.png\")
<\/p>\nPublic Sub <\/span>ExportKundenUndAnreden_NoRelation()\r\n Dim <\/span>objAdditionalData As <\/span>AdditionalData\r\n Set<\/span> objAdditionalData = Application.CreateAdditionalData\r\n objAdditionalData.Add \"tblAnreden_NoRelation\"\r\n Application.ExportXML acExportQuery, \"tblKunden_NoRelation\", _\r\n CurrentProject.Path & \"\\KundenUndAnreden.xml\", _\r\n AdditionalData:=objAdditionalData\r\nEnd Sub<\/span><\/pre>\n<xml version=\"1.0\" encoding=\"UTF-8\">\r\n<dataroot ...>\r\n <tblKunden_NoRelation>\r\n <KundeID>1<\/KundeID>\r\n <KundenCode>ALFKI<\/KundenCode>\r\n <Firma>Alfreds Futterkiste<\/Firma>\r\n <AnredeID>2<\/AnredeID>\r\n <Vorname>Maria<\/Vorname>\r\n <Nachname>Anders<\/Nachname>\r\n <Position>Vertriebsmitarbeiterin<\/Position>\r\n <PLZ>12209<\/PLZ>\r\n <Strasse>Obere Str. 57<\/Strasse>\r\n <Ort>Berlin<\/Ort>\r\n <Land>Deutschland<\/Land>\r\n <Telefon>030-0074321<\/Telefon>\r\n <Telefax>030-0076545<\/Telefax>\r\n <\/tblKunden_NoRelation>\r\n ...\r\n <tblAnreden_NoRelation>\r\n <AnredeID>1<\/AnredeID>\r\n <Anrede>Herr<\/Anrede>\r\n <\/tblAnreden_NoRelation>\r\n <tblAnreden_NoRelation>\r\n <AnredeID>2<\/AnredeID>\r\n <Anrede>Frau<\/Anrede>\r\n <\/tblAnreden_NoRelation>\r\n<\/dataroot><\/pre>\n
Export von 1:n-Daten<\/h2>\n
![\"Export](\"..\/fileadmin\/_temp_\/2016_04\/pic_1046_008.png\")
<\/p>\n<xml version=\"1.0\" encoding=\"UTF-8\">\r\n<dataroot ...>\r\n <tblKategorien>\r\n <KategorieID>1<\/KategorieID>\r\n <Kategoriename>Getränke<\/Kategoriename>\r\n <Beschreibung>Alkoholfreie Getränke...<\/Beschreibung>\r\n <Abbildung>...<\/Abbildung>\r\n <tblArtikel>\r\n <ArtikelID>1<\/ArtikelID>\r\n <Artikelname>Chai<\/Artikelname>\r\n <LieferantID>1<\/LieferantID>\r\n <KategorieID>1<\/KategorieID>\r\n <Liefereinheit>10 Kartons x 20 Beutel<\/Liefereinheit>\r\n <Einzelpreis>9<\/Einzelpreis>\r\n <Lagerbestand>39<\/Lagerbestand>\r\n <BestellteEinheiten>0<\/BestellteEinheiten>\r\n <Mindestbestand>10<\/Mindestbestand>\r\n <Auslaufartikel>0<\/Auslaufartikel>\r\n <\/tblArtikel>\r\n <tblArtikel>\r\n <ArtikelID>2<\/ArtikelID>\r\n <Artikelname>Chang<\/Artikelname>\r\n <LieferantID>1<\/LieferantID>\r\n <KategorieID>1<\/KategorieID>\r\n <Liefereinheit>24 x 12-oz-Flaschen<\/Liefereinheit>\r\n <Einzelpreis>9.5<\/Einzelpreis>\r\n <Lagerbestand>17<\/Lagerbestand>\r\n <BestellteEinheiten>40<\/BestellteEinheiten>\r\n <Mindestbestand>25<\/Mindestbestand>\r\n <Auslaufartikel>0<\/Auslaufartikel>\r\n <\/tblArtikel>\r\n ...\r\n <\/tblKategorien>\r\n...\r\n<\/dataroot><\/pre>\n
Public Sub <\/span>ExportKategorienUndArtikel()\r\n Dim <\/span>objAdditionalData As <\/span>AdditionalData\r\n Set<\/span> objAdditionalData = Application.CreateAdditionalData\r\n objAdditionalData.Add \"tblArtikel\"\r\n Application.ExportXML acExportTable, \"tblKategorien\", _\r\n CurrentProject.Path & \"\\KategorienUndArtikel.xml\", _\r\n AdditionalData:=objAdditionalData\r\nEnd Sub<\/span><\/pre>\nTiefer in die Hierarchie gehen<\/h2>\n
Public Sub <\/span>ExportBestellungenBestelldetailsArtikel_I()\r\n Dim <\/span>objAdditionalData As <\/span>AdditionalData\r\n Set<\/span> objAdditionalData = Application.CreateAdditionalData\r\n objAdditionalData.Add \"tblBestelldetails\"\r\n objAdditionalData.Add \"tblArtikel\"\r\n Application.ExportXML acExportTable, \"tblBestellungen\", _\r\n CurrentProject.Path & \"\\Bestellungen.xml\", _\r\n AdditionalData:=objAdditionalData\r\nEnd Sub<\/span><\/pre>\n<xml version=\"1.0\" encoding=\"UTF-8\">\r\n<dataroot ...>\r\n <tblBestellungen>\r\n <BestellungID>10248<\/BestellungID>\r\n <KundeID>90<\/KundeID>\r\n <PersonalID>5<\/PersonalID>\r\n <Bestelldatum>2011-07-26T00:00:00<\/Bestelldatum>\r\n <Lieferdatum>2011-08-23T00:00:00<\/Lieferdatum>\r\n ...\r\n <tblBestelldetails>\r\n <BestelldetailID>1<\/BestelldetailID>\r\n <BestellungID>10248<\/BestellungID>\r\n <ArtikelID>11<\/ArtikelID>\r\n <Einzelpreis>7<\/Einzelpreis>\r\n <Anzahl>12<\/Anzahl>\r\n <Rabatt>0<\/Rabatt>\r\n <\/tblBestelldetails>\r\n <tblBestelldetails>\r\n ...\r\n <\/tblBestelldetails>\r\n <tblBestelldetails>\r\n ...\r\n <\/tblBestelldetails>\r\n <\/tblBestellungen>\r\n ...\r\n <tblArtikel>\r\n <ArtikelID>1<\/ArtikelID>\r\n <Artikelname>Chai<\/Artikelname>\r\n ...\r\n <\/tblArtikel>\r\n ...\r\n<\/dataroot><\/pre>\n
Bestellungen, Bestelldetails und Artikeldetails verschachteln<\/h2>\n
<xml version=\"1.0\" encoding=\"UTF-8\">\r\n<dataroot ...>\r\n <tblBestellungen>\r\n <BestellungID>10248<\/BestellungID>\r\n <KundeID>90<\/KundeID>\r\n <PersonalID>5<\/PersonalID>\r\n <Bestelldatum>2011-07-26T00:00:00<\/Bestelldatum>\r\n ...\r\n <tblBestelldetails>\r\n <BestelldetailID>1<\/BestelldetailID>\r\n <BestellungID>10248<\/BestellungID>\r\n <ArtikelID>11<\/ArtikelID>\r\n <Einzelpreis>7<\/Einzelpreis>\r\n <Anzahl>12<\/Anzahl>\r\n <Rabatt>0<\/Rabatt>\r\n <tblArtikel>\r\n <ArtikelID>11<\/ArtikelID>\r\n <Artikelname>Queso Cabrales<\/Artikelname>\r\n ...\r\n <\/tblArtikel>\r\n <\/tblBestelldetails>\r\n <tblBestelldetails>\r\n <BestelldetailID>2<\/BestelldetailID>\r\n <BestellungID>10248<\/BestellungID>\r\n <ArtikelID>42<\/ArtikelID>\r\n <Einzelpreis>4.9<\/Einzelpreis>\r\n <Anzahl>10<\/Anzahl>\r\n <Rabatt>0<\/Rabatt>\r\n <tblArtikel>\r\n <ArtikelID>42<\/ArtikelID>\r\n <Artikelname>Singaporean Hokkien<\/Artikelname>\r\n ...\r\n <\/tblArtikel>\r\n <\/tblBestelldetails>\r\n ...\r\n <\/tblBestellungen>\r\n<\/dataroot><\/pre>\n
Public Sub <\/span>ExportBestellungenBestelldetailsArtikel_II()\r\n Dim <\/span>objAdditionalData As <\/span>AdditionalData\r\n Set<\/span> objAdditionalData = Application.CreateAdditionalData\r\n objAdditionalData.Add \"tblBestelldetails\"\r\n objAdditionalData.Item(\"tblBestelldetails\").Add \"tblArtikel\"\r\n Application.ExportXML acExportTable, \"tblBestellungen\", _\r\n CurrentProject.Path & \"\\Bestellungen.xml\", _\r\n AdditionalData:=objAdditionalData\r\nEnd Sub<\/span><\/pre>\nTransformation mit .xslt-Datei<\/h2>\n
Public Sub <\/span>ExportUndXSLT()\r\n Dim <\/span>objAdditionalData As <\/span>AdditionalData\r\n Dim <\/span>objUntransformiert As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>objXSLT As <\/span>MSXML2.DOMDocument\r\n Dim <\/span>objTransformiert As <\/span>MSXML2.DOMDocument\r\n Set<\/span> objAdditionalData = Application.CreateAdditionalData\r\n objAdditionalData.Add \"tblArtikel\"\r\n Application.ExportXML acExportTable, \"tblKategorien\", _\r\n CurrentProject.Path & \"\\KategorienUndArtikel_Untransformiert.xml\", _\r\n AdditionalData:=objAdditionalData\r\n Set<\/span> objUntransformiert = New<\/span> MSXML2.DOMDocument\r\n objUntransformiert.Load CurrentProject.Path & \"\\KategorienUndArtikel_Untransformiert.xml\"\r\n Set<\/span> objXSLT = New<\/span> MSXML2.DOMDocument\r\n objXSLT.Load CurrentProject.Path & \"\\KategorienUndArtikel.xslt\"\r\n Set<\/span> objTransformiert = New<\/span> MSXML2.DOMDocument\r\n objUntransformiert.transformNodeToObject objXSLT, objTransformiert\r\n objTransformiert.Save CurrentProject.Path & \"\\KategorienUndArtikel_Transformiert.xml\"\r\nEnd Sub<\/span><\/pre>\n