Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte pripojenie k databáze programu Access . ( Vymeňte premenné v << >> podľa potreby ) : 
 
 Dim << objekt pripojenie >> Ako ADODB.Connection 
 
 Sada << pripojenia object > ; .. > = New ADODB.Connection 
 
 S << objekt pripojenie >> 
 
 Provider = " microsoft.jet.oledb.4.0 " 
 
 Otvoriť << cesta k db >> 
 
 End With 
 2 
 Vytvorte záznamov : 
 
 Dim << objektu Recordset >> Ako ADODB . Recordset 
 
 Set << objektu Recordset >> = New ADODB.Recordset 
 3 
 Vyberte objednania index v množine záznamov : 
 
 << záznamov objekt . >> Index = << premennú Index >> 
 4 
 Otvorte tabuľku . Použite nasledujúce kľúčové hodnoty : 
 
 << objektu Recordset >> Open Source : . = << Stôl variabilný >> _ 
 
 ActiveConnection : = << objekt pripojenia >> _ 
 
 CursorType : = adOpenKeyset , _ 
 
 LockType : = adLockOptimistic , _ 
 
 Voľby : = adCmdTableDirect 
 5 
 Nájsť záznam pomocou metódu Seek : . 
 
 << objektu Recordset >> Seek KeyValues : = << vyhľadávacie kritériá >> SeekOption : = adSeekFirstEQ 
 6 
 Vykonajte požadované akcie alebo spracovanie , ako je tlač na záznam na obrazovke 
 7 
 Zatvorte objekt sady záznamov : . 
 
 << objektu Recordset . >> zavrieť 
 8 
 Zatvorte spojenie : . 
 
 << pripojenie objekte >> Zavrieť 
 Použitie Hľadať v ADO 
 
 9 
 Otvorte pripojenie . 
 10 
 Otvorte tabuľku . Použite nasledujúce kľúčové hodnoty : 
 
 CursorType : = adOpenKeyset 
 
 LockType : = adLockOptimistic 
 11 
 nájsť záznam pomocou metódy Nájsť . Použite nasledujúcu syntax , nahradenie položky << >> s príslušnými hodnotami : . 
 
 << Objektu Recordset >> Hľadať Kritériá : = << kritériá vyhľadávania > > , SearchDirection : = adSearchForward 
 12 
 Uistite sa , že bol nájdený záznam , tj , skontrolujte , či je koniec súboru ( EOF ) , podmienka nie je splnená 
 13 
 . prechádzať všetky vyhľadaných záznamov a procesu žiaduce . 
 14 
 Zatvorte objekt sady záznamov . 
 15 
 Zatvorte spojenie .