<\/p>\n
Haben Sie auch Kunden, die ihre Daten in mehreren Datenbanken und\/oder Tabellen halten und diese gern zusammenführen möchten Oder kommt das vielleicht sogar bei Ihnen selbst vor Das ist kein Grund zum Schämen: Auch dem Autor dieser Zeilen passiert so etwas. Das ist aber nicht schlimm, wenn man weiß, wie man die Daten zuverlässig in einer einzigen Datenbankanwendung zusammenführt. Im konkreten Fall geht es um zwei Kundendatenbanken für verschiedene Produkte, die vereinigt werden sollten.<\/b><\/p>\n
Eine Datenbank verwaltet Kunden und deren Abonnements, die andere Kunden und Softwaretools. Es wäre doch toll, wenn es hier einen gemeinsamen Kundenstamm gäbe. Sonst hilft einem etwa die Erkenntnis, dass ein Kunde nicht gern Rechnungen bezahlt, gar nichts, wenn seine nächste Bestellung von einer völlig anderen Datenbank verwaltet wird.<\/p>\n
Gäbe es nur einen Kunden-Stammdatensatz in einer einzigen Datenbank mit allen Produkten, könnte man gleich den Riegel vorschieben und beispielsweise Vorkasse verlangen, wenn ein säumiger Kunde mal wieder eine Bestellung aufgibt.<\/p>\n
Andersherum lassen sich in einer einzigen Datenbank viel einfacher Rabattaktionen für Kunden durchführen, die gegebenenfalls schon mehrere Produkte erworben haben – und vieles mehr. Und generell tut es gut, wenn man weiß, dass es Stammkunden gibt, die immer wieder auf die angebotenen Produkte zugreifen. Bis dahin ist es allerdings ein langer Weg, wenn die Kundendaten sich noch nicht in einer einzigen Datenbank befinden.<\/p>\n
Von Südwind zu Südwind<\/b><\/p>\n
In diesem Beitrag schauen wir uns beispielhaft anhand der Südwind-Datenbank an, wie Sie die Daten der einen Datenbank zu denen der anderen Datenbank hinzufügen können. Vereinfachend gehen wir davon aus, dass Sie schlicht zwei gleich aufgebaute Datenbanken verwenden, um unterschiedliche Produkte zu verwalten – beispielsweise für einen Lebensmittel-Shop und einen Shop mit Haarpflegeprodukten.<\/p>\n
Die Daten der eigentlichen Südsturm-Datenbank (unserer optimierten Version der Nordwind-Datenbank) haben wir beibehalten, zusätzlich verwenden wir eine Kopie der Südsturm-Datenbank, die allerdings in der Artikeltabelle nur Haarpflegeprodukte enthält. Außerdem gibt es dort andere Mitarbeiter, Kategorien, Kunden, Lieferanten et cetera – genug Material also, um einen Import zu programmieren.<\/p>\n
Vorhandene Daten<\/b><\/p>\n
Wichtig ist vorab, dass Sie für jede Tabelle den Umgang mit vorhandenen Daten klären. Sollen vorhandene Datensätze, die in bestimmten Kriterien mit einem neuen Datensatz übereinstimmen, ersetzt werden Oder behalten Sie den vorhandenen Datensatz bei Und welche Kriterien legen überhaupt fest, ob der Datensatz als vorhanden definiert wird<\/p>\n
Primärschlüsselwerte<\/p>\n
Wie geht man mit zu importierenden Datensätzen um, deren Primärschlüsselwert bereits vorhanden ist Eines ist klar: Zweifach können Sie keinen Primärschlüsselwert vergeben. Also müssen Sie dem neuen Datensatz einen neuen Primärschlüsselwert zuweisen.<\/p>\n
Fremdschlüsselfelder<\/b><\/p>\n
An sich kein Problem, wenn da die verknüpften Tabellen nicht wären: Wenn Sie beispielsweise einen Artikel neu anlegen und dessen Primärschlüsselwert dabei ebenfalls neu vergeben, müssen Sie bei zu importierenden Daten, die mit dem Artikel verknüpft sind, auch die Fremdschlüsselfelder anpassen.<\/p>\n
Dies erledigen wir in diesem Fall auf einfache Weise: Wir fügen den Tabellen der Zieldatenbank ein neues Feld hinzu, das PKAlt <\/b>heißt. Bei neu eingefügten Datensätzen schreiben wir den alten Primärschlüsselwert als Erinnerung in dieses Feld. Wenn Sie dann später etwa eine Bestellposition importieren, die einen solchen Artikel referenziert, brauchen Sie nur zu prüfen, welcher Artikeldatensatz in der Zieltabelle den Fremdschlüsselwert im Feld PKAlt<\/b> aufweist. Dann ermitteln Sie den neuen Primärschlüsselwert dieses Datensatzes und tragen ihn als neuen Wert des entsprechenden Fremdschlüsselfeldes der Bestellposition ein.<\/p>\n
Reihenfolge der Tabellen<\/b><\/p>\n
Auch die Reihenfolge der Tabellen beim Import ist wichtig. Tabellen, die Fremdschlüsselfelder mit Verknüpfungen zu anderen Tabellen enthalten, können Sie erst importieren, wenn die entsprechenden Datensätze der verknüpften Tabellen vorliegen. Im Falle der Südsturm-Datenbank sähe dies wie folgt aus:<\/p>\n
Zugriff auf die zu importierenden Daten<\/b><\/p>\n
Auf die Quelldaten für den Import können Sie auf verschiedene Arten zugreifen. Am einfachsten ist es vermutlich, die Tabellen einfach zu verknüpfen. Sie liegen dann wie lokale Tabellen vor und können per VBA genau so behandelt werden.<\/p>\n
Eine zweite Variante ist es, die Tabellen nicht zu verknüpfen, sondern mit der IN<\/b>-Klausel in SELECT<\/b>– Statements auf die Daten zuzugreifen. Dies ist jedoch etwas unübersichtlicher, da man auch nicht mal eben ein paar Werte in den betroffenen Tabellen prüfen kann, ohne die Quelldatenbank zu öffnen.<\/p>\n
Kategorien zusammenführen<\/b><\/p>\n
Beginnen wir mit einer kleinen Aufwärmübung: dem Zusammenführen der Datensätze der Tabelle tblKategorien<\/b>. Die Quelltabelle ist in der Zieldatenbank in Form einer Verknüpfung eingebunden und heißt tblKategorien1<\/b>. Das Zusammenführen übernimmt in diesem Fall die Prozedur aus Listing 1<\/a><\/span>.<\/p>\n Listing 1: Zusammenführen der beiden Tabellen tblKategorien und tblKategorien1<\/p>\n Die Prozedur deklariert zunächst ein Database<\/b>-Objekt und zwei Recordset<\/b>-Objekte – je eines für die Quell- und die Zieldatenbank. Außerdem benötigen wir eine Variable, welche den Wert eines Datensatzes mit einer eventuell bereits vorhandenen Kategorie speichert. Danach weist die Prozedur den Objekten den Verweis auf die aktuelle Datenbank sowie auf die beiden betroffenen Tabellen zu. Eine Do While<\/b>-Schleife durchläuft die Quelltabelle und prüft zunächst, ob die Zieltabelle bereits eine gleichnamige Kategorie enthält.<\/p>\n Ist dies der Fall, wird die Variable lngZielID <\/b>mit dem Wert des Primärschlüsselwertes des entsprechenden Datensatzes gefüllt. Ist noch keine Kategorie dieses Namens vorhanden, erhält lngZielID <\/b>den Wert 0<\/b>. <\/p>\n In diesem Fall wird der Tabelle ein neuer Datensatz hinzugefügt. Das Erstellen des neuen Datensatzes erledigt die AddNew<\/b>-Methode des Recordset-Objekts.<\/p>\n Die folgenden Zeilen weisen den jeweiligen Feldern die Werte aus dem Quelldatensatz zu – außer einem Feld: Das Primärschlüsselfeld KategorieID <\/b>ist ein Autowertfeld, das seinen Wert automatisch erhält. Schließlich speichert die Update<\/b>-Anweisung den neuen Datensatz.<\/p>\n Ist bereits eine gleichnamige Kategorie vorhanden, hat lngZielID <\/b>einen Wert ungleich 0<\/b>. Die Prozedur sucht in diesem Fall mit der FindFirst<\/b>-Methode nach dem entsprechenden Datensatz und verschiebt den Datensatzzeiger auf diesen Datensatz.<\/p>\n Dann bereitet sie diesen mit der Edit<\/b>-Methode zum ändern vor. Die einzige änderung ist der Eintrag des Primärschlüsselwertes des Datensatzes aus der Quelltabelle in das Feld PKAlt <\/b>der Zieltabelle. Die Update<\/b>-Methode speichert die änderung in der Tabelle. Das Ergebnis sieht dann beispielsweise wie in Bild 1 aus.<\/p>\n Bild 1: Zieltabelle mit Angabe der Primärschlüsselwerte der Quelltabelle<\/span><\/b><\/p>\n Auf die gleiche Weise fügen wir einige Zeilen Code zur Prozedur hinzu, welche die Lieferanten der Quelldatenbank zur Tabelle tblLieferanten <\/b>der Zieltabelle hinzufügt. Die Unterschiede finden sich lediglich in den verwendeten Tabellen und Feldnamen. Auch für die Tabelle tblLieferanten <\/b>gilt: Die Datensätze der Tabelle tblArtikel <\/b>sind über das Feld LieferantID <\/b>mit den Lieferanten-Datensätzen verknüpft.<\/p>\n <\/p>\n Damit wir später ermitteln können, wie der neue Primärschlüsselwert eines importierten Lieferanten-Datensatzes lautet, müssen wir auch den alten Wert in der Zieltabelle speichern. Dafür legen Sie auch hier ein neues Feld namens PKAlt <\/b>an.<\/p>\n Daten mit Verknüpfungen hinzufügen<\/b><\/p>\n Prinzipiell unterscheidet sich das Hinzufügen von Daten aus Tabellen, für die bereits über Fremdschlüsselfelder verknüpfte Daten in der Zieltabelle vorliegen, kaum von dem oben beschriebenen Vorgang zum Einlesen einfacher Daten ohne Verknüpfung. Die Erweiterung aus Listing 2<\/a><\/span> zeigt, wie der benötigte Code aussieht.<\/p>\n Listing 2: Zusammenführen von Kategorien, Lieferanten und Artikeln in einem Rutsch<\/p>\n Genau genommen finden sich nur beim Eintragen der Werte der Fremdschlüsselfelder Unterschiede: Sie können dort natürlich nicht einfach den Wert des Feldes aus der Originaltabelle anlegen, sondern müssen prüfen, welchen Primärschlüsselwert der verknüpfte Datensatz in der Zieltabelle aufweist.<\/p>\n Genau für diesen Zweck haben wir in den Zieltabellen das Feld PKAlt<\/b> eingerichtet. Um zu ermitteln, wie der neue Primärschlüsselwert lautet, sucht die Prozedur zunächst nach dem Datensatz, dessen Wert im Feld PKAlt <\/b>mit dem im Fremdschlüsselfeld der Tabelle tblArtikel <\/b>angegebenen Wert übereinstimmt. Zu diesem Datensatz benötigen Sie dann nur noch den Wert des Primärschlüsselfeldes und tragen diesen in das Fremdschlüsselfeld des neuen Datensatzes ein. Wie dies schematisch aussieht, erfahren Sie in Bild 2.<\/p>\n Bild 2: Schematischer Ablauf beim Ermitteln des neuen Fremdschlüsselwertes eines importierten Datensatzes<\/span><\/b><\/p>\n In der Prozedur verwenden Sie für diesen Zweck schlicht zwei Aufrufe der DLookup<\/b>-Funktion. Diese greift auf die Daten der verknüpften Zieltabellen zu, also beispielsweise auf die Tabelle tblKategorien<\/b>. Als Kriterium kommt ein Ausdruck zum Einsatz, der nach der Kategorie sucht, deren Feld PKAlt <\/b>den Wert aufweist, den das Fremdschlüsselfeld KategorieID <\/b>der Tabelle tblArtikel1 <\/b>(also der Quelltabelle) enthält.<\/p>\n Zu genau diesem Datensatz ermittelt DLookup <\/b>dann den Primärschlüsselwert, also den neuen Wert des Fremdschlüsselfeldes KategorieID <\/b>in der Zieltabelle tblArtikel<\/b>.<\/p>\n Daten weiterer Tabellen integrieren<\/p>\n Die Daten der übrigen Tabellen fügen Sie auf die gleiche Weise in die Tabellen der Zieldatenbank ein – es gibt hier kaum Hindernisse, wenn Sie über ein sauberes Datenmodell verfügen.<\/p>\n Keine änderung des Datenmodells möglich<\/b><\/p>\n Gegebenenfalls haben Sie keinen Zugriff auf das Datenmodell der Zieldatenbank oder dürfen dieses nicht ändern. Das bedeutet, dass Sie in den Zieltabellen kein Feld anlegen können, das die vorherigen Primärschlüsselwerte neu angelegter Datensätze speichern kann – ein Mapping der Datensätze mit Fremdschlüsselfeldern ist somit anders durchzuführen.<\/p>\n Keine Sorge: Die dazu benötigten Daten können Sie auch in einer eigenen Tabelle unterbringen, die noch nicht einmal in der Zieldatenbank vorliegen muss. Sie können die Tabelle auch in der Quelldatenbank oder in einer dritten Datenbank anlegen – Hauptsache, Sie können auf die Daten dieser Tabelle zugreifen, etwa über eine Verknüpfung. Diese Tabelle muss die folgenden Informationen speichern:<\/p>\n Den Namen der Zieltabelle und des Feldes schreiben wir zusammen in ein Feld – die Daten werden niemals getrennt abgefragt, also ist eine Aufteilung nicht nötig. Weiterhin gehen wir davon aus, dass die Primärschlüsselfelder den Datentyp Long<\/b> verwenden, und legen zum Speichern des alten und neuen Primärschlüsselwerts jeweils Zahlenfelder an. Die komplette Tabelle zum Speichern des Mappings sieht inklusive einiger Beispieldaten wie in Bild 3 aus.<\/p>\n Bild 3: Tabelle zum Speichern alter und neuer Primärschlüsselwerte<\/span><\/b><\/p>\n Code für Mapping-Tabelle anpassen<\/p>\n Nun müssen Sie noch den Code zum Importieren der Daten anpassen – immerhin werden die Mapping-Daten nun nicht mehr in die jeweiligen Zieltabellen geschrieben, sondern in eine eigens dafür vorgesehene Tabelle (s. Listing 3<\/a><\/span>). Im Detail benötigen Sie dazu die folgenden änderungen:<\/p>\n Listing 4: Ermitteln der neuen Primärschlüsselwerte aus der Mapping-Tabelle<\/p>\n Auch das Erstellen der Daten mit Fremdschlüsselfeldern ändert sich geringfügig. Hier müssen ebenfalls entsprechende Mapping-Einträge vorgenommen werden. Außerdem ändert sich natürlich der Zugriff auf die Mapping-Informationen, die sich nun nicht mehr im Feld PKAlt <\/b>der jeweiligen Tabellen befinden.<\/p>\n Stattdessen greift die Prozedur mit entsprechenden Lookup-Anweisungen auf die Mapping-Tabelle tblPKAltUndNeu <\/b>zu (s. Listing 4<\/a><\/span>).<\/p>\n Listing 5: Durchführen des Abgleichs im Rahmen einer Transaktion<\/p>\n änderungen erst prüfen<\/b><\/p>\n Die Programmierung eines solchen Imports kann mitunter einige Experimente erfordern. Dabei speichern Sie natürlich immer wieder Daten aus der Quelldatenbank in der Zieldatenbank, die Sie vor dem nächsten Versuch wieder entfernen müssen.<\/p>\n Um dies zu erledigen, gibt es zwei Varianten:<\/p>\nPublic Sub DatenZusammenfuehren()\r\n Dim db As DAO.Database\r\n Dim rstQuelle As DAO.Recordset\r\n Dim rstZiel As DAO.Recordset\r\n Dim lngZielID As Long\r\n Set db = CurrentDb\r\n Set rstQuelle = db.OpenRecordset("SELECT * FROM tblKategorien1", dbOpenDynaset)\r\n Set rstZiel = db.OpenRecordset("SELECT * FROM tblKategorien", dbOpenDynaset)\r\n Do While Not rstQuelle.EOF\r\n lngZielID = Nz(DLookup("KategorieID", "tblKategorien", "Kategoriename = ''" _\r\n & rstQuelle!Kategoriename & "''"))\r\n If lngZielID = 0 Then\r\n rstZiel.AddNew\r\n rstZiel!Kategoriename = rstQuelle!Kategoriename\r\n rstZiel!Beschreibung = rstQuelle!Beschreibung\r\n rstZiel!Abbildung = rstQuelle!Abbildung\r\n rstZiel!PKAlt = rstQuelle!KategorieID\r\n rstZiel.Update\r\n Else\r\n rstZiel.FindFirst "KategorieID = " & lngZielID\r\n rstZiel.Edit\r\n rstZiel!PKAlt = rstQuelle!KategorieID\r\n rstZiel.Update\r\n End If\r\n rstQuelle.MoveNext\r\n Loop\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_06\/Datenmerge-web-images\/pic001.png\")
<\/p>\nPublic Sub DatenZusammenfuehren_KategorienLieferantenArtikel()\r\n Dim db As DAO.Database\r\n Dim rstQuelle As DAO.Recordset\r\n Dim rstZiel As DAO.Recordset\r\n Dim lngZielID As Long\r\n Set db = CurrentDb\r\n ''... Kategorien hinzufügen\r\n ''... Lieferanten hinzufügen \r\n Set rstQuelle = db.OpenRecordset("SELECT * FROM tblArtikel1", dbOpenDynaset)\r\n Set rstZiel = db.OpenRecordset("SELECT * FROM tblArtikel", dbOpenDynaset)\r\n Do While Not rstQuelle.EOF\r\n lngZielID = Nz(DLookup("ArtikelID", "tblArtikel", "Artikelname = ''" _\r\n & rstQuelle!Artikelname & "''"))\r\n If lngZielID = 0 Then\r\n rstZiel.AddNew\r\n rstZiel!Artikelname = rstQuelle!Artikelname\r\n rstZiel!LieferantID = DLookup("LieferantID", "tblLieferanten", "PKAlt = " _\r\n & rstQuelle!LieferantID)\r\n rstZiel!KategorieID = DLookup("KategorieID", "tblKategorien", "PKAlt = " _\r\n & rstQuelle!KategorieID)\r\n rstZiel!Liefereinheit = rstQuelle!Liefereinheit\r\n rstZiel!Einzelpreis = rstQuelle!Einzelpreis\r\n rstZiel!Lagerbestand = rstQuelle!Lagerbestand\r\n rstZiel!BestellteEinheiten = rstQuelle!BestellteEinheiten\r\n rstZiel!Mindestbestand = rstQuelle!Mindestbestand\r\n rstZiel!Auslaufartikel = rstQuelle!Auslaufartikel\r\n rstZiel!PKAlt = rstQuelle!ArtikelID\r\n rstZiel.Update\r\n Else\r\n rstZiel.FindFirst "ArtikelID = " & lngZielID\r\n rstZiel.Edit\r\n rstZiel!PKAlt = rstQuelle!ArtikelID\r\n rstZiel.Update\r\n End If\r\n rstQuelle.MoveNext\r\n Loop\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_06\/Datenmerge-web-images\/pic002.png\")
<\/p>\n\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2011_06\/Datenmerge-web-images\/pic003.png\")
<\/p>\n Set rstQuelle = db.OpenRecordset("SELECT * FROM tblArtikel1", dbOpenDynaset)\r\n Set rstZiel = db.OpenRecordset("SELECT * FROM tblArtikel", dbOpenDynaset)\r\n Do While Not rstQuelle.EOF\r\n lngZielID = Nz(DLookup("ArtikelID", "tblArtikel", "Artikelname = ''" _\r\n & rstQuelle!Artikelname & "''"))\r\n If lngZielID = 0 Then\r\n rstZiel.AddNew\r\n rstZiel!Artikelname = rstQuelle!Artikelname\r\n rstZiel!LieferantID = DLookup("PKNeu", "tblPKAltUndNeu", _\r\n "PKFeld = ''tblLieferanten.LieferantID'' AND PKAlt = " & rstQuelle!LieferantID)\r\n rstZiel!KategorieID = DLookup("PKNeu", "tblPKAltUndNeu", _\r\n "PKFeld = ''tblKategorien.KategorieID'' AND PKAlt = " & rstQuelle!KategorieID)\r\n rstZiel!Liefereinheit = rstQuelle!Liefereinheit\r\n rstZiel!Einzelpreis = rstQuelle!Einzelpreis\r\n rstZiel!Lagerbestand = rstQuelle!Lagerbestand\r\n rstZiel!BestellteEinheiten = rstQuelle!BestellteEinheiten\r\n rstZiel!Mindestbestand = rstQuelle!Mindestbestand\r\n rstZiel!Auslaufartikel = rstQuelle!Auslaufartikel\r\n lngZielID = rstZiel!ArtikelID\r\n rstZiel.Update\r\n End If\r\n db.Execute "INSERT INTO tblPKAltUndNeu(PKFeld, PKAlt, PKNeu) VALUES(''tblArtikel." _\r\n & "ArtikelID'', " & rstQuelle!ArtikelID & ", " & lngZielID & ")", dbFailOnError\r\n rstQuelle.MoveNext\r\n Loop<\/pre>\n\n
Public Sub DatenZusammenfuehren_KategorienLieferantenArtikel_MitTransaktion()\r\n Dim wrk As DAO.Workspace\r\n Dim db As DAO.Database\r\n Dim rstQuelle As DAO.Recordset\r\n Dim rstZiel As DAO.Recordset\r\n Dim lngZielID As Long\r\n Dim strMeldung As String\r\n Dim rstAenderungen As DAO.Recordset\r\n Set wrk = DBEngine(0)\r\n Set db = wrk.Databases(0)\r\n wrk.BeginTrans\r\n ''Durchführung des Abgleichs mit kleinen Detailänderungen - hier Ersatz von DLookup durch FLookup:\r\n rstZiel!LieferantID = FLookup("PKNeu", "tblPKAltUndNeu", _\r\n "PKFeld = ''tblLieferanten.LieferantID'' AND PKAlt = " & rstQuelle!LieferantID)\r\n rstZiel!KategorieID = FLookup("PKNeu", "tblPKAltUndNeu", _\r\n "PKFeld = ''tblKategorien.KategorieID'' AND PKAlt = " & rstQuelle!KategorieID)\r\n Set rstAenderungen = db.OpenRecordset("qryPKAltUndNeu", dbOpenDynaset)\r\n Do While Not rstAenderungen.EOF\r\n strMeldung = strMeldung & " " & Left(rstAenderungen!PKFeld, _\r\n InStr(1, rstAenderungen!PKFeld, ".") - 1) & " " & rstAenderungen!Alt & vbCrLf\r\n rstAenderungen.MoveNext\r\n Loop\r\n If MsgBox("änderungen durchführen" & vbCrLf & strMeldung, vbYesNo) = vbYes Then\r\n wrk.CommitTrans\r\n Else\r\n wrk.Rollback\r\n End If\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2011_06\/Datenmerge-web-images\/pic004.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2011_06\/Datenmerge-web-images\/pic005.png\")
<\/p>\n