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 .