Du kan finde en post i en postsættet i Microsoft Visual Basic ved hjælp af Find og Seek Methods i både ( Microsoft ActiveX Data Objects ) ADO og ( Data Access Objects) DAO , men disse metoder er implementeret forskelligt i begge objektbiblioteker . Søge præsterer bedre end Find i begge metoder , fordi Seek kræver et indeks for at udføre en søgning , i høj grad fremskynde ydeevne gange i de fleste tilfælde . Dette er dog pålægger den begrænsning, at Seek metode kun kan anvendes på postsættet objekter, der er baseret på en indekseret tabel. Både Find og Seek metoder kræver , at søgekriterierne præciseres med henblik på at udføre opslag. Hvad du har brug
Computer
Microsoft Visual Basic
ADO eller DAO biblioteker
Microsoft Access
kendskab til programmering
Vis Flere Instruktioner
Brug Seek i ADO < br >
1

Åbn forbindelsen til Access-database. (Erstat variablerne i << >> er relevant) : Hej

Dim << tilslutning objekt >> Som ADODB.Connection

Set << tilslutning object> ; > = Ny ADODB.Connection

Med << tilslutning objekt >>

Provider = " Microsoft.Jet.OLEDB.4.0 "

Open . . << sti til db >>

End With
2

Opret postsættet : Hej

Dim << postsættet objekt >> Som ADODB . Recordset

Set << postsættet objekt >> = Ny ADODB.Recordset
3

Vælg bestilling indekset i postsættet : Hej

<< postsættet objekt . >> Index = << Index variabel >>
4

Åbn tabellen . Brug følgende centrale værdier:

<< postsættet objekt >> Open Source: . = << Bordet variabel >> _

ActiveConnection : = << tilslutning objekt >> _

CursorType : = adOpenKeyset , _

LockType : = adLockOptimistic , _

Valg: = adCmdTableDirect
5 < p > Find den post vha. Seek metode : Hej

<< postsættet objekt >> Seek KeyValues ​​: . = << søgekriterier >> , SeekOption : = adSeekFirstEQ
6

Udfør de ønskede handlinger eller behandling, såsom udskrivning posten til skærmen
7

Luk postsættet objekt: .

<< postsættet objekt . >> Luk
8

Luk forbindelsen : .

<< tilslutning objekt >> Luk
hjælp af finde i ADO
< br > 9

Åbn forbindelsen.
10

Åbn tabellen . Brug følgende centrale værdier:

CursorType : = adOpenKeySet

LockType : = adLockOptimistic
11

Find posten ved hjælp af Find metoden. Brug følgende syntaks , udskiftning af poster i << >> med de relevante værdier: .

<< Postsættet objekt >> Find Kriterier: = << søgekriterier > > SearchDirection : = adSearchForward
12

Kontroller, en rekord blev fundet , dvs kontrollere, at slutningen af ​​filen ( EOF ) betingelse er ikke opfyldt
13

. loop gennem alle matchende poster og proces som ønsket .
14

Luk postsættet objekt.
15

Luk forbindelsen .
< br >