In einem früheren Beitrag haben wir mit einer Funktion geprüft, ob eine Datenbank geöffnet ist. Diese war jedoch nicht in jedem Fall zuverlässig – also liefern wir eine neue Version für eine solche Funktion. In dieser neuen Funktion versuchen wir, die Datenbank exklusiv zu öffnen. Das gelingt nur, wenn diese aktuell nicht geöffnet ist. Mehr dazu im vorliegenden Beitrag!<\/b><\/p>\n
In der Funktion namens IsDatabaseOpen<\/b>, die wir im Beitrag Kunde zu einer E-Mail öffnen <\/b>(www.access-im-unternehmen.de\/1291<\/b>) vorgestellt haben, prüfen wir nur, ob sich im gleichen Verzeichnis der Datenbank auch eine .laccdb<\/b>-Datei befindet. Diese wird normalerweise erstellt, wenn die Datenbank geöffnet ist.<\/p>\n
Carsten Gromberg hat uns darauf hingewiesen, dass diese Funktion nicht immer das korrekte Ergebnis liefert und eine verbesserte Version der Funktion beigesteuert.<\/p>\n
Dabei verwenden wir einen zuverlässigeren Weg, um zu prüfen, ob eine Datenbank geöffnet ist. Dabei versuchen wir, die Datenbank exklusiv zu öffnen. Das ist nur möglich, wenn die Datenbank bisher gar nicht geöffnet ist.<\/p>\n
Die neue Version der Funktion IsDatabaseOpen <\/b>finden Sie in Listing 1. Die Funktion erwartet den Pfad zu der zu untersuchenden Datenbankdatei sowie einen Boolean-Parameter, der angibt, ob bei bereits geöffneter Datenbank eine Meldung ausgegeben werden soll.<\/p>\n Listing 1: Funktion zum Prüfen, ob eine Datenbank bereits geöffnet ist<\/span><\/b><\/p>\n Die Funktion erstellt ein Objekt auf Basis der verborgenen Klasse PrivDBEngine<\/b>, die im Gegensatz zu DBEngine <\/b>eine neue Session außerhalb der Session der aktuellen Datenbank öffnet und somit unabhängig ist. Warum das wichtig ist, schauen wir uns weiter unten an.<\/p>\n Nach dem Erstellen von objEngine <\/b>deaktiviert die Funktion zunächst die eingebaute Fehlerbehandlung. Somit kann sie die nachfolgende OpenDatabase<\/b>-Methode des PrivDBEngine<\/b>-Objekts ausführen, ohne dass ein Fehler an die Benutzeroberfläche gemeldet wird, falls das Öffnen der angegebenen Datenbank nicht gelingt. Beim Aufruf der OpenDatabase<\/b>-Methode übergeben wir drei Parameter:<\/p>\n Wenn die Datenbank aktuell geöffnet ist, löst die OpenDatabase<\/b>-Methode beim exklusiven Öffnen einen Fehler aus. Wir wissen also, dass die Datenbank beim Auftreten eines Fehlers offensichtlich bereits geöffnet ist und somit nicht mehr exklusiv geöffnet werden kann. Also prüft die folgende If…Then<\/b>-Bedingung, ob Err.Number <\/b>ungleich 0 <\/b>ist. Ist das der Fall, wurde ein Fehler ausgelöst, weil die Datenbank nicht geöffnet werden konnte. Also stellen wir den Wert des Funktionsergebnisses auf True <\/b>ein.<\/p>\n Die folgende If…Then<\/b>-Bedingung prüft, ob IsDatabaseOpen <\/b>nicht den Wert True <\/b>hat und ob beim Aufruf der zweite Parameter bolShowMessage <\/b>auf True <\/b>eingestellt wurde. Sind beide Bedingungen erfüllt, gibt die Funktion noch eine Meldung aus, die darauf hinweist, dass die zu untersuchende Datenbank bereits geöffnet ist. Wurde beim Öffnen mit OpenDatabase <\/b>kein Fehler ausgelöst, gibt die Funktion den Wert True <\/b>zurück.<\/p>\n Manchmal entdecke auch ich noch neue Klassen in den VBA-Bibliotheken. In diesem Fall ist es PrivDBEngine<\/b>. Warum nutzen wir diese Klasse und nicht einfach DBEngine<\/b>?<\/p>\n Das finden wir heraus, wenn Sie wie folgt in der Funktion die Klasse PrivDBEngine <\/b>durch DBEngine <\/b>ersetzen:<\/p>\n Rufen Sie die Funktion dann einmal für die aktuell geöffnete Datenbank auf:<\/p>\n Man kann also offensichtlich im Kontext der aktuellen Session die aktuell geöffnete Datenbank nochmals exklusiv öffnen. Wenn Sie hingegen die PrivDBEngine<\/b>-Klasse verwenden, wird eine neue Session außerhalb der aktuellen Session geöffnet, von der Sie auf die aktuell geöffnete Datenbank zugreifen.<\/p>\n Damit können Sie nun in jedem Fall zuverlässig ermitteln, ob die Datenbank geöffnet ist oder nicht.<\/p>\n Die Funktion liefert nicht das gewünschte Ergebnis, wenn die mit dem ersten Parameter übergebene Datenbank nicht vorhanden ist. Dann liefert sie ebenfalls das Resultat True<\/b>. Sie müssen also zuvor sicherstellen, dass die zu untersuchende Datenbank auch tatsächlich vorhanden ist.<\/p>\nPublic Function <\/span>IsDatabaseOpen(ByVal strDBName As String<\/span>, _\r\n Optional<\/span> ByVal bolShowMessage As Boolean<\/span>) As Boolean<\/span>\r\n Dim <\/span>objEngine As <\/span>DAO.PrivDBEngine\r\n Set<\/span> objEngine = New<\/span> DAO.PrivDBEngine\r\n On Error Resume Next<\/span>\r\n objEngine.OpenDatabase strDBName, True, True<\/span>\r\n If <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n IsDatabaseOpen = True<\/span>\r\n End If<\/span>\r\n If <\/span>IsDatabaseOpen And bolShowMessage Then<\/span>\r\n MsgBox<\/span> strDBName & vbCrLf<\/span> _\r\n & \"kann nicht exklusiv geöffnet werden!\" & vbCrLf<\/span> & vbCrLf<\/span> _\r\n & \"Fehler: \" & CStr(Err.Number) & vbCrLf<\/span> _\r\n & Err.Description, vbExclamation\r\n End If<\/span>\r\n Set<\/span> objEngine = Nothing\r\nEnd Function<\/span><\/pre>\n\n
Warum PrivDBEngine statt DBEngine?<\/h2>\n
Dim <\/span>objEngine As <\/span>DAO.DBEngine\r\nSet<\/span> objEngine = New<\/span> DAO.DBEngine<\/pre>\n IsDatabaseOpen(CurrentDb.Name)\r\nFalsch<\/pre>\n
Ausnahmen<\/h2>\n