Sie können einen Datensatz in einem Recordset in Microsoft Visual Basic mit der Suche und Sucht Methoden sowohl in (Microsoft ActiveX Data Objects) und ADO (Data Access Objects) DAO finden, aber diese Methoden sind unterschiedlich implementiert in beiden Objekt-Bibliotheken . Suchen Sie eine bessere Leistung als bei beiden Methoden zu finden, denn Sucht erfordert einen Index , um eine Suche durchzuführen , erheblich beschleunigt Leistung mal in den meisten Fällen. Dies stellt jedoch die Einschränkung, dass die Seek Verfahren nur auf Cord- Objekte, die von einer indizierten Tabelle basieren, verwendet werden. Sowohl das Finden and Seek Methoden erfordern , dass die angegebenen Suchkriterien , um die Suche durchzuführen. Things You
Computer Microsoft Visual Basic ADO oder DAO
Bibliotheken
Microsoft Access
Programmierkenntnisse
brauchen anzeigen Weitere Anweisungen
mit seek in ADO

1

Öffnen Sie die Verbindung zum Access-Datenbank. ( Ersetzen Sie die Variablen in << >> ankreuzen):

Dim << Connection-Objekt >> Wie ADODB.Connection

Set << Verbindung object> ; > = New ADODB.Connection

<< >> Connection-Objekt

Provider = " Microsoft.Jet.OLEDB.4.0 "

öffnen . . << Pfad zur db >>

End With
2

erstellen der Datensatzgruppe :

Dim << Recordset-Objekt >> Wie ADODB . Recordset

Set << >> Recordset-Objekt = New ADODB.Recordset
3

Wählen Sie die Bestellung Index im Recordset :

<< Recordset-Objekt . >> << Index = Index variable >>
4

Öffnen Sie die Tabelle . Verwenden Sie die folgenden Schlüsselwerte :

<< Recordset-Objekt >> Open Source : . = << >> Tabelle variable , _

ActiveConnection : = << Connection-Objekt >> , _

CursorType : = adOpenKeyset , _

LockType : = adLockOptimistic , _

Optionen: = AdCmdTableDirect
5

Hier finden Sie die Aufzeichnung mit der Seek-Methode :

<< Recordset-Objekt >> Suche KeyValues ​​: . = << >> Suchkriterien , SeekOption : = adSeekFirstEQ
6

Führen Sie die gewünschten Aktionen oder Verarbeitung, wie das Drucken der Datensatz auf den Bildschirm
7

Schließen Sie das Recordset-Objekt : .

<< >> Recordset-Objekt . schließen
8

schließen Sie die Verbindung : .

<< >> Connection-Objekt schließen
Mit Find in ADO
< br > 9

Öffnen Sie die Verbindung .
10

Öffnen Sie die Tabelle . Verwenden Sie die folgenden Schlüsselwerte :

CursorType : = adOpenKeyset

LockType : = adLockOptimistic
11

Finden Sie die Aufzeichnung mit der Find-Methode . Verwenden Sie die folgende Syntax , ersetzt die Elemente in der << >> mit den entsprechenden Werten : .

<< >> Recordset-Objekt finden Criteria : = << Suchkriterien > > , SearchDirection : = adSearchForward
12

überprüfen Sie, ob ein Datensatz gefunden wurde , dh , ob das Ende der Datei (EOF ) nicht erfüllt ist
13

. Durchlaufen Sie alle passenden Datensätze und Verfahren , wie gewünscht.
14

Schließen Sie das Recordset-Objekt .
15

Schließen Sie die Verbindung .