Access - externe MDB-Datei einlesen
Hier nochmal mein Anliegen:
Ich möchte die Daten aus einer externen MDB-Datei auslesen und in meine MDB-Datei übernehmen. Gleiche Tabellen, gleiche Feldstruktur. Einfach!?
Ja es wäre einfach über kopieren oder verknüpfen und Anfügeabfrage etc..
Nein, ich möchte über ein Fenster(ähnliche Explorer) die externe MDB-Datei auswählen, klicken und alle Daten der Tabellen der externen MDB werden werden an die Tabellen meiner MDB angefügt.
Info: Diese externe MDB-Datei hat immer einen anderen Namen und wird nach dem Einlesen des Inhaltes nicht mehr benötigt.
Ich hoffe ihr habt mich verstanden und könnt mir helfen.
Ein Kollege hier schrieb mir folgende Source und genau sowas brauche ich, nur leider weißt diese in der
von mir gekennzeichneten Zeile Fehler aus ("Typen unverträglich"):
DBName ist der vollständige Pfad zur externen MDB
dim DBName as string
dim db as database
dim tblRemote as TableDef
dim tblLocal as TableDef
Set DB = DBEngine.OpenDatabase(DBName)
for each tblRemote in DB.TableDefs
Set tblLocal = DB.CreateTableDef(tblRemote.Name & "_remote")
tblLocal.Connect = ";DATABASE=" & DBName
tblLocal.SourceTableName = tblRemote.Name
tblLocal.Name = tblRemote.Name & "_remote"
--->>>CodeDB.TableDefs.Append tblRemote.Name & "_remote"
DOCmd.RunSQL "INSERT INTO " & tblLocal.Name & " ........ FROM " & tblRemote.Name & "_remote"
CodeDB.TableDefs.Delete tblLocal
next tblRemote
DB.Close
Ich bitte um Hilfe.
Ich möchte die Daten aus einer externen MDB-Datei auslesen und in meine MDB-Datei übernehmen. Gleiche Tabellen, gleiche Feldstruktur. Einfach!?
Ja es wäre einfach über kopieren oder verknüpfen und Anfügeabfrage etc..
Nein, ich möchte über ein Fenster(ähnliche Explorer) die externe MDB-Datei auswählen, klicken und alle Daten der Tabellen der externen MDB werden werden an die Tabellen meiner MDB angefügt.
Info: Diese externe MDB-Datei hat immer einen anderen Namen und wird nach dem Einlesen des Inhaltes nicht mehr benötigt.
Ich hoffe ihr habt mich verstanden und könnt mir helfen.
Ein Kollege hier schrieb mir folgende Source und genau sowas brauche ich, nur leider weißt diese in der
von mir gekennzeichneten Zeile Fehler aus ("Typen unverträglich"):
DBName ist der vollständige Pfad zur externen MDB
dim DBName as string
dim db as database
dim tblRemote as TableDef
dim tblLocal as TableDef
Set DB = DBEngine.OpenDatabase(DBName)
for each tblRemote in DB.TableDefs
Set tblLocal = DB.CreateTableDef(tblRemote.Name & "_remote")
tblLocal.Connect = ";DATABASE=" & DBName
tblLocal.SourceTableName = tblRemote.Name
tblLocal.Name = tblRemote.Name & "_remote"
--->>>CodeDB.TableDefs.Append tblRemote.Name & "_remote"
DOCmd.RunSQL "INSERT INTO " & tblLocal.Name & " ........ FROM " & tblRemote.Name & "_remote"
CodeDB.TableDefs.Delete tblLocal
next tblRemote
DB.Close
Ich bitte um Hilfe.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 47040
Url: https://administrator.de/contentid/47040
Ausgedruckt am: 23.11.2024 um 05:11 Uhr
2 Kommentare
Neuester Kommentar