> End of met kopen van 2
Maak de recordset :
Dim << recordsetobject >>
Zoals ADODB . recordset
Set << recordsetobject
>> = Nieuwe ADODB.Recordset
3
Selecteer de bestelling index in de recordset :
<< recordset object >> . Index = << Index >> variabele
4
Open de tabel . Gebruik de volgende kernwaarden :
<< recordsetobject >>
Open Source : . = << Tabelvariabele >> , _
ActiveConnection
: = << verbindingsvoorwerp >> , _
CursorType
: = adOpenKeyset , _
LockType
: = adLockOptimistic , _
Opties
: = adCmdTableDirect
5
Ga naar de record met behulp van de methode Seek :
<< recordsetobject >>
Seek KeyValues : . = << zoekcriteria >> , SeekOption : = adSeekFirstEQ
6
Voer de gewenste acties of verwerking , zoals het afdrukken van het record op het scherm
7
Sluit de recordset object : .
<< recordsetobject >>
. Sluit
8
Sluit de aansluiting : .
<< verbindingsvoorwerp >>
Sluiten
behulp Vind in ADO
< br > 9
Open de verbinding .
10
Open de tabel . Gebruik de volgende kernwaarden :
CursorType
: = adOpenKeyset
LockType
: = adLockOptimistic
11
Zoek de record met de methode zoeken . Gebruik de volgende syntaxis , het vervangen van de items in de << >> met de juiste waarden : .
<< Recordsetobject >> Heb je Criteria : = << zoekcriteria > > , SearchDirection : = adSearchForward
controleer 12 dat een record is gevonden , dat wil zeggen , controleer dan of het einde van het bestand ( EOF ) voorwaarde is niet voldaan
13
. Loop door alle overeenkomende records en proces zoals gewenst .
14
Sluit de recordset object .
15
Sluit de verbinding .
< br >