<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Neue Versionen von Datenbankanwendungen müssen eine Möglichkeit bieten, die Daten der Vorgängerversion zu importieren. Optimalerweise erfolgt dieser Import weitgehend automatisch, was aber einiges an Vorarbeit bei der Entwicklung der neuen Version erfordert. Damit Sie den Benutzern Ihrer Datenbank größtmöglichen Komfort beim Versionswechsel ermöglichen können, lernen Sie im vorliegenden Beitrag einige Varianten für den Import bestehender Daten in eine neue Datenbank kennen.<\/b><\/p>\n
Es gibt prinzipiell zwei Arten von änderungen an Datenbankanwendungen: Die erste betrifft die Benutzeroberfläche, worunter unter Access Abfragen, Formulare und Berichte sowie die in den Klassen- und Standardmodulen versteckte Programmlogik fallen. Die zweite Art von änderungen zielt auf das Datenmodell und damit auf die in einer Datenbank enthaltenen Tabellen.<\/p>\n
Der wichtigste Unterschied der beiden Arten ist, dass die erste durch den Austausch der Benutzeroberfläche, die theoretisch in einem Datenbankfrontend gekapselt sein könnte, erledigt werden kann. Und selbst, wenn die Benutzeroberfläche und die Daten in derselben Datenbank untergebracht sind, können Sie immer noch eine neue Datenbank mit angepasster Benutzeroberfläche, aber ohne Tabellen als neues Datenbankfrontend verwenden. In dem Fall würden Sie die bestehende Datenbank, die ja gleichzeitig Frontend und Backend ist, in ein Backend umfunktionieren, auf das die neue Frontenddatenbank zugreift.<\/p>\n
Wenn Sie aber das Datenmodell ändern, reicht es nicht aus, einfach das neue Datenbankbackend als Backend zu verwenden und die vormals komplette Datenbankanwendung in eine Frontenddatenbank umzufunktionieren, indem Sie die Datenbank einfach mit den Tabellen der neuen Backendtabelle verknüpfen. Sie müssen ja immer noch die Daten aus der alten Datenbank in das neue Datenmodell übertragen.<\/p>\n
Und wenn Sie das ohnehin erledigen müssen, können Sie auch direkt eine komplett neue Datenbank liefern, die vielleicht auch noch überarbeitungen an der Benutzeroberfläche beinhaltet, und die bestehenden Daten in die neue Datenbank übernehmen.<\/p>\n
Und hier sitzt der Hase im Pfeffer: Der für die Datenübernahme erforderliche Algorithmus ist nämlich erstens keineswegs trivial und zweitens sicher von Datenbank zu Datenbank unterschiedlich.<\/p>\n
Eine der wichtigsten Aufgaben vor der Entwicklung einer Routine für den Import bestehender Daten in eine neue Datenbank ist die Analyse der Datenmodelle der alten und der neuen Datenbank. Einige grobe Hindernisse bei der einfachen übernahme der Daten sind folgende:<\/p>\n
![](\"..\/fileadmin\/_temp_\/{46301BC8-2258-4CFB-BDE7-DA9200A38138}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Import der Tabellenstruktur der Nordwinddatenbank<\/span><\/b><\/p>\n Abhängig von diesen und weiteren Faktoren gibt es unterschiedliche Möglichkeiten, Daten aus fremden Datenbanken zu importieren. Dabei fällt zumindest der Import mit dem entsprechenden Assistenten weg, da der Vorgang optimalerweise komplett automatisiert wird.<\/p>\n Je unterschiedlicher die Strukturen der Quell- und der Zieldatenbank sind, desto aufwändiger wird der Import der Daten; in den meisten Fällen sollte die Verknüpfung der Quelltabellen mit der Zieldatenbank und die Verwendung einiger Aktionsabfragen aber ausreichend sein. In manchen Fällen kann aber auch die Verwendung von DAO beziehungsweise ADO erforderlich sein, um die alten Daten in das neue Format zu pressen.<\/p>\n Für beide Vorgehensweisen kann das Verknüpfen der Zieldatenbank mit den Tabellen der Quelldatenbank hilfreich sein – das ist sogar Voraussetzung, wenn die Daten per Aktionsabfragen von einer zur anderen Datenbank geschaufelt werden sollen (s. Kapitel 4).<\/p>\n Wenn die Quelldatenbank relational verknüpfte Tabellen enthält, deren Primärschlüsselwerte über Autowertfelder erzeugt werden, ist auch noch eine Anpassung der Zieltabellen erforderlich – mehr dazu in Kapitel 5.<\/p>\n Sind die Zieltabellen auf den Import von verknüpften Tabellen mit oder ohne Autowertfelder vorbereitet, steht dem Import per Aktionsabfragen nichts mehr im Wege (s. Kapitel 7).<\/p>\n Für die nachfolgenden Beispiele benötigen Sie zwei Beispieldatenbanken: eine mit den Originaldaten und eine mit der überarbeiteten Tabellenstruktur, die die Originaldaten aufnehmen soll.<\/p>\n Als Originaltabelle dient die Nordwind-Datenbank und die zu füllende Datenbank können Sie mit Hilfe der folgenden Anleitung selbst erstellen:<\/p>\n Quellcode 1<\/b><\/p>\n Wenn Sie die Tabellen auf die genannte Weise importiert haben, müssen Sie nicht zuerst die Daten aus jeder einzelnen Tabelle löschen.<\/p>\n Wenn Sie später den Urzustand der Tabellen reproduzieren, also die Daten löschen und die Autowertzähler wiederherstellen möchten, können Sie das auf zwei Arten durchführen:<\/p>\n Der einfachste Fall für den Import bestehender Daten ergibt sich, wenn die zu importierenden Daten aus Tabellen stammen, die nicht mit anderen Tabellen verknüpft sind. In dem Fall können die Daten einfach von der einen Tabelle in die andere importiert werden – gegebenenfalls sogar mit dem Import-Assistenten von Access. Da Sie hier allerdings automatisierte Möglichkeiten zum Import von Daten kennen lernen sollen, fällt diese Möglichkeit im Rahmen des vorliegenden Beitrags weg.<\/p>\n Die Funktion LinkTable dient der Erstellung einer Verknüpfung der aktuellen Datenbank mit einer Tabelle einer fremden Datenbank. Die Anwendung dieser Funktion sieht beispielsweise folgendermaßen aus:<\/p>\n Mit diesem Aufruf erstellen Sie eine Verknüpfung zu der Tabelle Artikel der Nordwind-Datenbank unter dem Namen ArtikelTemp (siehe Bild 2). Die Fehlerbehandlung der Funktion fängt einen Fehler gezielt ab. Dieser tritt auf, wenn bereits eine Tabelle mit dem Namen der zu erstellenden Verknüpfung vorhanden ist. In dem Fall wird die vorhandene Verknüpfung mit der weiter unten beschriebenen Funktion Unlink zunächst entfernt.<\/p>\n <\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n <\/b><\/p>\n Bild 2: Eine frisch verknüpfte Tabelle im Datenbankfenster<\/span><\/b><\/p>\n Quellcode 3<\/b><\/p>\n Das Löschen der Verknüpfung per VBA erledigt die Funktion UnlinkTable (s. Quellcode 2). Sie verwendet die Delete-Methode der TableDefs-Auflistung des Database-Objekts mit dem Tabellennamen als einzigem Argument.<\/p>\n Wenn Sie sich vorstellen, dass die Tabelle Personal der Nordwind-Datenbank nicht mit anderen Tabellen verknüpft ist, kann sie gut als Beispiel für den Import einer allein stehenden Tabelle dienen.<\/p>\n Voraussetzung für die nachfolgend vorgestellte Vorgehensweise ist das Vorhandensein einer gefüllten Personaltabelle in der Nordwind-Datenbank und einer leeren Personaltabelle in der Beispieldatenbank.<\/p>\n Die Funktion ImportTable (s. Quellcode 3) dient zum Import der Daten einer externen Tabelle und hat fünf Parameter:<\/p>\n Die Funktion verwendet zunächst die bereits beschriebene Funktion LinkTable, um eine Verknüpfung zu der Tabelle herzustellen, aus der die Daten importiert werden sollen. Wenn die Verknüpfung hergestellt ist, wird die angegebene Insert-Abfrage und somit der eigentliche Import ausgeführt und die Verknüpfung zu der Quelltabelle wieder entfernt – natürlich über die oben genannte Funktion UnlinkTable.<\/p>\n Der Funktionsaufruf für den Import der Tabelle Personal ist wegen der vielen Felder der Tabelle relativ umfangreich:<\/p>\n Die vorliegende Funktion überprüft nicht, ob die Zieltabelle bereits Daten enthält oder nicht, sondern schreibt die Daten einfach in die Tabelle. Wenn Sie möchten, dass vorhandene Daten zuvor entfernt werden, müssen Sie an geeigneter Stelle noch eine entsprechende DELETE-Anweisung einbauen. <\/p>\n Wenn die Werte der Primärschlüsselfelder einer oder mehrerer Tabellen der Zieldatenbank per Autowert erzeugt werden und andere Tabellen per Fremdschlüsselfeld auf diese Felder verweisen, können Sie die Tabellen nicht einfach nacheinander mit der in Kapitel 5 beschriebenen Prozedur importieren. Der Grund dafür ist, dass die Primärschlüsselfelder der Tabellen der neuen Datenbank mit an Sicherheit grenzender Wahrscheinlichkeit nicht mit den Primärschlüsselfeldern der Tabellen der Quelldatenbank übereinstimmen. In dem Fall können Sie also die Werte der auf die Primärschlüsselfelder verweisenden Fremdschlüsselfelder nicht einfach in die neue Tabelle übernehmen, da diese dann auf falsche oder nicht vorhandene Datensätze zeigen würden. Statt dessen gehen Sie folgendermaßen vor:<\/p>\n Leichter lässt sich das anhand eines Beispiels erläutern. Nehmen Sie die Tabellen Artikel und Kategorien sowie Lieferanten. Die Tabelle Kategorien der Zieldatenbank erhält zunächst ein neues Feld zum Speichern des alten Primärindex und sieht nun im Entwurf wie in Bild 3 aus.<\/p>\n <\/b><\/p>\n Bild 3: Die Tabelle Kategorien mit einem temporären Primärschlüsselfeld<\/span><\/b><\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Nun importieren Sie mit dem Aufruf der Funktion ImportUnboundTable aus Quellcode 4 die Daten der Tabelle Kategorien der Quelldatenbank:<\/p>\n Wenn Sie das Funktionsergebnis per Debug.Print in das Testfenster ausgeben lassen, erfahren Sie direkt, ob der Import erfolgreich war.<\/p>\n Die INSERT-Abfrage schreibt neben den eigentlichen Datenfeldern den Inhalt des Primärschlüsselfeldes der Quelltabelle in das temporäre Primärschlüsselfeld der Zieltabelle.<\/p>\n Auf die gleiche Weise gehen Sie nun mit der Tabelle Lieferanten vor, denn auch die Datensätze dieser Tabelle sind mit der Tabelle Artikel verknüpft.<\/p>\n Nach dem Hinzufügen des temporären Feldes für den Primärschlüssel verwenden Sie den Aufruf aus Quellcode 5 für den Import der Daten.<\/p>\n Und nun folgt der Clou: Mit dem nächsten Aufruf der Funktion ImportTable importieren Sie alle Daten der Tabelle Artikel und fügen den Feldern [Kategorie-Nr] und [Lieferanten-Nr] der Tabelle automatisch die neuen Primärschlüsselwerte der beiden verknüpften Tabellen Kategorien und Lieferanten zu.<\/p>\n Der Aufruf enthält eine entsprechend aufwändige INSERT-Anweisung zur Ermittlung der beiden neuen Werte für die Fremdschlüsselfelder (s. Quellcode 6). Um mit der INSERT-Abfrage die neuen Primärschlüsselwerte der verknüpften Tabellen zu ermitteln, verwendet die Abfrage zwei Unterabfragen. Die Nicht-Fremdschlüsselfelder der Tabelle werden wie in einer herkömmlichen INSERT-Abfrage importiert, die folgende Syntax hat:<\/p>\n Die Werte für die beiden Felder [Kategorie-Nr] und [Lieferanten-Nr] werden mit wenigen Unterschieden in diese Syntax eingearbeitet. Der erste Unterschied ist, dass statt eines Ausdrucks wie <Feld1Alt> eine Unterabfrage eingesetzt wird, die beispielsweise so aussieht:<\/p>\n <\/b><\/p>\n Bild 4: Eigenschaften des Feldes Position der Tabelle Lieferanten<\/span><\/b><\/p>\n Es soll aber nicht irgendeine Lieferanten-Nummer aus der Tabelle Lieferanten verwendet werden, sondern diejenige, deren temporäre Lieferanten-Nummer aus der Quelldatenbank mit dem aktuellen Artikeldatensatz aus der Quelldatenbank übereinstimmt. <\/p>\n Und dazu muss in die Unterabfrage noch eine Bedingung eingebaut werden, die wiederum einen Wert aus der Hauptabfrage verwendet. Und damit die gleichnamigen Felder der Unterabfrage von denen der Hauptabfrage unterschieden werden können, verpassen Sie den in den beiden Abfragen verwendeten Tabellen noch Alias-Namen. Damit sieht die Unterabfrage für die Lieferanten-Nummer nun so aus, wobei t1 der Tabelle ArtikelTemp der Hauptabfrage, also der Quelltabelle, entspricht:<\/p>\n Mit den oben genannten Funktionen haben Sie bereits alle Werkzeuge in der Hand, um komplette relationale Datenbanken zu importieren. Sicher gibt es den einen oder anderen Sonderfall, bei dem die Funktionen nicht greifen. In dem Fall müssen Sie wohl oder übel eigene Prozeduren auf Basis von DAO oder ADO entwickeln, um die Daten in die Zieldatenbank zu kopieren.<\/p>\n Wenn Sie beispielsweise die komplette Nordwind-Datenbank importieren möchten, müssen Sie lediglich darauf achten, dass Sie die richtige Reihenfolge einhalten. Das heißt, dass Sie zunächst alle Tabellen importieren, die keine Fremdschlüsselfelder haben und dementsprechend nicht auf andere Tabellen verweisen. Diesen Tabellen fügen Sie temporäre Primärschlüsselfelder mit den Primärschlüsselwerten der bestehenden Datenbank hinzu. Anschließend importieren Sie die Tabellen, die mit diesen unabhängigen Tabellen verknüpft sind, und so weiter.<\/p>\n Wenn Sie eine Tabelle aufteilen möchten, um beispielsweise einen höheren Grad der Normalisierung im Datenmodell zu erhalten, kommen Sie ebenfalls mit den oben genannten Funktionen aus. Angenommen Sie möchten die Positionen der Kontaktpersonen aus der Tabelle Lieferanten in einer einzelnen Tabelle speichern und von der Lieferantentabelle darauf verweisen, dann gehen Sie folgendermaßen vor:<\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n <\/b><\/p>\n Bild 5: Lieferanten mit Positionen aus einer separaten Tabelle<\/span><\/b><\/p>\n Der erste Aufruf der Funktion sieht wie in Quellcode 7 aus. Dabei ist das INSERT-Statement so ausgelegt, dass jede Position nur einmal in die Tabelle tblPositionen kopiert wird.<\/p>\n Anschließend verwenden Sie die Funktion für den Import der Daten aus der alten Lieferantentabelle in die neue, umstrukturierte Lieferantentabelle. Das Besondere an diesem Aufruf ist wiederum die INSERT-Abfrage: Sie verwendet ebenfalls eine Unterabfrage, die aus der Tabelle tblPositionen den Wert PositionID des Datensatzes ermittelt, dessen Wert für das Feld Position mit dem entsprechenden Wert aus der Quelltabelle übereinstimmt. Die Positionen können nun in der Tabelle Lieferanten per Auswahlfeld aus der Tabelle tblPositionen ausgewählt werden (siehe Bild 5).<\/p>\n Mit den genannten Techniken können Sie die Tabellen der meisten Datenmodelle in die Tabellen anderer Datenbanken überführen – auch wenn die Struktur der Datenmodelle nicht übereinstimmt. Es gibt sicher Ausnahmen wie Tabellen mit rekursiven Beziehungen – hier sind dann entweder mehrere Schritte erforderlich oder Sie verwenden eine auf diese Tabelle zugeschnittene DAO-Routine. Im Beitrag Fahrtenbuch mit Import- und Stornierungsfunktion in der vorliegenden Ausgabe von Access im Unternehmen finden Sie einen kompletten Import, der auf den hier vorgestellten Funktionen basiert.<\/p>\n","protected":false},"excerpt":{"rendered":" Neue Versionen von Datenbankanwendungen müssen eine Möglichkeit bieten, die Daten der Vorgängerversion zu importieren. Optimalerweise erfolgt dieser Import weitgehend automatisch, was aber einiges an Vorarbeit bei der Entwicklung der neuen Version erfordert. Damit Sie den Benutzern Ihrer Datenbank größtmöglichen Komfort beim Versionswechsel ermöglichen können, lernen Sie im vorliegenden Beitrag einige Varianten für den Import bestehender Daten in eine neue Datenbank kennen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662004,66032004,44000040,44000034],"tags":[],"class_list":["post-55000218","post","type-post","status-publish","format-standard","hentry","category-662004","category-66032004","category-Allgemein","category-ImportExport"],"yoast_head":"\nPublic Sub DatenLoeschen()\r\n Dim db As DAO.Database\r\n Set db = CurrentDb\r\n On Error GoTo DatenLoeschen_Err\r\n db.Execute \"DELETE FROM Bestelldetails\", dbFailOnError\r\n db.Execute \"DELETE FROM Artikel\", dbFailOnError\r\n db.Execute \"DELETE FROM Lieferanten\", dbFailOnError\r\n db.Execute \"DELETE FROM Kategorien\", dbFailOnError\r\n db.Execute \"DELETE FROM Bestellungen\", dbFailOnError\r\n db.Execute \"DELETE FROM Personal\", dbFailOnError\r\n db.Execute \"DELETE FROM Versandfirmen\", dbFailOnError\r\n db.Execute \"DELETE FROM Kunden\", dbFailOnError\r\n Exit Sub\r\nDatenLoeschen_Err:\r\n MsgBox \"Fehlernummer: \" & Err.Number & vbCrLf & \"Fehlerbeschreibung: \" _ & Err.Description\r\nEnd Sub<\/pre>\n
Tabelle verknüpfen<\/h2>\n
Call LinkTable(\"<Pfad>\\Nordwind.mdb\", _ \"Artikel\", \"ArtikelTemp\")<\/pre>\n
Public Function LinkTable(strDatabaseSource As String, strTableSource As String, _ strTableDestination As String)\r\n Dim dbSource As DAO.Database\r\n Dim dbTarget As DAO.Database\r\n Dim tdf As DAO.TableDef\r\n On Error GoTo LinkTable_Err\r\n Set dbSource = DBEngine.Workspaces(0).OpenDatabase(strDatabaseSource)\r\n Set dbDestination = CurrentDb\r\n Set tdf = dbDestination.CreateTableDef(strTableDestination)\r\n tdf.Connect = \";DATABASE=\" & strDatabaseSource\r\n tdf.SourceTableName = strTableSource\r\n dbDestination.TableDefs.Append tdf\r\n LinkTable = True\r\nLinkTable_Exit:\r\n dbSource.Close\r\n Set dbSource = Nothing\r\n Set dbDestination = Nothing\r\n Set tdf = Nothing\r\n Exit Function\r\nLinkTable_Err:\r\n If Err.Number = 3012 Then\r\n If UnlinkTable(strTableDestination) = True Then\r\n Resume\r\n Else\r\n LinkTable = False\r\n End If\r\n Else\r\n LinkTable = False\r\n End If\r\n Resume LinkTable_Exit\r\nEnd Function<\/pre>\n
Public Function UnlinkTable(strTable As String)\r\n Dim db As Database\r\n Set db = CurrentDb\r\n On Error GoTo UnlinkTable_Err\r\n db.TableDefs.Delete (strTable)\r\n UnlinkTable = True\r\nUnlinkTable_Exit:\r\n Set db = Nothing\r\n Exit Function\r\nUnlinkTable_Err:\r\n UnlinkTable = False\r\n GoTo UnlinkTable_Exit\r\nEnd Function<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{46301BC8-2258-4CFB-BDE7-DA9200A38138}\/pic002.png\")
<\/p>\nVerknüpfung löschen<\/h2>\n
Public Function ImportTable(strDatabaseSource As String, strTableSource As String, _ strTableDestination As String, strTableSourceTemp As String, _ strInsertSQL As String)\r\n Dim db As Database\r\n Set db = CurrentDb\r\n On Error GoTo ImportTable_Err\r\n If LinkTable(strDatabaseSource, strTableSource, strTableSourceTemp) = True Then\r\n db.Execute (strInsertSQL), dbFailOnError\r\n UnlinkTable (strTableSource)\r\n ImportTable = True\r\n Else\r\n ImportTable = False\r\n End If\r\nImportTable_Exit:\r\n Set db = Nothing\r\n Exit Function\r\nImportTable_Err:\r\n ImportTable = False\r\n GoTo ImportTable_Exit\r\nEnd Function<\/pre>\n
Call ImportTable(\"<Pfad>\\Nordwind.mdb\", \"Personal\", \"Personal\", \"PersonalTemp\", \"INSERT INTO Personal(Nachname, Vorname, Position, Anrede, Geburtsdatum, Einstellung, Straße, Ort, Region, PLZ, Land, [Telefon privat], [Durchwahl Büro], Foto, Bemerkungen, [Vorgesetzte(r)]) SELECT Nachname, Vorname, Position, Anrede, Geburtsdatum, Einstellung, Straße, Ort, Region, PLZ, Land, [Telefon privat], [Durchwahl Büro], Foto, Bemerkungen, [Vorgesetzte(r)] \"FROM PersonalTemp\")<\/pre>\n
Praxis-Tipp<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{46301BC8-2258-4CFB-BDE7-DA9200A38138}\/pic003.png\")
<\/p>\nCall ImportTable(\"<Pfad>\\Nordwind.mdb\", \"Kategorien\", \"Kategorien\", _ \"KategorienTemp\", \"INSERT INTO Kategorien(Kategoriename, Beschreibung, \" _ & \"Abbildung, [Kategorie-NrTemp]) SELECT Kategoriename, Beschreibung, \" _ & \"Abbildung, [Kategorie-Nr] FROM KategorienTemp\")<\/pre>\n
Call ImportTable(\"<Pfad>\\Nordwind.mdb\", \"Lieferanten\", \"Lieferanten\", _ \"LieferantenTemp\", \"INSERT INTO Lieferanten(Firma, Kontaktperson, Position, \" _ & \"Straße, Ort, Region, PLZ, Land, Telefon, Telefax, Homepage, \" _ & \"[Lieferanten-NrTemp]) SELECT Firma, Kontaktperson, Position, Straße, Ort, \" _ & \"Region, PLZ, Land, Telefon, Telefax, Homepage, [Lieferanten-Nr] \" _ & \"FROM LieferantenTemp\")<\/pre>\n
Call ImportTable(<Pfad>\\Nordwind.mdb\", \"Artikel\", \"Artikel\", \"ArtikelTemp\", _ \"INSERT INTO Artikel(Artikelname, Liefereinheit, Einzelpreis, Lagerbestand, \" _ & \"BestellteEinheiten, Mindestbestand, Auslaufartikel, [Kategorie-Nr], \" _ & \"[Lieferanten-Nr]) \" _ & \"SELECT Artikelname, Liefereinheit, Einzelpreis, Lagerbestand, \" _ & \"BestellteEinheiten, Mindestbestand, Auslaufartikel, \" _ & \"(SELECT t3.[Kategorie-Nr] AS [Kategorie-Nr] FROM Kategorien AS t3 \" _ & \"WHERE t3.[Kategorie-NrTemp] = t1.[Kategorie-Nr]), \" _ & \"(SELECT t2.[Lieferanten-Nr] AS [Lieferanten-Nr] FROM Lieferanten AS t2 \" _ & \"WHERE t2.[Lieferanten-NrTemp] = t1.[Lieferanten-Nr]) FROM ArtikelTemp AS t1\")<\/pre>\n
INSERT INTO <NeueTabelle> (<Feld1Neu>, <Feld2Neu>, ...) SELECT <Feld1Alt>, <Feld2Alt>, ... FROM <AlteTabelle><\/pre>\n
SELECT [Lieferanten-Nr] AS [Lieferanten-Nr] FROM Lieferanten<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{46301BC8-2258-4CFB-BDE7-DA9200A38138}\/pic004.png\")
<\/p>\nSELECT t2.[Lieferanten-Nr] AS [Lieferanten-Nr] FROM Lieferanten AS t2 WHERE t2.[Lieferanten-NrTemp] = t1.[Lieferanten-Nr]<\/pre>\n
Call ImportTable(\"<Pfad>\\Nordwind.mdb\", \"Lieferanten\", \"tblPositionen\", _ LieferantenTemp\", \"INSERT INTO tblPositionen(Position) \" _ & \"SELECT DISTINCT Position FROM LieferantenTemp\")<\/pre>\n
Call ImportTable(<Pfad>\\Nordwind.mdb\", \"Lieferanten\", \"Lieferanten\", _ \"LieferantenTemp\", \"INSERT INTO Lieferanten(Firma, Kontaktperson, Position, \" _ & \"Straße, Ort, Region, PLZ, Land, Telefon, Telefax, Homepage) \" _ & \"SELECT Firma, Kontaktperson, (SELECT PositionID FROM tblPositionen AS t2 \" _ & \"WHERE t1.Position=t2.Position), Straße, Ort, Region, PLZ, Land, Telefon, \" _ & \"Telefax, Homepage FROM LieferantenTemp AS t1\")<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{46301BC8-2258-4CFB-BDE7-DA9200A38138}\/pic005.png\")
<\/p>\n