Office: Tabelleninhalte in andere Datenbank kopieren

Guten Abend zusammen,

ich stehe im Moment vor einem kleinen Problem, an dem ich schon ein Weilchen knabbere. Folgende Sachlage:
Ich möchte gerne über einen VBA-Code den Inhalt einer Tabelle von einer Datenbank (nennen wir sie mal Update.mdb) in einer Tabelle mit gleichem Namen und gleicher Struktur einer anderen Datenbank (nennen wir sie Ziel.mdb) kopieren.
Bisher habe ich versucht, das ganze mit dem Insert-Befehl zu erledigen, was auch klappt, wenn ich die Daten innerhalb der gleichen Datenbank in eine anderen Tabelle kopieren möchte. Allerdings funktioniert es nicht, wenn ich das datenbankübergreifend kopieren möchte. Den Pfad der Zieldatenbank lese ich vorher in eine Variable ein, die auch für die Insert Into In-Prozedur nutzen möchte, da die Zieldatenbank nicht immer am gleich Ort liegt.

Ich hoffe, dass ihr mir meinen Code korrigieren könnt. Ich erhalte als Fehlermeldung immer eine Nachricht, dass ich einen Fehler in der Insert-Syntax hätte.

Danke schon im Voraus für die Hilfe.

Code:

:)

 

Code:

Wenn Du Deine erzeugte SQL-Anweisung ins Direktfenster (Strg + G) ausgibst, wirst Du feststellen, dass
- zwei Leerzeichen fehlen und
- DbQuelle nur einen Pfad, nicht aber eine Datei enthält.

Es fehlt auch die Behandlung des Abbrechens des Dateiauswahldialogs.

Du verarbeitest zwei externe Datenbanken? Sonst wäre ein "IN" verzichtbar.

 

Imho fehlen da auch noch Hochkommata:
Code:

Zudem ist da eine "dbStamm" in deinem Code definiert, die keinerlei Funktion hat. Für die Ausführung des INSERT musst du die zweite Datenbank nicht öffnen (falls das die Intention sein sollte).
maike

 

Hallo und Danke,

die Hochkommata waren das eigentliche Problem (manchmal findet man auch die einfachsten Lösungen nicht *tongue.gif* ).
Die dbStamm-Zeile ist gelöscht, die war noch ein Rest von einem veralteten Code.
Und es sollte halt so laufen, dass die Daten von der momentan aktiven Datenbank in eine externe Datenbank kopiert werden sollte, von daher hat sich das 2. IN auch erledigt. Jetzt klappt es jedenfalls.

Danke nochmal euch beiden.

 

So, ich habe jetzt nochmal eine Ergänzung, die ich benötige.
Wie kann ich die Spalten der beiden Tabellen vergleichen und evtl. fehlende Spalten in der Tabelle der Ziel.mdb ergänzen?
Ich möchte aber nicht nur eine Tabelle vergleichen, sondern alle Tabellen, die jeweils den gleichen Namen haben.
Kann mir da jmd weiter helfen?

 

Welche Regeln gibt es dafür? Im einfachen Fall könnte man auch die eine durch die andere Tabelle ersetzen.

Tabellennamen kann man auslesen und eine Maßnahme einleiten, allerdings braucht man dann auch dafür jeweils eigene Regeln, oder beinhalten die Tabellen alle Gleiches?

 

Die Tabellen ersetzten geht leider nicht, es sollen nur Datensätze ergänzt werden. Ab und an kann es nötig werden, dass Spalten ergänzt werden müssen,
z.B. Tabelle1 der Ziel mdb enthält bisher die Spalten Kunde1, Kunde2, Kunde3. Nun kommt aber ein neuer Kunde hinzu.
In der Update.mdb enthält Tabelle1 die Spalten Kunde1, Kunde2, Kunde3, Kunde4. Bei der Ausführung des Updates (siehe oben) sollen also alle Tabellen mit gleichem Namen verglichen werden, ob die Spaltenzahl übereinstimmt und falls nicht, soll die fehlende Spalte angelegt werden. Anschließen nur noch die Daten rüberkopieren und fertig. Bereits vorhandene Datensätze sollen unberührt bleiben, d.h. wenn die neue Spalte ergänzt wird, sollen die alten Datensätze keine Ergänzung in der neuen Spalte erhalten.

Die Tabellen der Update.mdb enthalten also nur nur neue Datensätze, die in die Tabellen der Zielmdb eingepflegt werden sollen.

 

Mit einer Verwaltung, die maximal 256 Kunden (= mögliche Felder in einer Tabelle) zulässt, würde ich mich nicht beschäftigen.
Datenbank geht anders. Hast Du Dich schon mit Datenmodellierung beschäftigt?

 

Habe ich, ja, aber darum geht es mir nicht. Das ganze Projekt ist für einen Freund, der absolut keine Ahnung von Access hat.
Ich habe ihn auch schon darauf hingewiesen, dass dies keine optimale Lösung ist, aber es soll erst einmal so laufen, von daher würde ich gerne erst damit arbeiten.

 

So, ich habe mich jetzt noch ein wenig selbst damit beschäftigt und bin soweit, dass ich mit meinem VBA-Code sämtliche identische Tabellen aktualisieren kann (sprich: alle Datensätze aller Tabellen der Update.mdb -> alle Tabellen der Ziel.mdb).
Das einzige Problem, dass ich jetzt noch gelöst bekommen muss, ist das eventuelle Ergänzen von fehlenden Spalten in den Tabellen der Ziel.mdb.

Hat jemand eine Idee, wie man sowas lösen kann? Die Tabellen haben in der Regel die gleiche Struktur, nur dass von Zeit zu Zeit Spalten angefügt werden müssen.
Kann man mit einem Recordset die Spaltenanzahl zählen und die Spaltennamen vergleichen? Oder macht vielleicht ein Array mehr Sinn?

 

Das ist Murks, das wurde ja schon erwähnt. Dabei will ich dir nicht helfen. Und Murks zieht weitere Workarounds und Hinbiegereien nach sich, bis es dann endgültig nicht mehr hinzuwürgen ist. Mach es jetzt ordentlich, wo es noch mit wenig Aufwand geht.
maike

 

Hinweise und Anforderungen von Leuten, die absolut keine Ahnung haben, muss man natürlich ernster nehmen als gesammelte Erfahrungen.

Natürlich. Wenn Du Felder per Code anlegen kannst, kannst Du auch das.

 

Es wurde Dir ja ziemlich harsch gesagt, was Du vorhast sei Murks. (Es ist auch Murks.)
Viel einfacher als die Datenkopiererei wäre, das gesamte Backend zu kopieren, und viel sicherer noch dazu. Das geht übrigens auch im laufenden Betrieb.