<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
XML hat in vielen Bereichen Einzug gehalten, doch zu sehen ist es eigentlich nirgendwo: Hier eine Export-Möglichkeit, dort ein Webdienst, der Daten im XML-Format ausgibt, aber XML für eigene Zwecke einsetzen Sie sind sicher nicht der Einzige, der jetzt zustimmend nickt. Grund genug, mal eine der vielen Möglichkeiten von XML näher zu beleuchten – beispielsweise den Export von Daten aus Access nach XML und von dort aus direkt weiter in das gewünschte Zielformat – wie zum Beispiel CSV oder HTML.<\/b><\/p>\n
XML (Extensible Markup Language) ist ein universelles Format zum Speichern von Daten in strukturiertem, von Mensch und Maschine lesbarem Textformat. Sie werden vermutlich bereits einmal Kontakt mit XML gehabt oder zumindest davon gehört haben – neuerdings gibt es kaum noch eine Anwendung, die Daten nicht im XML-Format speichern kann.<\/p>\n
Das schließt beispielsweise weite Teile des Office-Pakets ein – Word kann es, Excel auch, und eine Access-Datenbank giert praktisch danach, die Daten der enthaltenen Tabellen schön strukturiert im XML-Format auszugeben.<\/p>\n
Die Frage, die Sie sich vermutlich stellen, lautet: Was mache ich nun also mit den ganzen im XML-Format gespeicherten Daten Die beiden Haupteinsatzgebiete sind die Verwendung als Austauschformat zwischen zwei Anwendungen und als Grundlage für mit verschiedenen Methoden formatierte Ausgabeformate wie beispielsweise HTML.<\/p>\n
Letzteres zeigt einen der Grundzüge von XML: In diesem Format vorliegende Daten enthalten niemals Informationen über deren Anzeigeformat, sondern nur die Daten selbst und ihre Struktur.<\/p>\n
Zur Formatierung für die Ausgabe gibt es andere Mittel, zum Beispiel XSL-Dateien. XSL ist die Abkürzung für Extensible Stylesheet Language und dient zum Formatieren und Transformieren des Inhalts von XML-Dateien. Eine XSL-Datei enthält Informationen darüber, wie der Inhalt einer XML-Datei darzustellen ist. Zusammen bringen Sie die beiden meist über einen Eintrag in der XML-Datei, der die für die Ausgabe zu verwendende XSL-Datei angibt.<\/p>\n
Nun haben Sie aber hier kein XML-, sondern ein Access-Magazin in der Hand und deshalb wollen wir nicht tiefer in die Theorie einsteigen. Statt dessen schreiten wir direkt zum praktischen Teil und sehen uns dabei den einen oder anderen theoretischen Aspekt genauer an.<\/p>\n
Access und XML sind seit Access 2000 Freunde – zumindest gibt es seitdem die ersten Exportmöglichkeiten für Daten im XML-Format.<\/p>\n
Um mit einer aktuelleren Version von Access den Inhalt einer Tabelle in eine XML-Datei zu exportieren, sind nur wenige Mausklicks erforderlich. Am schnellsten geht es folgendermaßen:<\/p>\n
![](\"..\/fileadmin\/_temp_\/{82EA1188-1167-4053-990F-DE4892A3750E}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Auswahl der Export-Art<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 2: In HTML transformierte XML-Ausgabe von Access<\/span><\/b><\/p>\n Access hat nun vier Dateien mit den Endungen .htm, .xml, .xsl und .xsd erstellt. Interessant ist zunächst die .html-Datei.<\/p>\n Die schauen Sie sich am besten im Internet Explorer an, denn zur Anzeige sind einige Zeilen VBScript notwendig – der Firefox etwa kann hiermit nichts anfangen.<\/p>\n Der Export einer Abfrage mit vier Zeilen der Artikel-Tabelle sieht recht gelungen aus (siehe Bild 2).<\/p>\n Interessant für diese Art der Ausgabe ist der Export von fertig formatierten Access-Berichten.<\/p>\n Die Ausgabe eines Rechnungsberichts aus der Nordwind-Datenbank beispielsweise ist recht ansehnlich (siehe Bild 3).<\/p>\n Bei diesem kurzen Einblick in die assistentgesteuerten XML-Exportmöglichkeiten von Access soll es zunächst bleiben. Exakt die Ergebnisse, die Sie vom Export von Access-Daten und vor allem von der resultierenden Anzeige erwarten, bekommen Sie nämlich nur schwer.<\/p>\n XML und XSL bilden gemeinsam ein Team, das Daten in jedem beliebigen Format ausgeben kann. Dabei enthält eine XML-Datei die Daten und Informationen zu deren Struktur und die XSL-Datei Informationen über das Ausgabeformat der Daten.<\/p>\n <\/b><\/p>\n Bild 3: Ausgabe eines Berichts im XML-Format mit Transformation<\/span><\/b><\/p>\n Quellcode 1<\/b><\/p>\n Nachvollziehen lässt sich das am besten anhand eines kleinen Beispiels. Dazu verwenden Sie die sehr einfach aufgebaute XML-Datei aus Quellcode 1. Der Prolog der Datei gibt die verwendete XML-Version sowie die verwendete Zeichensatzkodierung an.<\/p>\n Die eigentlichen Daten hält immer das Wurzelelement zusammen. In diesem Fall besteht das Wurzelelement aus dem öffnenden <Kategorien> und dem schließenden <\/Kategorien>. Dazwischen befinden sich Daten aus der Kategorien-Tabelle der Nordwind-Datenbank, und zwar jeweils die Kategorienummer und der Kategoriename. Die Daten sind je Datensatz durch ein öffnendes <Kategorie> und ein schließendes <\/Kategorie> eingeschlossen.<\/p>\n Das Gleiche gilt für die Daten selbst. Wenn Sie diese XML-Datei im Browser öffnen, erscheint eine zwar gut strukturierte, aber dennoch wenig übersichtliche Ansicht der Daten (siehe Bild 4).<\/p>\n Hier kommt XSL ins Spiel: Mit einer geeigneten XSL-Datei können Sie die im XML-Format gespeicherten Daten in beliebigen Formaten anzeigen. <\/p>\n Beginnen Sie mit einem leichten Beispiel: der Anzeige der Kategorien in einer durch Semikolons getrennten Liste.<\/p>\n Die XSL-Datei enthält eine Beschreibung, wie die einzelnen Elemente einer XML-Datei formatiert werden sollen.<\/p>\n Dabei können Sie mit einer solchen Datei die Daten der XML-Datei auslesen und beispielsweise durch Hinzufügen von Anführungszeichen, Semikolons und Zeilenumbrüchen in ein von Excel lesbares CSV-Format überführen.<\/p>\n Das Ergebnis soll so aussehen:<\/p>\n <\/b><\/p>\n Bild 4: Anzeige einer XML-Datei im Internet Explorer<\/span><\/b><\/p>\n Quellcode 2<\/b><\/p>\n Die XSL-Datei aus Quellcode 2 sorgt für die entsprechende Umwandlung. XSL-Dateien sind mit XML-Dateien bezüglich des Aufbaus identisch, beinhalten aber in der Regel keine Daten, sondern Anweisungen zur Formatierung der Daten einer XML-Datei.<\/p>\n Nach dem Prolog mit der Angabe von XML- und XSL-Version folgt ein Element namens xsl:output. Es legt die Ausgabemethode fest.<\/p>\n Die Methode xsl:template leitet die Ausgabe der überschrift ein. Es sucht nach dem Element Kategorien, was dem Wurzelknoten des XML-Dokuments entspricht, und führt die nachfolgenden Methoden für jedes Auftreten des Wurzelelements je einmal aus – was genau einem Aufruf entspricht. Die nachfolgende xsl:apply-templates-Anweisung legt fest, dass an dieser Stelle noch ein Template mit weiteren Informationen auszugeben ist. Diese betreffen die in den Kategorie-Elementen enthaltenen Daten.<\/p>\n Diese Ausgabe erfolgt in dem mit <xsl:template match=“Kategorie“> eingeleiteten Teil. Die <xsl:value-of>-Anweisungen geben jeweils die in den Elementen Kategorie-Nr und Kategoriename enthaltenen Daten aus. Dazwischen werden mit der <xsl:test>-Methode noch die Semikolons, Anführungszeichen und Seitenumbrüche (vertreten durch die Zeichenfolge
) eingefügt.<\/p>\n <\/p>\n Fehlt nur noch, dass Sie das XML-Dokument auf das zu verwendende XSL-Dokument aufmerksam machen: Das erledigen Sie durch Einfügen einer einzigen Zeile in die XML-Datei – und zwar direkt hinter der ersten Zeile aus Quellcode 1:<\/p>\n Wenn Sie beide Dateien wie angegeben erstellt und in einem gemeinsamen Verzeichnis gespeichert haben, erhalten Sie die weiter oben vorgegebene Ausgabe.<\/p>\n Was Sie im vorigen Kapitel kennen gelernt haben, sind lediglich die Grundlagen zu den in diesem und den folgenden Kapiteln vorgestellten Techniken. Sie werden vermutlich kaum die Daten einer Access-Tabelle oder -Abfrage manuell exportieren wollen und diese dann – durch ein entsprechendes XSL-Dokument formatiert – anzeigen lassen. Darum lernen Sie nun einige Prozeduren kennen, mit denen Sie die relevanten Daten per Knopfdruck nicht nur im gewünschten Format anzeigen lassen, sondern auch speichern können.<\/p>\n Für die folgenden Schritte sind einige Objekte und Anweisungen der Bibliothek MSXML erforderlich. Immerhin soll die Formatierung der XML-Datei mit der XSL-Datei nicht durch den im Browser integrierten XSLT-Prozessor durchgeführt werden, sondern mit einer entsprechenden Anweisung innerhalb der verwendeten VBA-Prozeduren.<\/p>\n Zum Erstellen des Verweises aktivieren Sie den VBA-Editor (am schnellsten per Strg+g) und wählen den Menüeintrag Extras\/Verweise ….<\/p>\n Dort finden Sie unter anderem den Eintrag Microsoft XML, v3.0 – markieren Sie ihn und schließen Sie den Dialog (siehe Bild 5).<\/p>\n <\/b><\/p>\n Bild 5: Verweis auf die MSXML-Bibliothek festlegen<\/span><\/b><\/p>\n Der VBA-Code zur Erstellung eines in einem bestimmten Ausgabeformat gespeicherten Dokuments mit bestimmten Daten einer Datenbank besteht aus drei Prozeduren.<\/p>\n Die Hauptprozedur erzeugt eine Datensatzgruppe mit den zu exportierenden Daten und ruft die beiden anderen Prozeduren auf. Die erste erstellt aus der Datensatzgruppe ein XML-Dokument – allerdings speichert sie dieses nicht, sondern hält es in einer Stringvariablen vor. Die zweite Funktion transformiert die so erzeugte XML-Datei mit der im Filesystem gespeicherten XSL-Datei und speichert das Resultat ebenfalls im Filesystem.<\/p>\n Die Hauptprozedur, die eine Datensatzgruppe erstellt und die Prozeduren zur weiteren Bearbeitung der Daten aufruft, heißt KategorienExportieren. Den Quellcode dieser Prozedur können Sie Quellcode 3 entnehmen.<\/p>\n Die Prozedur deklariert die benötigten Variablen und Objekte und instanziert die Objektvariablen für die Datenbankverbindung und die Datensatzgruppe. Eine Variable namens strDatenbankpfad dient zum Speichern des Pfades, in dem sich die Datenbank selbst befindet.<\/p>\n Diese Information wird für den Zugriff auf die XSL-Datei benötigt, die sich im gleichen Verzeichnis wie die Datenbank befindet. Außerdem soll die erzeugte CSV-Datei ebenfalls in diesem Verzeichnis gespeichert werden.<\/p>\n Als Datenbankverbindung dient eine Verbindung zum aktuellen Datenbankprojekt, als Datensatzgruppe hält wie in obigem Beispiel die Tabelle Kategorien her – per SELECT-Anweisung reduziert auf die beiden Felder Kategorie-Nr und Kategoriename.<\/p>\n Der Variablen strXMLDokument weist die Prozedur das Ergebnis des Aufrufs einer weiteren Prozedur namens DatensatzgruppeInXMLKonvetieren zu – diese Prozedur wird im folgenden Abschnitt erläutert.<\/p>\n Das resultierende XML-Dokument wird direkt als Eingabeparameter der Prozedur ExportiereXML weiterverarbeitet. Diese Prozedur sorgt für die Erzeugung der gewünschten CSV-Datei.<\/p>\n Quellcode 3<\/b><\/p>\n Die Prozedur DatensatzgruppeInXMLKonvertieren bewältigt den größten Teil der Arbeit (s. Quellcode 5). Sie erwartet als Eingangsparameter die Datensatzgruppe sowie zwei Stringvariablen.<\/p>\n Die erste namens strWurzelelement enthält den für das Wurzelement vorgesehenen Namen. Die zweite Stringvariable heißt strDatensatzelement und beinhaltet den Namen des Elements, das jeden einzelnen Datensatz einschließt. In dem nachfolgenden Schnippsel des resultierenden XML-Dokuments ist das mit strWurzelelement übergebene Element kursiv gekennzeichnet und das mit strDatensatzElement übergebene fett.<\/p>\n Die im Prozedurkopf deklarierte Stringvariable strXML speichert den jeweils aktuellen Stand der XML-Datei zwischen und übergibt diesen am Ende der Prozedur an die für den Rückgabewert verantwortliche Variable DatensatzgruppeInXMLKonvertieren.<\/p>\n Quellcode 4<\/b><\/p>\n Die Variable fld hat den Datentyp Field und enthält jeweils einen Verweis auf das aktuell durchlaufene Feld der Datensatzgruppe. Den Auftakt beim Zusammensetzen des XML-Dokuments macht das Wurzelelement – es wird aus dem Inhalt der Variablen strWurzelelement und umschließenden spitzen Klammern zusammengesetzt – in diesem Fall zu <Kategorien> (s. Quellcode 4). <\/p>\n Quellcode 5<\/b><\/p>\n Auf die gleiche Art wird am Ende der Prozedur auch das letzte und schließende Element <\/Kategorien> hinzugefügt. Dann durchläuft eine While Wend-Schleife jeden einzelnen Datensatz der Datensatzgruppe. Vor und nach dem Konvertieren der eigentlichen Daten fügt die Prozedur dem XML-Dokument ein öffnendes (<Kategorie>) und ein schließendes (<\/Kategorie>) Element für jeden Datensatz hinzu. Die Daten selbst werden in den ihrem Feldnamen entsprechenden Elementen eingeschlossen und in einen CDATA-Block eingebettet. Dieser dient dazu, die Verarbeitung von als XML interpretierbaren Inhalten zu verhindern. Der Inhalt des Feldes Kategorie-Nr sieht nach der Bearbeitung etwa folgendermaßen aus:<\/p>\n ähnlich stellt sich die Umwandlung des Inhalts des Feldes Kategoriename:<\/p>\n Das Ergebnis der Umwandlung der Datensatzgruppe in ein XML-Dokument sieht zwar etwas anders aus als das zu Beginn verwendete XML-Dokument, prinzipiell sind die beiden jedoch gleichwertig.<\/p>\n Nun fehlt noch der letzte Schritt: Die Umwandlung des in einer Variablen gespeicherten XML-Dokuments in eine CSV-Datei.<\/p>\n Für diesen Vorgang ist die Prozedur ExportiereXML verantwortlich (s. Quellcode 6). Sie wird von der Prozedur KategorienExportieren aufgerufen und erwartet das XML-Dokument als Stringvariable sowie die Namen der zu verwendenden XSL-Datei und der zu speichernden CSV-Datei als Eingangsparameter.<\/p>\n Quellcode 6<\/b><\/p>\n Der Deklarationsteil umfasst zwei Objekte zur Speicherung von XML-Dokumenten – je eines für das XML-Dokument und das XSL-Dokument.<\/p>\n Die Prozedur bereitet zunächst eine leere Datei zum Speichern des resultierenden CSV-Dokuments vor und lädt dann das übergebene XML-Dokument im Textformat in das erste XML-Dokumentobjekt. In das zweite XML-Dokumentobjekt liest es das im Filesystem befindliche XSL-Dokument ein. Eine einzige Anweisung transformiert dann das XML-Dokument mit dem XSL-Dokument und speichert das Ergebnis in der CSV-Datei.<\/p>\n Im Verzeichnis der aktuellen Datenbank finden Sie nun eine Datei namens Kategorien.csv. Wenn Sie Excel installiert haben, wird es durch einen Doppelklick auf die soeben erstellte Datei vermutlich automatisch gestartet, um den Dateiinhalt anzuzeigen (siehe Bild 6).<\/p>\n Es sind noch viele andere Formate für den Export solcher und ähnlicher Daten denkbar. Die Basis dafür haben Sie mit den drei beschriebenen Prozeduren bereits geschaffen, Sie müssen lediglich die Prozedur KategorienExportieren geringfügig anpassen (s. Quellcode 7).<\/p>\n Als weitere Exportformate kommen beispielsweise Formate mit festem Zeilenabstand, HTML oder RTF in Frage. Letztere bieten durch die jeweiligen Formatierungsmöglichkeiten natürlich unendlichen Spielraum bei der Gestaltung von Exportformaten.<\/p>\n <\/b><\/p>\n Bild 6: Die CSV-Datei in Excel<\/span><\/b><\/p>\n Bevor Sie sich uns mit HTML noch ein weiteres Format ansehen, legen Sie schnell ein Formular an, von dem aus Sie die Exporte ohne Verwendung des Testfensters ausführen können. Das Formular besteht aus drei Steuerelementen:<\/p>\n Das Formular aus Bild 7 ließe sich noch beliebig erweitern; beispielsweise wäre die Anzeige des für den aktuellen Export verwendeten XML-Dokuments oder des für die Transformation eingesetzten XSL-Dokuments interessant. <\/p>\n Quellcode 7<\/b><\/p>\n Das Kombinationsfeld zur Auswahl des Exportformats hat eine Wertliste als Datensatzherkunft, die mit dem bereits vorhandenen und dem noch geplanten HTML-Export zwei Einträge aufweist. Die Datensatzherkunft sieht folgendermaßen aus:<\/p>\n <\/b><\/p>\n Bild 7: Formular zur Steuerung von Exporten<\/span><\/b><\/p>\n Der Zahlenwert wird von der durch die Schaltfläche Export starten aufgerufenen Prozedur ausgelesen und ebenso wie der Name der Zieldatei an die Prozedur KategorienExportieren übergeben. Der Prozeduraufruf sieht so aus:<\/p>\n Die Prozedur KategorienExportieren muss an einigen Stellen angepasst werden, um verschiedene Exportformate bedienen zu können. Die neue Version der Prozedur finden Sie in Quellcode 8.<\/p>\n Der wesentliche Teil der änderungen bezieht sich auf das Hinzufügen der beiden übergabeparameter sowie ihre Auswertung. So finden Sie am Ende der Prozedur ein Select Case-Statement, das die dem Wert des Parameters intFormat entsprechende Export-Variante anstößt.<\/p>\n Für den HTML-Export der Kategoriedaten benötigen Sie neben der bereits vollzogenen änderung der Prozedur KategorienExportieren noch eine entsprechende XSL-Datei.<\/p>\n Quellcode 8<\/b><\/p>\n Den Code dieser Datei finden Sie in Quellcode 8. Er entspricht weitgehend dem Code zur Transformierung des XML-Dokuments in das CSV-Format. Es gibt allerdings zwei wesentliche Unterschiede: Die Ausgabe-Methode heißt diesmal HTML (<xsl:output method=“html“\/>) und die zusätzlich notwendigen Elemente wie <html>, <body> oder <table> werden direkt in die XSL-Datei integriert.<\/p>\n Das Ergebnis des Exports entspricht den Erwartungen, wie Bild 8 zeigt – mehr als eine übliche HTML-Tabelle ist dabei nicht herausgekommen. Mit wenigen änderungen am XSL-Dokument lassen sich aber weit hübschere Ergebnisse erzielen.<\/p>\n <\/b><\/p>\n Bild 8: Ausgabe der Kategorien im HTML-Format<\/span><\/b><\/p>\n Sie haben im vorliegenden Beitrag gelernt, wie Sie aus Access-Daten zunächst ein XML-Dokument erstellen und dieses dann als Grundlage für die Transformation in andere Formate wie CSV und HTML verwenden. Nach einer allgemeinen Einführung haben Sie erfahren, wie Sie den kompletten Vorgang mit Hilfe von VBA automatisieren können.<\/p>\n Vor allem aber werden Sie nun nicht mehr durch die in Access vorhandenen Möglichkeiten zum Export von Daten in andere Formate eingeschränkt, sondern können jederzeit eigene, dem jeweiligen Anwendungsfall entsprechende Exporteinstellungen festlegen.<\/p>\n","protected":false},"excerpt":{"rendered":" XML hat in vielen Bereichen Einzug gehalten, doch zu sehen ist es eigentlich nirgendwo: Hier eine Export-Möglichkeit, dort ein Webdienst, der Daten im XML-Format ausgibt, aber XML für eigene Zwecke einsetzen Sie sind sicher nicht der Einzige, der jetzt zustimmend nickt. Grund genug, mal eine der vielen Möglichkeiten von XML näher zu beleuchten – beispielsweise den Export von Daten aus Access nach XML und von dort aus direkt weiter in das gewünschte Zielformat – wie zum Beispiel CSV oder HTML.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66012005,662005,44000034,44000026],"tags":[],"class_list":["post-55000266","post","type-post","status-publish","format-standard","hentry","category-66012005","category-662005","category-ImportExport","category-Interaktiv"],"yoast_head":"\n![](\"..\/fileadmin\/_temp_\/{82EA1188-1167-4053-990F-DE4892A3750E}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{82EA1188-1167-4053-990F-DE4892A3750E}\/pic003.png\")
<\/p>\n<xml version=\"1.0\" encoding=\"iso-8859-1\" > \r\n<Kategorien>\r\n <Kategorie>\r\n <Kategorie-Nr>1<\/Kategorie-Nr>\r\n <Kategoriename>Getränke<\/Kategoriename>\r\n <\/Kategorie>\r\n <Kategorie>\r\n <Kategorie-Nr>2<\/Kategorie-Nr>\r\n <Kategoriename>Gewürze<\/Kategoriename>\r\n <\/Kategorie>\r\n ...\r\n<\/Kategorien><\/pre>\n
Kategorie-Nr;Kategoriename\r\n1;\"Getränke\"\r\n2;\"Gewürze\"\r\n3;\"Süßwaren\"\r\n4;\"Milchprodukte\"\r\n5;\"Getreideprodukte\"\r\n6;\"Fleischprodukte\"\r\n7;\"Naturprodukte\"\r\n8;\"Meeresfrüchte\"<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{82EA1188-1167-4053-990F-DE4892A3750E}\/pic004.png\")
<\/p>\n<xml version=\"1.0\" encoding=\"iso-8859-1\">\r\n<xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http:\/\/www.w3.org\/1999\/XSL\/Transform\">\r\n <xsl:output method=\"text\"\/>\r\n <xsl:template match=\"Kategorien\">\r\n <xsl:text>Kategorie-Nr;Kategoriename<\/xsl:text>\r\n <xsl:text>
<\/xsl:text>\r\n <xsl:apply-templates select=\"Kategorie\" \/>\r\n <\/xsl:template>\r\n <xsl:template match=\"Kategorie\">\r\n <xsl:value-of select=\"Kategorie-Nr\" \/>\r\n <xsl:text>;\"<\/xsl:text>\r\n <xsl:value-of select=\"Kategoriename\" \/>\r\n <xsl:text>\"<\/xsl:text>\r\n <xsl:text>
<\/xsl:text>\r\n <\/xsl:template>\r\n<\/xsl:stylesheet><\/pre>\n
<xml-stylesheet href=\"KategorienCSV.xsl\" type=\"text\/xsl\"><\/pre>\n
Voraussetzung: Verweis auf die MSXML-Bibliothek<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{82EA1188-1167-4053-990F-DE4892A3750E}\/pic005.png\")
<\/p>\nVorgehensweise<\/h2>\n
Die Prozedur KategorienExportieren<\/h2>\n
Public Sub KategorienExportieren()\r\n Dim rst As ADODB.Recordset\r\n Dim strXMLDokument As String\r\n Dim cnn As ADODB.Connection\r\n Dim strDatenbankpfad As String\r\n Set cnn = CurrentProject.Connection\r\n Set rst = New ADODB.Recordset\r\n strDatenbankpfad = Left(CurrentDb.Name, Len(CurrentDb.Name) - _ Len(Dir(CurrentDb.Name)))\r\n rst.Open \"SELECT [Kategorie-Nr], Kategoriename FROM Kategorien\", cnn, _ adOpenStatic, adLockReadOnly\r\n strXMLDokument = DatensatzgruppeInXMLKonvertieren(rst, \"Kategorien\", \"Kategorie\")\r\n rst.Close\r\n Set rst = Nothing\r\n ExportiereXML strXMLDokument, strDatenbankpfad & \"Kategorien_CSV.xsl\", _ strDatenbankpfad & \"Kategorien.csv\"\r\nEnd Sub<\/pre>\n
Umwandlung eines Recordset in ein XML-Dokument<\/h2>\n
<Kategorien>\r\n <Kategorie>\r\n <Kategorie-Nr>1<\/Kategorie-Nr>\r\n <Kategoriename> Getränke<\/Kategoriename>\r\n <\/Kategorie>\r\n <Kategorie>\r\n <Kategorie-Nr>2<\/Kategorie-Nr>\r\n <Kategoriename> Gewürze<\/Kategoriename>\r\n <\/Kategorie>\r\n ...\r\n<\/Kategorien><\/pre>\n
Public Function DatensatzgruppeInXMLKonvertieren(ByRef rst As ADODB.Recordset, _ ByVal strWurzelelement As String, ByVal strDatensatzelement As String)\r\n Dim strXML As String\r\n Dim fld As ADODB.Field\r\n strXML = strXML & \"<\" & strWurzelelement & \">\"\r\n With rst\r\n If .State <> 0 Then\r\n While Not (.EOF Or .BOF)\r\n strXML = strXML & \"<\" & strDatensatzelement & \">\"\r\n For Each fld In .Fields\r\n strXML = strXML & \"<\" & fld.Name & \">\"\r\n strXML = strXML & \"<![CDATA[\" & fld.Value & \"]]>\"\r\n strXML = strXML & \"<\/\" & fld.Name & \">\"\r\n Next\r\n Set fld = Nothing\r\n strXML = strXML & \"<\/\" & strDatensatzelement & \">\"\r\n .MoveNext\r\n Wend\r\n End If\r\n End With\r\n strXML = strXML & \"<\/\" & strWurzelelement & \">\"\r\n DatensatzgruppeInXMLKonvertieren = strXML\r\nEnd Function<\/pre>\n
<Kategorie-Nr><![CDATA[1]]><\/Kategorie-Nr><\/pre>\n
<Kategoriename><![CDATA[Getränke]]><\/Kategoriename><\/pre>\n
Transformieren des XML-Dokuments in eine CSV-Datei<\/h2>\n
Public Sub ExportiereXML(ByVal strXMLDokument As _ String, ByVal strXSLDatei As String, _ ByVal strExportdatei As String)\r\n Dim xmlDokument As MSXML2.DOMDocument\r\n Dim xmlStylesheet As MSXML2.DOMDocument\r\n Dim lngFilenumber As Long\r\n lngFilenumber = FreeFile\r\n Open strExportdatei For Output As lngFilenumber\r\n Set xmlDokument = New MSXML2.DOMDocument\r\n xmlDokument.loadXML strXMLDokument\r\n Set xmlStylesheet = New MSXML2.DOMDocument\r\n xmlStylesheet.Load strXSLDatei\r\n Print #lngFilenumber, _ xmlDokument.transformNode(xmlStylesheet)\r\n Close lngFilenumber\r\n Set xmlStylesheet = Nothing\r\n Set xmlDokument = Nothing\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{82EA1188-1167-4053-990F-DE4892A3750E}\/pic006.png\")
<\/p>\nFormular zur Steuerung der Exporte<\/h2>\n
Public Sub KategorienExportieren(intFormat As Integer, strZieldatei As String)\r\n Dim rst As ADODB.Recordset\r\n Dim strXMLDokument As String\r\n Dim cnn As ADODB.Connection\r\n Dim strDatenbankpfad As String\r\n Set cnn = CurrentProject.Connection\r\n Set rst = New ADODB.Recordset\r\n strDatenbankpfad = Left(CurrentDb.Name, Len(CurrentDb.Name) - _ Len(Dir(CurrentDb.Name)))\r\n rst.Open \"SELECT [Kategorie-Nr], Kategoriename FROM Kategorien\", cnn, _ adOpenStatic, adLockReadOnly\r\n strXMLDokument = DatensatzgruppeInXMLKonvertieren(rst, \"Kategorien\", \"Kategorie\")\r\n rst.Close\r\n Set rst = Nothing\r\n Select Case intFormat\r\n Case 1\r\n ExportiereXML strXMLDokument, strDatenbankpfad & \"Kategorien_CSV.xsl\", _ strDatenbankpfad & strZieldatei\r\n Case 2\r\n ExportiereXML strXMLDokument, strDatenbankpfad & \"Kategorien_HTML.xsl\", _ strDatenbankpfad & strZieldatei\r\n End Select\r\nEnd Sub<\/pre>\n
1;\"CSV\";\"Kategorien.csv\";2;\"HTML\";\"Kategorien.htm\"<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{82EA1188-1167-4053-990F-DE4892A3750E}\/pic007.png\")
<\/p>\nPrivate Sub cmdExportStarten_Click()\r\n KategorienExportieren _ Me.cboZielformat, Me.txtZieldatei\r\nEnd Sub<\/pre>\n
Export in das HTML-Format<\/h2>\n
Public Sub KategorienExportieren(intFormat As Integer, _ strZieldatei As String)\r\n Dim rst As ADODB.Recordset\r\n Dim strXMLDokument As String\r\n Dim cnn As ADODB.Connection\r\n Dim strDatenbankpfad As String\r\n Set cnn = CurrentProject.Connection\r\n Set rst = New ADODB.Recordset\r\n strDatenbankpfad = Left(CurrentDb.Name, _ Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)))\r\n rst.Open \"SELECT [Kategorie-Nr], Kategoriename \" _ & \"FROM Kategorien\", cnn, adOpenStatic, _ adLockReadOnly\r\n strXMLDokument = DatensatzgruppeInXMLKonvertieren _ (rst, \"Kategorien\", \"Kategorie\")\r\n Debug.Print strXMLDokument\r\n rst.Close\r\n Set rst = Nothing\r\n Select Case intFormat\r\n Case 1\r\n ExportiereXML strXMLDokument, _ strDatenbankpfad & _ \"Kategorien_CSV.xsl\", _ strDatenbankpfad & strZieldatei\r\n Case 2\r\n ExportiereXML strXMLDokument, _ strDatenbankpfad & _ \"Kategorien_HTML.xsl\", _ strDatenbankpfad & strZieldatei\r\n Case 3\r\n ''weitere Exportformate\r\n End Select\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{82EA1188-1167-4053-990F-DE4892A3750E}\/pic008.png\")
<\/p>\n