Office: (Office 2000) Access-Abfrage aus DB importieren und in Tabelle umwandeln via VBA

Zum Verständnis:
Mit der TransferDatabase-Methode "kopierst" Du im Prinzip die Abfrage (das Objekt) aus der Quell-DB in die Ziel-DB.

Wenn in der Abfrage eine Tabelle angesprochen wird, die in der Quell-DB vorhanden ist, aber in der Ziel-DB fehlt, wird die Abfrage in der Ziel-DB nicht funktionieren!

Ich glaube, langsam komm ich dahinter, was Du eigentlich möchtest...
Die Abfrage in der Quell-DB (qry_Quelle) soll eine Tabelle in der Ziel-DB erstellen (tbl_Ziel). Oder?!

 

in der Abfrage (Entwurfsansicht) habe ich dann folgendes stehen:

Ausdr1: XX.ProjektNr
Ausdr2: XX.Name
Ausdr4: YY.info
etc. etc.

wie schon geschrieben, diese Abfrage fasst 5 auf einen SQL-Server verknüpfte Tabellen zusammen, sodass die Daten dann von einer anderen DB aus importiert werden können...

Die Daten werden in meinem Fall also nicht einfach hinüberkopiert, sondern eben nur die Abfrage, welche die Infos nicht vorfindet...

Ist es über die TransferDatabase-Methode auch möglich, anstatt Abfrage-Abfrage zu sagen: Abfrage-Tabelle
denn dann würden vielleicht die Verknüpfungen wegfallen, diese verursachen ja den Fehler bei mir



Ansonsten könnte ich vielleicht eine Verknüpfung auf eine Abfrage setzen und dann diese Verknüpfung aufheben... das geht aber bestimmt nicht, also eine Abfrage zu verknüpfen, oder etwa doch?...

das Problem liegt also an den noch bestehenden Verweisen auf die Tabellen
Bsp: Ausdr4: YY.info


lg

 

Beantworte bitte meine o.g. Frage (sollte mit Ja oder Nein beanwortbar sein *wink.gif* )

 

Habe deinen Post leider erst jetzt gelesen (war davor selber am zusammenschreiben )

Da liegst Du goldrichtig! ;-)

Vielleicht habe ich mich nicht klar genug ausgedrückt. Werde am Abend den gesamten Thread nochmals durchlesen *gg*
Bis dahin hoffe ich, dass ich schon eine Lösung gefunden habe

vielleicht lässt sich die Abfrage in DB_Quelle von DB_Ziel aus in eine Tabelle ohne irgendwelche Verweise konvertieren, jedenfalls sollte die DB_Quelle keine Funktion erfüllen, diese stellt nur die Quell-Datenbank dar. Das ganze VBA soll in DB_Ziel stehen.

lg

 

Ok, dann müssen wir anders an die Sache rangehen.
Habe ich selbst noch nicht gemacht, ich versuch mal ob ich das hinkriege.

 

also: die Quell-Datenbank darf auf keinen Fall geändert werden

Ich suche dann auch einmal nach einer Möglichkeit, um den Import "Abfrage - Tabelle" zu realisieren

lg und vielen Dank für Deine Hilfe

 

Ok, also da gibt es jetzt mehrere mögliche Ansätze.
Um bei den bisherigen Ideen mit TransferDatabase zu bleiben, habe ich mal ein kleines Beispiel gebastelt.

Entpack die beiden Datenbanken (ich habe sie der Einfachheit halber QuellDB.mdb und ZielDB.mdb genannt) in ein beliebiges Verzeichnis (beide in das selbe!).
Öffne anschliessend die ZielDB.
Darin befindet sich lediglich das Modul mdl_Test.

Führe die Function fncTest() aus.
Anschliessend hast Du neben der Abfrage qryAlleDS auch die beiden Tabellen die in der Abfrage verwendet werden in der DB.
Die Tabellen werden einfach aus der QuellDB "gelinkt".

Auf Basis der qryAlleDS könnte man dann die entsprechende Tabellenerstellungsabfrage (welche eine Tabelle in der ZielDB anlegt) erstellen.

 

Kompliment! Und danke für die Mühe.

Ja, denke das könnte man.
Leider hat das mit der Tabellenerstellungsabfrage bei mir noch kein einziges Mal funktioniert. Werde mich jetzt detailliert damit beschäftigen. Die Verknüpfungen könnte man dann ja wieder einfach löschen, sodass der Anwender kaum etwas davon mitbekommt.

Ich würde natürlich gerne versuchen, alle Möglichen Varianten bei mir einmal durchzuspielen. Ich werde mich da noch weiter informieren.

lg

 

Habe das mit dem "die Tabellen mitverknüpfen" jetzt bei meiner Anwendung versucht, funktioniert aber leider nicht.

Ich bekomme die Meldung, dass die Eingangstabelle oder Abfrage "XX" (in meinem Fall die ERSTE Quelltabellen, also eine Tabelle in der Quell-DB) nicht gefunden werden konnte...
Die Pfade etc. stimmen natürlich. Tabellenname und Path sind richtig.

Kann das an der weiteren Verknüpfung meiner Tabellen zu einem SQL-Server liegen?

lg

 

\@CptChaos:

Ich habe jetzt gerade versucht, deine Quell-Tabelle und meine Ziel-Tabelle zu verwenden, und das erfolgreich. Das funktioniert.
Hier sind es dann eben die 2 Tabellen und 1 Abfrage, die importiert bzw. verknüpft werden.

Wenn ich aber meine Quell-Tabelle verwende (5 Tabellen, die mit einem SQL-Server verknüpft sind, blau-grünes Kreissymbol; und 1 Abfrage), dann findet er die erste Tabelle, die ich ansprechen will und die auf den SQL-Server verweist, nicht.

Hoffentlich geht das trotz SQL-Verweis der Tabellen.
Typ: -->
Tabelle: ODBC (verknüpft)

lg

 

Ich habe hier keinen SQL-Server, aber ich kanns morgen in der Arbeit versuchen.
Möglicherweise geht hier acLink nicht sondern es muss auch acImport verwendet werden, da die SQL-Tabellen in der QuellDB ja bereits verknüpft sind.

Mir ist auch noch ein ganz anderer Ansatz eingefallen.
Muss ich morgen aber erst ausprobieren ob das so geht wie ich mir das vorstelle.
Bis dahin kannst das mit acImport in der fncLinkTable() ja mal probieren.

Die Function in mdl_Test sähe dann so aus: Code:

Das müsste dann eine verknüpfte SQL-Server-Tabelle analog der QuellDB geben.

 

Noch eine Frage:
An der Tabellenerstellungsabfrage führt kein Weg vorbei, um die Verknüpfungen aufzuheben und die Daten quasi als feste Werte zu speichern - ? Mir geht es jetzt nur darum, ob es noch andere Möglichkeiten gäbe. Generell wäre ich ja schon sehr erleichtert, wenn eine Variante dann schlussendlich funktioniert.

Werde die Änderung morgen versuchen, melde mich dann.

lg und eine gute Nacht ;-)

 

Guten Morgen,
ok, also das mit der SQL-Tabelle klappt mit acImport wie oben von mir beschrieben.
Als Tabellename wird dann nicht der Name der Tabelle auf dem SQL-Server sondern der Name der Tabelle im der QuellDB.mdb verwendet.
Die SQL-Tabelle ist dann auch in der ZielDB.mdb verknüpft.

Was meinst Du damit? Ich denke Du willst die Daten aus den verknüpften Tabellen, gefiltert/zusammengefasst durch eine Abfrage (was letztlich nichts anderes als eine Sicht auf die Daten ist) in einer neuen Tabelle in einer neuen DB speichern?!

Den anderen Weg, der mir gestern noch eingefallen ist, teste ich heute im Laufe des Tages.
Damit würde man sich evtl. das "importieren" bzw. "verlinken" der Tabellen aus der QuellDB sparen.

Nachtrag:
Mal ein erster, alternativer Versuch.
Der Code wird in der ZielDB in ein globales Modul eingefügt und dann ausgeführt. Code:

 

Hallo!

Danke für Deine Hilfe, CptChaos. Ich werde mir das morgen genau ansehen, habe momentan keine Möglichkeit, den Code in mein Projekt einzubinden.

Das ist korrekt.

Ich habe das Ganze bisher mit einer Tabellenerstellungsabfrage gelöst (Aufruf nach Import der Abfrage und der verknüpften Tabellen via VBA). Diese erstellt mir aus den in der Abfrage angezeigten Daten eine fixe Tabelle. Genau das ist es auch, was ich wollte.
Ich werde morgen die versch. Varianten bzgl. Laufzeit einmal austesten.

lg und danke

 

Mir ist heute noch eine Alternative über ein weiteres RecordSet eingefallen:
Code: