Pri vyhľadávaní v Recordsete sú štyri
možnosti:
FindFirst -hľadá
od začiatku do konca
FindLast -hľadá
od konca po začiatok
FindNext -hľadá
od aktuálneho záznamu do konca
FindPrevious -hľadá
od aktuálneho záznamu po začiatok
Ak bol záznam nájdený, hodnota
NoMatch = False
Môžu byť použité operátory
=, <, >, LIKE (z jazyka SQL)
Dim db
As Database, rs As Recordset
Set db = OpenDatabase("c:\mojadatabaza.mdb")
'otvorenie db
Set rs = db.OpenRecordset("Priatelia",
dbOpenDynaset)' otvorenie recordsetu
'vyhľadá záznamy s pivom
Corgoň a vymaže ich
rs.FindFirst "Pivo='Corgoň'" 'hľadanie
od začiatku Recordsetu
Do While Not rs.NoMatch 'po
koniec
rs.Delete
rs.FindNext "Pivo='Corgoň'"
Loop
'vyhľadá
prvý záznam od konca začínajúci slabikou Ke
rs.FindLast
"Pivo LIKE 'Ke*'"