Office: (Office 2003) XML in Access importieren

Hallo zusammen,

vielleicht kann mir einer von Euch (oder auch mehrere *wink.gif* ) bei folgendem Problem helfen:

Ich habe mehrere XML-Dateien gleichen Aufbaus aber mit unterschiedlichem Namen in einem Ordner. In jeder XML-Datei ist ein Datensatz, den ich einer bestehenden Tabelle zufügen möchte. Bisher mache ich das manuell über Tabelle importieren und anschließender Anfügeabfrage. Das würde ich gerne automatisieren. Ein weiterer Vorteil könnte sein, dass ich keine XML-Datei vergessen kann, wenn alle in dem Ordner befindlichen Dateien importiert werden und dabei geprüft wird, ob der Datensatz bereits vorhanden ist.

Hat da jemand für dieses sehr einfache *wink.gif* Problem einen Lösungsansatz?

:)

 

Hallo

Da mann hier unter der Suche mit dem Begriff 'XML' nix findet, gebe ich dir den Tipp es mal mit dem Begriff 'MSXML2' zu versuchen.

 

Hallo Mouse,

leider finde ich auch unter MSXML2 nichts, was mich weiterbringt.

Das Problem scheint doch schwieriger zu sein, als ich glaubte. Ich war in der Annahme, dass es für jede in Access vorhandene Funktion, also z.B. für den Import von XML-Dateien, auch einen VBA-Code gibt.

 

Quellen, die Dir weiterhelfen können:
XML mit Access 2003 von Mark Dörbandt
Wie kann ich Access XML-Fähigkeiten unabhängig von der Version beibringen?
(Ich habe aber keine Ahnung - nichts fragen.)

 

\@Uwe:

Application.ImportXML()

Einfach in der OLHilfe zu ImportXML nachlesen.

Ciao, Sascha

 

Hallo Eberhard, hallo Sascha,

vielen Dank für Eure Tipps.

Leider komme ich erst nach Pfingsten dazu, mich weiter mit dem mit Thema zu beschäftigen.

Ich gebe Euch dann Feedback.

Frohe Pfingsttage!

 

Hi zusammen,

hab´ mich mal für nen Moment an der Rechner gestohlen... *mrcool

Also der Import funktioniert jetzt mit folgendem Code:

Code:

Der erste Schritt ist also getan. Da ich aber mehrere Dateien in dem Ordner habe und nicht nur die Datei mit dem rot markierten Namen, wäre jetzt die Frage, wie kann ich das so verallgemeinern, dass alle Dateien in dem Ordner "Feedback" importiert werden? Und wie kann der Datensatz in der nun erzeugten neuen Tabelle über die bestehende Anfügeabfrage der eigentlichen Tabelle zugefügt werden? Un der letzte Schritt wäre, wie kann überprüft werden, ob dieser Datensatz bereits importiert wurde? Die ID kommt immer nur einmal vor.

Wünsche noch sonnige Pfingsttage

 

Bspw. mit der Dir-Funktion kannst Du die Namen der Dateien ermitteln und daraus den Test auf Vorhandensein sowie den Import herleiten, vergleiche
http://www.ms-office-forum.net/forum...php?t=221261#3

 

Super, Eberhard! *Smilie

Dein Tipp hat mich zwei Schritte weitergebracht. Der Import funktioniert nun für alle Dateien in dem Ordner und die Datensätze werden auch der eigentlichen Tabelle angefügt.

Bleibt noch die Frage, wie ich ausschließen kann, eine Tabelle versehentlich zweimal zu importieren. Irgendwie mit DLookUp vielleicht?

Und statt des Löschens der XML-Dateien würde ich die Dateien lieber in ein Sicherungsverzeichnis verschieben. Also nicht mit KILL arbeiten. Da habe ich aber unter COPY, MOVE oder REMOVE nicht das Richtige gefunden.

Hast Du / Habt Ihr noch einen Tipp für mich?

Achso, hier noch der jetzige funktionierende Code:
Code:

 

Probiere mal die Name-Anweisung (Umbenennen = Verschieben?) statt Kill.

Den Test auf Vermeidung des doppelten Imports in die Tabelle kannst Du in der Anfügeabfrage mittels eines geeigneten Kriteriums vornehmen (wenn der XML-Import zügig verläuft) oder mit Test auf DCount = 0 vor dem XML-Import (das zweite ist vermutlich schneller). Mit der MsgBox in der Schleife geht wohl aber nicht um Performance.

 

Hallo Eberhard,

meintest du RENAME?

Ich habe es jetzt mit folgendem Code hinbekommen:

Code:

Bleibt letztlich noch das Problem des doppelten Imports.

Ich müsste abfragen, ob im Datenfeld id in der Tabelle tblFeedback bereits der Name der XML-Datei (ohne das vorangestellte ID) vorhanden ist. Wenn ja, Fehlermeldung mit Angabe des Dateinamens, wenn nein, importieren. Wie das mit Kriterien funktioniert, weiß ich nicht.

Die MsgBox wird später natürlich rausgenommen.

 

Prinziplösung für Test:
Code:

 

Hallo Eberhard,

herzlichen Dank für Deine Tipps! Es funktioniert jetzt wunderbar.

Ich musste nur noch den Beginn der Dateinamen "ID" und die Extension ".xml" mit REPLACE entfernen.

Code:

Wünsche schöne Tage und bis bald!