<\/p>\n
Mit Access-Add-Ins lassen sich eine Menge Funktionen für Access nachrüsten. Einige Anwendungen produzieren dabei sogar Daten, die im Add-In gespeichert und später wieder bereitgestellt werden. Eigentlich kein Problem – Sie können von einem Add-In aus sowohl auf die Tabellen der Host-Datenbank zugreifen als auch auf die Tabellen in der Add-In-Datenbank selbst. Aber was ist, wenn Sie eine neue Version des Add-Ins liefern, der Benutzer jedoch die bereits damit erstellten Daten weiter nutzen möchte Die Lösung ist ein Backend. Die Installation eines Add-Ins plus Backend-Datenbank ist jedoch komplizierter als ohne. Wie dies einfach gelingt, zeigt dieser Beitrag.<\/b><\/p>\n
Access-Add-Ins lassen sich vergleichbar einfach installieren: Sie bringen die .mda<\/b>– oder .accda<\/b>-Datei zunächst irgendwo auf der lokalen Festplatte unter. Dann öffnen Sie Access, starten den Add-In-Manager (unter Access 2003 und älter mit dem Menübefehl Extras|Add-Ins|Add-In-Manager<\/b> oder unter Access 2007 und jünger mit dem Ribbon-Eintrag Datenbank-Tools|Add-Ins|Add-In-Manager<\/b>) und wählen dort den Befehl Neues hinzufügen <\/b>(kann je nach Version variieren) aus. Im folgenden Dialog wählen Sie die .mda<\/b>– oder .accda<\/b>-Datei aus und sorgen so dafür, dass Access diese Datei in das Add-In-Verzeichnis des Systems speichert und einige Einträge in der Registry anlegt, die Access beim Start Informationen über das neue Add-In liefern.<\/p>\n
Nun tritt der bereits in der Einleitung erwähnte Fall ein, dass ein Add-In nicht nur aus der eigentlichen Add-In-Datenbank besteht, sondern zusätzlich noch aus einem Backend. Dieses können Sie zwar problemlos etwa in einer .zip<\/b>-Bibliothek mitliefern, aber wie gelangt die Backend-Datei in das Add-In-Verzeichnis, damit das Add-In-Frontend dieses schnell und zuverlässig etwa per Referenz über den aktuellen Datenbankordner (CurrentProject.Path<\/b>) finden kann Da gibt es mehrere Möglichkeiten:<\/p>\n Speichern eines Backends in einer Add-In-Datenbank<\/b><\/p>\n Das Backend soll in einem OLE-Feld einer Tabelle der Add-In-Datenbank gespeichert werden. Dazu legen Sie zunächst eine Tabelle an, die nur ein Primärschlüsselfeld und ein Feld namens Backend <\/b>mit dem Datentyp OLE-Objekt <\/b>enthält (s. Bild 1).<\/p>\n Bild 1: Tabelle zum Speichern des Backends<\/span><\/b><\/p>\n Nun benötigen Sie zunächst eine Funktion, die eine beliebige Backend-Datenbank in das OLE-Feld der Tabelle tblBackend <\/b>schreibt. Diese Funktion finden Sie in Listing 1<\/a><\/span>. Die Funktion erwartet als einzigen Parameter den Namen der Backend-Datenbank. Der Aufruf dieser Prozedur könnte also beispielsweise wie folgt aussehen:<\/p>\n Listing 1: Einfügen der Backend-Datenbank in das OLE-Feld der Tabelle tblBackend<\/p>\n <\/p>\n Die Funktion selbst öffnet die Datenbankdatei für den binären Zugriff und schreibt ihren Inhalt in das Feld Backend<\/b> der Tabelle tblBackend<\/b>. Ein eventuell bestehender Datensatz wird zuvor gelöscht, anschließend öffnet die Funktion eine neue Datensatzgruppe auf Basis der Tabelle tblBackend<\/b>. Vor dem Anlegen eines neuen Datensatzes erfolgt noch die Prüfung, ob die angegebene Datenbankdatei überhaupt im Dateisystem vorliegt – falls nicht, wird die Prozedur beendet. In der Regel sollte diese Datei jedoch vorhanden sein, sodass im nächsten Schritt ein neuer Datensatz in der Tabelle tblBackend <\/b>angelegt wird. Die Dateinummer für die Referenz auf die angegebene Datei wird in der Variablen lngFileID <\/b>gespeichert, anschließend wird die Datei geöffnet. Die Länge beziehungsweise Größe der Datei vermerkt die Funktion in der Variablen lngFileLen<\/b>, mit der auch gleich ein entsprechendes Byte-Array als Zwischenspeicher vor dem Eintragen in der Tabelle dimensioniert wird. Die Get<\/b>-Methode füllt den Dateiinhalt in das Byte-Array Buffer<\/b>, von wo aus die Datei mit der AppendChunk<\/b>-Methode gleich in das Feld Backend <\/b>der Tabelle tblBackend <\/b>geschrieben wird. Danach sorgt die Update<\/b>-Methode für das Speichern dieses Datensatzes. Enthält das Feld Backend <\/b>anschließend wie in Bild 2 den Wert Long Binary Daten<\/b>, scheint alles funktioniert zu haben.<\/p>\n Bild 2: Tabelle zum Speichern des Backends in der Datenblattansicht<\/span><\/b><\/p>\n Backend exportieren<\/b><\/p>\n Eine zweite Funktion soll die im Feld Backend <\/b>der Tabelle tblBackend <\/b>gespeicherte Datei wieder im Dateisystem speichern, und zwar unter dem mit dem Parameter strFilename <\/b>angegebenen Dateinamen. Das Basisverzeichnis entspricht dem aktuellen Verzeichnis der Add-In-Datei, das hier mit CodeProject.Path <\/b>ermittelt wird. Warum CodeProject.Path <\/b>und nicht CurrentProject.Path<\/b><\/p>\n Ganz einfach: Weil diese Funktion später von der Add-In-Datenbank aus aufgerufen werden soll, während diese von der Host-Datenbank aus als Add-In geöffnet ist.<\/p>\n Sind Host- und Add-In-Datenbank aktiv, referenzieren Sie mit CurrentProject <\/b>die Host-Datenbank und mit CodeProject <\/b>die Add-In-Datenbank. Wenn Sie hier CurrentProject.Path <\/b>verwenden, würde das Backend des Add-Ins im Verzeichnis der Host-Datei gespeichert, von der aus das Add-In geöffnet wurde.<\/p>\n Die Funktion SaveOLEFieldToBackend<\/b> sieht wie in Listing 2<\/a><\/span> aus und öffnet zunächst ein Recordset auf Basis der Tabelle tblBackend<\/b>. Die LenB<\/b>-Funktion ermittelt die Größe der im Feld Backend <\/b>gespeicherten Datei.<\/p>\n Listing 2: Entpacken der Backend-Datenbank aus dem Tabellenfeld auf die Festplatte<\/p>\n Sollte diese größer als 0 <\/b>sein, wird das Byte-Array Buffer <\/b>entsprechend dimensioniert und über die GetChunk<\/b>-Methode des Feldes Backend <\/b>mit dessen Inhalt gefüllt.<\/p>\n Der Inhalt dieser Variablen wird dann mit der Put<\/b>-Methode in die zuvor für den binären Zugriff geöffnete Datei geschrieben.<\/p>\n Backend beim ersten Start des Add-Ins entpacken<\/b><\/p>\n Die Add-In-Datenbank AddInBackend.mda<\/b>, die wir mit den oben erwähnten Funktionen versehen haben, enthält eine Tabelle namens USysRegInfo<\/b>.<\/p>\n Diese liefert die bei der Installation des Add-Ins über den Add-In-Manager benötigten Daten zum Eintragen in die Registry.<\/p>\n Für dieses Beispiel wollen wir ein Menü-Add-In erstellen, das Sie einfach über das gleiche Menü starten können, in dem Sie auch den Add-In-Manager finden. Die Tabelle sieht etwa wie in Bild 3 aus. Dort finden Sie im ersten Datensatz die Funktion, die beim Starten des Add-Ins aufgerufen werden soll – sie heißt Autostart<\/b>.<\/p>\n Bild 3: Die Tabelle USysRegInfo mit den Daten für die Registry<\/span><\/b><\/p>\n In dieser Funktion müssen wir die Logik unterbringen, die beim Starten des Add-Ins prüft, ob sich die Backend-Datenbank bereits im gleichen Verzeichnis wie das Add-In befindet. Ist dies nicht der Fall, soll das Backend aus der Tabelle tblBackend <\/b>dorthin extrahiert werden. Außerdem sollen die vorhandenen Tabellen des Backends mit dem Frontend verknüpft werden.<\/p>\n\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AddInBackends-web-images\/pic001.png\")
<\/p>\nPublic Sub BackendSpeichern()\r\n If SaveBackendToOLEField(CurrentProject.Path & "\\Addin_BE.mda") = True Then\r\n MsgBox "Backend erfolgreich gespeichert."\r\n Else\r\n MsgBox "Backend wurde nicht hinzugefügt."\r\n End If\r\nEnd Sub<\/pre>\n<\/p>\n
Public Function SaveBackendToOLEField(strFilename As String) As Long\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim lngFileID As Long\r\n Dim Buffer() As Byte\r\n Dim lngFileLen As Long\r\n Dim strSQL As String\r\n On Error GoTo SaveBackendToOLEField_Err\r\n Set db = CurrentDb\r\n db.Execute "DELETE FROM tblBackend", dbFailOnError\r\n strSQL = "SELECT Backend FROM tblBackend"\r\n Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)\r\n If Dir(strFilename) = "" Then\r\n MsgBox "Die Datei ''" & strFilename & "'' existiert nicht."\r\n Exit Function\r\n End If\r\n rst.AddNew\r\n lngFileID = FreeFile\r\n Open strFilename For Binary Access Read Lock Read Write As lngFileID\r\n lngFileLen = LOF(lngFileID)\r\n ReDim Buffer(lngFileLen)\r\n rst!Backend = Null\r\n Get lngFileID, , Buffer\r\n rst!Backend.AppendChunk Buffer\r\n rst.Update\r\n SaveBackendToOLEField = True\r\n SaveBackendToOLEField_Exit:\r\n On Error Resume Next\r\n Close lngFileID\r\n rst.Close\r\n Set rst = Nothing\r\n Set db = Nothing\r\n Exit Function\r\nSaveBackendToOLEField_Err:\r\n SaveBackendToOLEField = Err.Number\r\n Resume SaveBackendToOLEField_Exit\r\nEnd Function<\/pre>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AddInBackends-web-images\/pic002.png\")
<\/p>\nPublic Function SaveOLEFieldToBackend(strFilename As String) As Boolean\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim lngFileID As Long\r\n Dim Buffer() As Byte\r\n Dim lngFileLen As Long\r\n On Error GoTo SaveOLEFieldToBackend_Err\r\n Set db = CodeDb\r\n Set rst = db.OpenRecordset("SELECT Backend FROM tblBackend", dbOpenDynaset)\r\n On Error GoTo SaveOLEFieldToBackend_Err\r\n lngFileID = FreeFile\r\n lngFileLen = Nz(LenB(rst!Backend), 0)\r\n If lngFileLen > 0 Then\r\n ReDim Buffer(lngFileLen)\r\n Open CodeProject.Path & "\\" & strFilename For Binary Access Write As lngFileID\r\n Buffer = rst!Backend.GetChunk(0, lngFileLen)\r\n Put lngFileID, , Buffer\r\n End If\r\n SaveOLEFieldToBackend = True\r\n SaveOLEFieldToBackend_Exit:\r\n On Error Resume Next\r\n Close lngFileID\r\n rst.Close\r\n Set rst = Nothing\r\n Set db = Nothing\r\n Exit Function\r\n SaveOLEFieldToBackend_Err:\r\n SaveOLEFieldToBackend = False\r\n Resume SaveOLEFieldToBackend_Exit\r\nEnd Function<\/pre>\nPublic Function Autostart()\r\n If Not Len(Dir(CodeProject.Path & "\\AddInBackend.mda")) = 0 Then\r\n If Not SaveOLEFieldToBackend("AddInBackend.mda") Then\r\n MsgBox "Es konnte kein Backend für das Add-In gefunden werden."\r\n End If\r\n End If\r\n TabellenVerknuepfen\r\nEnd Function<\/pre>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_02\/AddInBackends-web-images\/pic003.png\")
<\/p>\n