Hur du hittar en post i ett Recordset

Du kan hitta en post i en postmängd i Microsoft Visual Basic med Sök och söka efter metoder i både ( Microsoft ActiveX Data Objects ) ADO och ( Data Access Objects ) DAO , men dessa metoder implementeras på olika sätt i båda objekt biblioteken . Seek presterar bättre än Hitta i båda metoderna , eftersom Seek kräver ett index för att utföra en sökning , kraftigt påskynda fullgörelsefristen i de flesta fall . Detta dock medför begränsningen att Seek metoden endast kan användas på recordset objekt som är baserade på ett indexerat bord. Både Hitta och Seek metoderna kräver att de sökkriterier anges för att utföra uppslagning . Saker du behöver
Computer
Microsoft Visual Basic
ADO eller DAO bibliotek
Microsoft Access
Programmering kunskap
Visa fler instruktioner
Använda Sök i ADO

1

Öppna anslutningen till Access-databasen . ( Ersätt variablerna i << >> som är lämpligt ) :

Dim << anslutning objekt >> Som ADODB.Connection

Set << anslutning object> , > = Ny ADODB.Connection

<< anslutning objekt >>

Provider = " Microsoft.Jet.OLEDB.4.0 "

Open . . << sökvägen till db >>

End With
2

Skapa postmängden :

Dim << postuppsättningsobjektet >> som adodb . Recordset

Set << postuppsättningsobjektet >> = Ny ADODB.Recordset
3

Välj beställa index i postmängden :

<< postuppsättningsobjektet >> . Index = << Index variabel >>
4

Öppna tabellen . Använd följande nyckelvärden :

<< postuppsättningsobjektet >> Open Source : . = <> , _

ActiveConnection : = << anslutning objekt >> , _

CursorType : = adOpenKeyset , _

slusstyp : = adLockOptimistic , _

Alternativ : = adCmdTableDirect
5

Hitta post med sökmetod :

<< postuppsättningsobjektet >> Seek KeyValues ​​: . = << sökkriterier >> , SeekOption : = adSeekFirstEQ
6

Utför önskade åtgärder eller behandling, såsom att skriva ut posten till skärmen
7

Stäng objektet Recordset : .

<< objektet Recordset >> . Stäng
8

Stäng anslutningen : .

<< anslutning objekt >> Stäng Addera Använda hittar i ADO

9

Öppna anslutningen .
10

Öppna tabellen . Använd följande nyckelvärden :

CursorType : = adOpenKeySet

slusstyp : = adLockOptimistic
11

Hitta post med Hitta metoden . Använd följande syntax , ersätter objekt i << >> med lämpliga värden : .

<< Postuppsättningsobjektet >> Hitta Kriterier : = << sökkriterier > > , SearchDirection : = adSearchForward
12

kontrollera att ett rekord hittades , dvs kontrollera att slutet på filen ( EOF ) är villkoret inte uppfylls
13

. loopa igenom alla matchande poster och process som önskas .
14

Stäng objektet Recordset .
15

Stäng anslutningen .