Schnelle Domänenfunktionen

Die Domänenfunktionen von Access sind nicht gerade als Performance-Wunder bekannt. In manchen Konstellationen sind sie zwar ausreichend schnell, in der Regel lohnt sich jedoch der Einsatz von Ersatzfunktionen – mit dem Vorteil, dass man diese auch noch den eigenen Bedürfnissen anpassen kann. Dieser Artikel stellt Alternativen zu Funktionen wie DLookup, DMax und Co. vor.

DLookup

Die DLookup-Funktion ist ein einfach zu bedienendes Werkzeug zum Ermitteln einzelner Werte aus Tabellen oder Abfragen. Sie erwartet schlicht und einfach den Namen des Feldes, der den Wert liefern soll, die Bezeichnung der Tabelle oder Abfrage und eine Bedingung, deren Syntax dem Teil hinter dem WHERE-Schlüsselwort einer Abfrage entspricht. Ein einfacher Aufruf sieht beispielsweise so aus:

DLookup("Nachname", "tblKontakte", µ
"KontaktID = 1")

Dieser Aufruf gibt den Wert des Feldes Nachname des Datensatzes der Tabelle tblKontakte zurück, dessen Feld KontaktID den Wert 1 aufweist.

Wenn Sie diesen Ausdruck beispielsweise hinter einer Debug.Print-Anweisung in das Direktfenster eingeben und mit der Eingabetaste ausführen, erscheint postwendend der gewünschte Wert. Dies ist zum Beispiel ein Einsatzzweck, für den die DLookup-Funktion ausreichend schnell ist beziehungsweise wo die gegenüber anderen Varianten schlechtere Performance nicht auffällt – wenn sie überhaupt schlechter ist, denn gerade bei einfachen Aufrufen ist DLookup oft sogar die schnellste Möglichkeit.

Es hapert eher an Stellen, wo DLookup oft aufgerufen werden soll, also etwa innerhalb einer Schleife oder als Bestandteil einer Abfrage, oder wo große Tabellen im Spiel sind. Dies liegt daran, dass DLookup im Hintergrund gründlich arbeitet: Die Funktion öffnet eine Instanz der aktuellen Datenbank, erstellt ein Snapshot-Recordset, filtert dieses auf Basis der übergebenen Parameter und liefert schließlich den Wert zurück. Überdies stehen die Domänenfunktionen im Verdacht, die erzeugten Objekte anschließend nicht sauber zu entsorgen.

FLookup

All dies erledigen wir mit einer Ersatzfunktion namens FLookup. Es gibt im Web eine Menge solcher Ersatzfunktionen, die mitunter auch andere Namen wie beispielsweise ELookup tragen. Einige ersetzen die Domänenfunktionen schlichtweg, andere erweitern deren Funktion – darauf kommen wir später zurück.

Die FLookup-Funktion aus Listing 1 bildet die Funktionsweise der DLookup-Funktion ab. Sie erwartet die gleichen Parameter und setzt diese zu einem geeigneten SQL-Ausdruck zusammen. Um diesen auszuführen, erzeugt die Funktion ein Database– und ein Recordset-Objekt auf Basis der SQL-Anweisung. Genau wie DLookup liefert auch diese Funktion den Wert Null zurück, wenn kein passender Datensatz gefunden werden kann.

Listing 1: FLookup, Version 1

Function FLookup(ByVal sFieldName As String, _
    ByVal sSource As String, _
    Optional ByVal sCriteria As String = vbNullString) _
    As Variant
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Set db = CurrentDb
    strSQL = "SELECT " & sFieldName & " FROM " & sSource
    If Len(sCriteria) > 0 Then
        strSQL = strSQL & " WHERE " & sCriteria
    End If
    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
    If rst.EOF Then
        FLookup = Null
    Else
        FLookup = rst.Fields(0).Value
    End If
    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Function

Wenn Sie sich die Performance dieser Funktion einmal genau ansehen, stellen Sie schnell fest, dass DLookup nicht unbedingt langsamer als FLookup ist. Kein Wunder: FLookup erledigt ja auch genau die gleichen Schritte wie DLookup und es räumt sogar noch die verwendeten Objektvariablen auf.

Wie also können Sie auch noch die Performance dieser Routine verbessern Nun: Wenn Sie nur einen einzigen Aufruf von FLookup tätigen, sind die Möglichkeiten stark eingeschränkt.

Einzelne Aufrufe machen aber den Braten nicht fett, daher konzentriert sich die folgende Optimierung auf den mehrfachen Aufruf der Funktion FLookup.

Welche der enthaltenen Schritte könnte man auslagern Die Parameter für den SQL-Ausdruck wechseln beim mehrfachen Aufruf – zumindest aber sollte dies für die WHERE-Bedingung der Fall sein. Es finden aber in der Regel alle Aufrufe im Kontext mit der aktuellen Datenbank statt – und die wird innerhalb der Funktion durch die Objektvariable db repräsentiert. Diese brauchen Sie also nur einmal vor dem ersten Aufruf zu füllen und könnten dann im weiteren Verlauf darauf zurückgreifen.

Username or Email

Passwort

Angemeldet bleiben