{"id":55000775,"date":"2011-06-01T00:00:00","date_gmt":"2020-05-22T22:02:52","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=775"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Daten_aus_XMLDokumenten_einlesen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Daten_aus_XMLDokumenten_einlesen\/","title":{"rendered":"Daten aus XML-Dokumenten einlesen"},"content":{"rendered":"

\"\"<\/p>\n

Hin und wieder fragen Leser nach einer Möglichkeit, die Daten eines XML-Dokuments in eine Tabelle einzulesen. Dies ist nicht trivial und muss in der Regel programmiert werden – Access liefert keine passende Funktion. Dieser Beitrag zeigt, wie Sie die Daten des XML-Dokuments auf eine oder mehrere Tabellen der Datenbank mappen und diese importieren.<\/b><\/p>\n

Beispiellösung<\/b><\/p>\n

Die Beispiellösung zu diesem Beitrag erlaubt das Importieren von Daten aus XML-Dokumenten. Die Lösung kommt als Access-Add-In, das heißt, Sie müssen es erst installieren.<\/p>\n

Wenn Sie gleich unsere Beispiele ausprobieren möchten, öffnen Sie zunächst die Datenbank XMLImportBeispiele.mdb<\/b>.<\/p>\n

Danach starten Sie den Add-In-Manager von Access und fügen die Datei aiuXMLImport.mda<\/b> als neues Add-In hinzu. Anschließend taucht es in der Liste der Add-Ins auf und kann durch einen Mausklick auf den entsprechenden Eintrag gestartet werden.<\/p>\n

Sie finden dann zunächst einen Dialog mit den Elementen aus Bild 1 vor. Rechts davon befindet sich ein noch leerer Rahmen, hier wird später die Struktur der zu importierenden XML-Datei angezeigt.<\/p>\n

Listing 1: Diese Prozedur sucht das nächste aktive Steuerelement und verschiebt den Fokus darauf.<\/p>\n

Public Function ActivateAnotherControl(ctl As Control)\r\n    Dim i As Integer\r\n    Dim frm As Form\r\n    If Val(SysCmd(acSysCmdAccessVer)) < 14 Then\r\n        Set frm = ctl.Parent\r\n        For i = 0 To frm.Controls.Count - 1\r\n            If Not i = ctl.TabIndex Then\r\n                Select Case frm.Controls(i).ControlType\r\n                Case acTextBox, acCommandButton, acComboBox, acListBox, acSubform, _\r\n                acToggleButton, acCheckBox, acOptionButton\r\n                If frm.Controls(i).Enabled = True Then\r\n                    frm.Controls(i).SetFocus\r\n                    Exit For\r\n                End If\r\n                End Select\r\n            End If\r\n        Next i\r\n    End If\r\nEnd Function<\/pre>\n
\"pic001.png\"<\/p>\n
Bild 1: Das XML-Import-Add-In im Urzustand<\/span><\/b><\/p>\n
Zunächst legen Sie jedoch fest, welche XML-Datei überhaupt importiert werden soll. Dazu betätigen Sie die Schaltfläche Neues Dokument einlesen<\/b>. Es erscheint die Meldung aus Bild 2, die sicherstellt, dass Sie keine nicht gespeicherten änderungen an der vorher geöffneten Konfiguration verlieren.<\/p>\n
\"pic002.png\"<\/p>\n
Bild 2: Warnmeldung vor dem Anlegen einer neuen Konfiguration<\/span><\/b><\/p>\n
<\/p>\n
Danach geben Sie einen Namen für die neue Konfiguration an (siehe Bild 3). Hierzu sei angemerkt, das eine Konfiguration eine ganze Reihe von Daten enthält:<\/p>\n
\"pic003.png\"<\/p>\n
Bild 3: Angeben des Namens für die neue Konfiguration<\/span><\/b><\/p>\n