Microsoft Office Access 2007-Programmierung - Das Handbuch

HINWEIS

Über die reservierten Wörter Asc (aufsteigend, A ... Z) und Desc (absteigend, Z ... A) können Sie bei Dyna-

sets und Snapshots die Sortierfolge bestimmen.

Beachten Sie, dass das einfache Setzen der Sort-Eigenschaft noch keine Auswirkung auf die Sortierfolge hat.

Erst nach dem erneuten Ableiten des Recordsets ist dieses sortiert (siehe obiges Beispiel).

Datensätze suchen

Ähnlich wie beim Sortieren müssen Sie wieder zwischen Dynaset (Snapshot) und Table unterscheiden.

Während in einem Table-Objekt über den aktuellen Index gesucht wird, können Sie beim Dynaset eine

SQL-WHERE-Klausel angeben. Natürlich werden auch beim Suchen in Dynasets Indizes verwendet, falls

diese vorhanden sind.

Typ Anweisung

Recordset

(Dynaset)

Dim db As Database

Dim dy as Recordset

Set db = OpenDatabase("Firma.accdb")

Set dy = db.OpenRecordset("SELECT * FROM Kunden")

dy.FindFirst "Name = 'Max Müller'"

If Not dy.NoMatch Then ' gefunden

Sinnvollerweise sollte der Dynaset nach dem Suchkriterium sortiert sein. Mit einem einfachen MoveNext

können Sie weitere Übereinstimmungen überprüfen! In ungeordneten Dynasets müssen Sie die folgenden Da-

tensätze mit FindNext suchen.

Recordset

(Table)

Die Suche in einer Table gestaltet sich nicht ganz so universell wie beim Dynaset. Sie müssen einen Index

definiert haben und können nur die Seek-Methode verwenden.

Dim db As Database

Dim tb As RecordSet

Set db = OpenDatabase("Firma.accdb")

Set tb = db.OpenRecordset("Artikel", dbOpenTable)

tb.index = "nr"

tb.Seek "=", 17

If Not tb.NoMatch Then ' gefunden

Die weiteren Datensätze finden Sie (so vorhanden) nach dem aktuellen Datensatz, da die Table (Index) im

Allgemeinen aufsteigend sortiert ist.

Tabelle 6.18 Suchfunktionen

In allen Fällen können Sie über die NoMatch-Eigenschaft abfragen, ob überhaupt ein Datensatz gefunden

wurde. Ist der Rückgabewert True, dann wurde kein Record gefunden, die Satzzeigerposition bleibt unver-

ändert. Welche Suchkriterien bzw. Methoden Sie verwenden können, zeigen die beiden folgenden Tabellen.

323

Arbeiten mit Recordsets