<\/p>\n
Während Sie eine Datenbank programmieren, fällt unter Umständen eine ganze Menge Datenmüll an – Datensätze, die beim Test eingegeben werden und die Sie nicht mehr benötigen. Dafür wäre ein Satz realistischer Daten nicht schlecht. Dieser Beitrag zeigt, wie Sie das komplette Datenmodell einer Datenbank in einer zweiten Datenbank vorhalten und diese per Mausklick über die Tabellen der aktuell bearbeiteten Datenbank schreiben – und zwar inklusive Beziehungen.<\/b><\/p>\n
Wenn Sie Anwendungen programmieren und dabei zu Testzwecken immer wieder neue Beispieldaten in die Formulare eingeben oder auch Daten aus anderen Quellen wie XML-Dokumenten, Excel-Tabellen oder auch aus anderen Datenbanken in die Tabellen spülen, möchten Sie sicher gelegentlich den Urzustand wiederherstellen. Kein Problem: Sie müssen den Urzustand nur zum gewünschten Zeitpunkt in eine externe Tabelle schreiben und diesen bei Bedarf wieder herstellen. Natürlich sollten dabei keine zwischenzeitlichen änderungen am Datenmodell übersehen werden.<\/p>\n
Dieser Beitrag beschreibt eine Lösung, mit der Sie festgelegte Tabellen einer Datenbank und deren Beziehungen in eine externe Datenbank kopieren und wiederherstellen können. Die Benutzeroberfläche dieser Lösung besteht aus dem Formular frmTabellenImportExport<\/b> (s. Bild 1). Dieses Formular zeigt beim Öffnen alle Tabellen der aktuellen Datenbank an. Sie können nun durch Markieren der gewünschten Tabellen festlegen, welche Einträge in der Sicherungsdatenbank landen sollen.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_06\/TabellenUndBeziehungenKopieren-web-images\/pic001.png\")
<\/p>\n
Bild 1: Das Formular zum Festlegen der zu importierenden oder zu exportierenden Tabellen<\/span><\/b><\/p>\n Mit einem Klick auf die Schaltfläche Sichern <\/b>öffnen Sie einen Datei öffnen<\/b>-Dialog zum Auswählen der Zieldatei. Wenn Sie eine neue Sicherungsdatei erstellen möchten, markieren Sie zuvor die Option Neue Datenbank<\/b>. In diesem Fall wählen Sie im Datei speichern<\/b>-Dialog Pfad und Name der zu erstellenden Datenbankdatei aus. Wenn Sie die Daten einmal gesichert haben, können Sie diese über die Schaltfläche Wiederherstellen <\/b>wieder in die aktuell geöffnete Datenbank importieren.<\/p>\n Beachten Sie bitte, dass beim Exportieren wie auch beim Importieren alle Tabellen der Zieldatenbank und deren Beziehungen gelöscht werden.<\/p>\n Funktion der Lösung<\/b><\/p>\n Das Formular frmTabellenImportExport <\/b>zeigt im Listenfeld lstTabellen <\/b>alle Tabellen der aktuellen Datenbank an, deren Name nicht mit USys…<\/b>, MSys… <\/b>oder ~… <\/b>beginnt. Diese Tabellennamen werden beim ersten Öffnen des Formulars in der Tabelle tblTabellenExportImport <\/b>gespeichert, und zwar in der Prozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird (s. Listing 1<\/a><\/span>).<\/p>\n Listing 1: Diese Prozedur wird beim Laden des Formulars frmTabellenImportExport ausgelöst.<\/p>\n Diese Prozedur prüft bei jedem Aufruf des Formulars, ob die in der Tabelle tblTabellenImportExport <\/b>gespeicherten Tabellennamen noch mit den tatsächlich in der Tabelle vorhandenen Tabellen übereinstimmen, und gleicht diese gegebenenfalls ab.<\/p>\n Dies geschieht in zwei Stufen: Als erstes durchläuft die Prozedur alle Datensätze der Tabelle tblTabellenExportImport<\/b>, die wie in Bild 2 aussieht. Sie prüft für jeden Eintrag, ob es noch ein TableDef<\/b>-Objekt mit dem entsprechenden Namen gibt. Falls nicht, deutet dies darauf hin, dass die Tabelle gelöscht wurde. In diesem Fall wird auch der entsprechende Eintrag aus der Tabelle tblTabellenExportImport <\/b>entfernt.<\/p>\n Bild 2: Diese Tabelle speichert, welche Tabellen importiert und exportiert werden sollen.<\/span><\/b><\/p>\n Danach folgt der umgekehrte Weg: Die Prozedur durchläuft in einer For Each<\/b>-Schleife alle TableDef<\/b>-Objekte der aktuellen Datenbank und versucht, für jede Tabelle einen Eintrag in der Tabelle tblTabellenExportImport <\/b>anzulegen.<\/p>\n Da die Tabelle einen eindeutigen Index für das Feld Tabelle <\/b>enthält, schlägt dies bei bereits vorhandenen Tabellennamen fehl. Dies ist jedoch kein Problem, da die Access-eigene Fehlerbehandlung zuvor ausgeschaltet wurde.<\/p>\n Schließlich speichert die Tabelle im Ja\/Nein<\/b>-Feld Export<\/b>, ob eine Tabelle beim Exportieren oder Importieren berücksichtigt werden soll. Dies soll sich auch im Listenfeld lstTabellen <\/b>widerspiegeln, das für die Mehrfachauswahl vorbereitet wurde.<\/p>\n Dazu werden erneut alle Datensätze der Tabelle tblTabellenExportImport <\/b>durchlaufen. Dabei stellt die Routine für alle Datensätze, die im Feld Export <\/b>den Wert True <\/b>enthalten, den Wert Selected <\/b>des jeweiligen Eintrags im Listenfeld auf den Wert True <\/b>ein.<\/p>\n Zwar erlaubt das Listenfeld keinen direkten Zugriff auf die Einträge über den Primärschlüsselwert, aber das ist nicht schlimm: Da das Listenfeld alle Datensätze der Tabelle tblTabellenExportImport <\/b>anzeigt, entspricht die absolute Position des Datensatzzeigers dem Index der Einträge im Listenfeld.<\/p>\n Tabellen aus- und abwählen<\/b><\/p>\n Wenn der Benutzer auf einen der Einträge des Listenfeldes lstTabellen <\/b>klickt, soll der neue Zustand direkt in der Tabelle tblTabellenExportImport <\/b>gespeichert werden. Dies erledigt eine Prozedur, die durch das Ereignis Nach Aktualisierung <\/b>des Listenfeldes ausgelöst wird. Leider gibt es bei der Mehrfachauswahl im Listenfeld keine Möglichkeit, direkt den zuletzt angeklickten Wert zu ermitteln. Also machen wir aus der Not eine Tugend und schreiben gleich jeweils alle Zustände in die Tabelle tblTabellenExportImport<\/b>. Dies erledigt die Prozedur aus Listing 2<\/a><\/span>.<\/p>\n Listing 2: Aktualisieren der Tabellenwerte nach dem Auswählen von Listenfeldeinträgen<\/p>\n <\/p>\n Exportieren der Tabellen<\/b><\/p>\n Bevor Sie Tabellen wiederherstellen können, müssen Sie diese zunächst erstmalig exportieren. Dies erledigen Sie mit einem Klick auf die Schaltfläche cmdSichern<\/b>. Die dadurch ausgelöste Prozedur (s. Listing 3<\/a><\/span>) prüft zunächst, ob das Kontrollkästchen chkNeueDatenbank <\/b>aktiviert ist. Falls ja, öffnet sie einen Datei speichern<\/b>-Dialog, mit dem der Benutzer angeben kann, wie die zu erstellende Datei heißen und wo sie gespeichert werden soll. Die Datenbankdatei wird gleich im folgenden Schritt angelegt, und zwar mit der CreateDatabase<\/b>-Methode des Workspace<\/b>-Objekts.<\/p>\n Listing 3: Starten des Sicherungsvorgangs<\/p>\n Falls die Tabellen in eine bereits bestehende Datenbank übertragen werden sollen, ruft die Prozedur einfach nur einen Datei auswählen<\/b>-Dialog auf. In beiden Fällen landet ein Dateipfad in der Variablen strPfad<\/b>, der nun weiterverarbeitet werden kann. Dieser Pfad entspricht nämlich der Zieldatenbank des Exports.<\/p>\n Enthält strPfad <\/b>eine vorhandene Datei, wird die Funktion MoveTablesAndRelations <\/b>mit den Namen der aktuellen Datenbank und der Zieldatenbank aufgerufen. Bevor wir uns diese ansehen, werfen wir noch einen Blick auf die Prozedur, die durch einen Klick auf die Schaltfläche cmdWiederherstellen <\/b>ausgelöst wird. Diese fragt direkt den Namen der Quelldatei der Sicherungsdatenbank ab und prüft diesen auf Gültigkeit.<\/p>\n Hat alles funktioniert, ruft auch diese Prozedur die Funktion MoveTablesAndRelations <\/b>auf – mit den gleichen Parametern, nur in umgekehrter Reihenfolge. Zuerst wird also der Name der externen Quelldatenbank übergeben und dann der Name der Zieldatei, also der aktuellen Datenbank (s. Listing 4<\/a><\/span>).<\/p>\n Listing 4: Starten der Wiederherstellung<\/p>\n Von A nach B und zurück<\/b><\/p>\n Die Sicherung und die Wiederherstellung können in einem Zuge erklärt werden, weil es sich um ein und denselben Vorgang handelt – nur mit umgekehrten Vorzeichen. Den Start macht jeweils die Prozedur MoveTablesAndRelations<\/b>. Sie erwartet in dieser Reihenfolge die Parameter Quelldatei (strSource<\/b>) und Zieldatei (strTarget<\/b>), jeweils durch den Pfad und den Dateinamen angegeben (s. Listing 5<\/a><\/span>).<\/p>\n Listing 5: Steuerprozedur für den Import\/Export<\/p>\n Die Prozedur deklariert zwei Database<\/b>-Objekte zum Speichern der Verweise auf die beteiligten Datenbank-Dateien. Diese füllt sie mithilfe der Funktion GetDB<\/b> aus Listing 6<\/a><\/span>. Diese Funktion erwartet lediglich den Dateinamen der jeweiligen Datenbank. Den jeweiligen Verweis auf das entsprechende Database<\/b>-Objekt holt diese Funktion auf verschiedene Arten: Wenn es sich um die aktuell geöffnete Datei handelt, wird diese über die Funktion CurrentDb <\/b>gefüllt. Die externe Datenbank muss erst noch geöffnet werden, was die Methode OpenDatabase <\/b>erledigt. Der Verweis wird der Variablen db <\/b>im gleichen Zuge zugewiesen und anschließend in die Rückgabevariable GetDB <\/b>geschrieben.<\/p>\n Listing 6: Datenbankverweis holen<\/p>\n Tabellen kopieren<\/b><\/p>\n Nachdem die Fronten bezüglich Quell- und Zieldatei geklärt sind, ruft die Prozedur MoveTablesAndRelations <\/b>die Funktion CopyTables <\/b>auf. Diese Funktion finden Sie in Listing 7<\/a><\/span>. Sie erwartet Verweise auf Quell- und Zieldatenbank und erzeugt zunächst ein Recordset<\/b>-Objekt auf Basis der Tabelle tblTabellenExportImport<\/b>, die ja die entsprechende Konfiguration speichert. Dabei werden allerdings nur diejenigen Datensätze berücksichtigt, deren Feld Export <\/b>den Wert True <\/b>enthält.<\/p>\n Listing 7: Kopieren der Tabellen<\/p>\n Während die Routine alle enthaltenen Datensätze durchläuft, ruft sie zunächst für jede Tabelle die Funktion DropRelations <\/b>auf. Diese löscht alle Beziehungen, die mit der jeweiligen Tabelle in Beziehung stehen – mehr dazu weiter unten. Erst danach kann die aktuelle Tabelle mit der Delete<\/b>-Methode der TableDefs<\/b>-Auflistung gelöscht werden.<\/p>\n Nach dem Löschen der Tabelle in der Zieldatenbank wird diese gleich mithilfe der TransferDatabase<\/b>-Methode wiederhergestellt, und zwar auf Basis der gleichnamigen Tabelle der jeweiligen Quelldatenbank. Dabei gibt es nur einen ganz kleinen Unterschied in der Behandlung: Wenn die aktuelle Datenbank die Quelldatenbank ist, wird diese Methode mit dem Wert acExport <\/b>aufgerufen, falls die aktuelle Datenbank die Zieldatenbank ist, lautet der erste Parameter acImport<\/b>. Zusätzlich wird noch der Name der jeweils anderen Datenbank als Name der Zieldatenbank angegeben. Dieser Vorgang wird für alle Tabellen durchgeführt, die in der Tabelle tblTabellenExportImport <\/b>für den Export vorgesehen sind.<\/p>\n Beziehungen löschen<\/b><\/p>\n Das weiter oben bereits erwähnte Löschen der Beziehungen erledigt die Prozedur DropRelations<\/b> aus Listing 8<\/a><\/span>. Diese erwartet als Parameter einen Verweis auf das zu bearbeitende Database<\/b>-Objekt sowie den Namen der Tabelle, deren Beziehungen gelöscht werden sollen. Die Routine durchläuft alle Relation<\/b>-Objekte der Datenbank in einer For…Next<\/b>-Schleife. Diese fängt bei der Anzahl der Relation-Objekte minus 1 an und arbeitet sich rückwärts bis zum Objekt mit dem Index 0 vor. Dies ist sinnvoll, da ja zwischendurch gegebenenfalls Elemente der Auflistung gelöscht werden und sich somit der Index der nachfolgenden Elemente verschiebt. Wenn die Schleife beim letzten Element beginnt, wirken sich die Löschvorgänge nicht auf die Indizes der vorderen Elemente aus.<\/p>\n Listing 8: Löschen der Beziehungen<\/p>\n Innerhalb der Schleife prüft die Routine zunächst, ob das aktuelle Relation<\/b>-Objekt die per Parameter übergebene Tabelle entweder als Master- oder als Detailtabelle verwendet. Falls ja, wird die Beziehung mit der Delete<\/b>-Methode gelöscht.<\/p>\n Beziehungen erneuern<\/b><\/p>\nPrivate Sub Form_Load()\r\n Dim db As DAO.Database\r\n Dim tdf As DAO.TableDef\r\n Dim rst As DAO.Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset("tblTabellenExportImport", dbOpenDynaset)\r\n Do While Not rst.EOF\r\n Set tdf = Nothing\r\n On Error Resume Next\r\n Set tdf = db.TableDefs(rst!Tabelle)\r\n On Error GoTo 0\r\n If tdf Is Nothing Then\r\n db.Execute "DELETE FROM tblTabellenExportImport WHERE Tabelle = ''" _\r\n & rst!Tabelle & "''", dbFailOnError\r\n End If\r\n rst.MoveNext\r\n Loop\r\n rst.Close\r\n For Each tdf In db.TableDefs\r\n Select Case Left(tdf.Name, 4)\r\n Case "MSys", "USys", "~***"\r\n Case Else\r\n On Error Resume Next\r\n db.Execute "INSERT INTO tblTabellenExportImport(Tabelle) VALUES(''" & tdf.Name & "'')", dbFailOnError\r\n End Select\r\n Next tdf\r\n Me!lstTabellen.Requery\r\n Set rst = db.OpenRecordset("tblTabellenExportImport", dbOpenDynaset)\r\n Do While Not rst.EOF\r\n If rst!Export Then\r\n Me!lstTabellen.Selected(rst.AbsolutePosition) = True\r\n End If\r\n rst.MoveNext\r\n Loop\r\n rst.Close\r\n Set rst = Nothing\r\n Set db = Nothing\r\n End Sub<\/pre>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_06\/TabellenUndBeziehungenKopieren-web-images\/pic002.png\")
<\/p>\nPrivate Sub lstTabellen_AfterUpdate()\r\n Dim db As DAO.Database\r\n Dim i As Integer\r\n Dim intSelected As Integer\r\n Set db = CurrentDb\r\n For i = 0 To Me!lstTabellen.ListCount - 1\r\n intSelected = Me!lstTabellen.Selected(i)\r\n db.Execute "UPDATE tblTabellenExportImport SET Export = " & intSelected _\r\n & " WHERE TabelleID = " & Me!lstTabellen.ItemData(i)\r\n Next i\r\n End Sub<\/pre>\n
Private Sub cmdSichern_Click()\r\n Dim strPfad As String\r\n If Me!chkNeueDatenbank Then\r\n strPfad = mdlImportExport.GetSaveFile(CurrentProject.Path)\r\n DBEngine(0).CreateDatabase strPfad, dbLangGeneral\r\n Else\r\n strPfad = OPENFILENAME(CurrentProject.Path)\r\n End If\r\n If Len(Dir(strPfad)) > 0 Then\r\n MoveTablesAndRelations CurrentDb.Name, strPfad\r\n End If\r\n End Sub<\/pre>\n
Private Sub cmdWiederherstellen_Click()\r\n Dim strPfad As String\r\n strPfad = OPENFILENAME(CurrentProject.Path)\r\n If Len(Dir(strPfad)) > 0 Then\r\n MoveTablesAndRelations strPfad, CurrentDb.Name\r\n End If\r\n End Sub<\/pre>\n
Public Sub MoveTablesAndRelations(strSource As String, _\r\n strTarget As String)\r\n Dim dbSource As DAO.Database\r\n Dim dbTarget As DAO.Database\r\n Set dbSource = GetDB(strSource)\r\n Set dbTarget = GetDB(strTarget)\r\n CopyTables dbSource, dbTarget\r\n CopyRelations dbSource, dbTarget\r\nEnd Sub<\/pre>\n
Public Function GetDB(strDB As String) As DAO.Database\r\n Dim db As DAO.Database\r\n If CurrentDb.Name = strDB Then\r\n Set db = CurrentDb\r\n Else\r\n Set db = DBEngine(0).OpenDatabase(strDB)\r\n End If\r\n Set GetDB = db\r\nEnd Function<\/pre>\n
Public Function CopyTables(dbSource As DAO.Database, dbTarget As DAO.Database)\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset("SELECT * FROM tblTabellenExportImport WHERE Export = True", _\r\n dbOpenDynaset)\r\n Do While Not rst.EOF\r\n On Error Resume Next\r\n DropRelations dbTarget, rst!Tabelle\r\n dbTarget.TableDefs.Delete rst!Tabelle\r\n On Error GoTo 0\r\n If CurrentDb.Name = dbSource.Name Then\r\n DoCmd.TransferDatabase acExport, "Microsoft Access", dbTarget.Name, acTable, _\r\n rst!Tabelle, rst!Tabelle\r\n Else\r\n DoCmd.TransferDatabase acImport, "Microsoft Access", dbSource.Name, acTable, _\r\n rst!Tabelle, rst!Tabelle\r\n End If\r\n rst.MoveNext\r\n Loop\r\nEnd Function<\/pre>\nPublic Function DropRelations(db As DAO.Database, strTable As String)\r\n Dim i As Integer\r\n For i = db.Relations.Count - 1 To 0 Step -1\r\n If db.Relations(i).ForeignTable = strTable Or db.Relations(i).Table = strTable Then\r\n db.Relations.Delete db.Relations(i).Name\r\n End If\r\n Next i\r\nEnd Function<\/pre>\n