Πώς να εντοπίσετε ένα ρεκόρ σε εγγραφών

Μπορείτε να εντοπίσετε μια εγγραφή σε ένα σύνολο εγγραφών σε Microsoft Visual Basic, χρησιμοποιώντας το Find and Seek Μέθοδοι και στις δύο ( Microsoft Data ActiveX Objects ) και ADO ( Access Data Objects ) DAO , αλλά αυτές οι μέθοδοι εφαρμόζονται με διαφορετικό τρόπο και στις δύο βιβλιοθήκες αντικειμένων . Ζητήστε αποδίδει καλύτερα από ό, τι βρείτε σε δύο μεθόδους , επειδή Ζητήστε απαιτεί ένα ευρετήριο , προκειμένου να εκτελέσει μια αναζήτηση , σε μεγάλο βαθμό την επιτάχυνση των επιδόσεων στις περισσότερες περιπτώσεις . Αυτό , ωστόσο , επιβάλλει τον περιορισμό ότι η μέθοδος Ζητήστε μπορεί να χρησιμοποιηθεί μόνο σε αντικείμενα συνόλου εγγραφών που βασίζονται σε ένα ευρετήριο πίνακα . Τόσο το βρείτε και να αναζητήσει μέθοδοι απαιτούν ότι τα κριτήρια πρέπει να καθορίζονται έτσι ώστε να εκτελέσει την αναζήτηση . Τα πράγματα που θα χρειαστείτε
Computer για Microsoft Visual Basic βιβλιοθήκες
ADO ή DAO
Microsoft Access
γνώσεις προγραμματισμού
Η Εμφάνιση Περισσότερες οδηγίες
Χρησιμοποιώντας Αναζητήστε στην ADO
Φτηνές 1

Ανοίξτε τη σύνδεση με τη βάση δεδομένων της Access . ( Αντικαταστήστε τις μεταβλητές <<>> ανάλογα με την περίπτωση ) :

Δημ. <<αντικείμενο σύνδεση >> Όπως ADODB.Connection

Σετ <<αντικείμενο σύνδεση > ? . . > = Νέα ADODB.Connection

Με <<αντικείμενο σύνδεση >>

Provider = " Microsoft.Jet.OLEDB.4.0 "

Open <<διαδρομή προς db >>

End με τη
2

Δημιουργήστε το εγγραφών :

Δημ. <<αντικείμενο εγγραφών >> Όπως ADODB . εγγραφών

Σετ <<αντικείμενο εγγραφών >> = Νέα ADODB.Recordset
εικόνων 3

Επιλέξτε το ευρετήριο παραγγελιών στο σύνολο εγγραφών :

<<αντικείμενο εγγραφών >> . <>
Η

4 Ανοίξτε τον πίνακα . Χρησιμοποιήστε τις ακόλουθες βασικές αξίες :

<<αντικείμενο εγγραφών >> Open Source : . = <<Μεταβλητή πίνακα >> , _

Ενεργός _ : = <<αντικείμενο σύνδεση >> , _

CursorType : = adOpenKeyset , _

LockType : = adLockOptimistic , _

Επιλογές : = adCmdTableDirect
5

Βρείτε την εγγραφή χρησιμοποιώντας τη μέθοδο Seek : .

<<αντικείμενο εγγραφών >> Ζητήστε KeyValues ​​: = <<κριτήρια >> , SeekOption : = adSeekFirstEQ
Η 6

Εκτελέστε τις επιθυμητές ενέργειες ή μεταποίηση , όπως η εκτύπωση του ρεκόρ στην οθόνη
Η

7 Κλείστε το αντικείμενο εγγραφών : .

<<αντικείμενο εγγραφών >> . Κλείστε
8

Κλείσιμο της σύνδεσης : .

<<αντικείμενο σύνδεση >> Close
εικόνων Χρησιμοποιώντας Βρείτε στο ADO

9

Ανοίξτε τη σύνδεση .
Η 10

Ανοίξτε τον πίνακα . Χρησιμοποιήστε τις ακόλουθες βασικές αξίες :

CursorType : = adOpenKeySet

LockType : = adLockOptimistic
Η 11

Βρείτε το ρεκόρ χρησιμοποιώντας τη μέθοδο Find . Χρησιμοποιήστε την ακόλουθη σύνταξη , αντικαθιστώντας τα στοιχεία στο <<>> με τις κατάλληλες τιμές : .

<<Αντικείμενο εγγραφών >> Βρείτε Κριτήρια : = <<κριτήρια αναζήτησης > > , SearchDirection : = adSearchForward
Η 12

Ελέγξτε ότι ένα ρεκόρ βρέθηκε , δηλαδή , ελέγξτε ότι το τέλος του αρχείου ( EOF ) προϋπόθεση δεν πληρούται
Η 13

.
Η 14 βρόχο μέσω όλων εγγραφές που ταιριάζουν και τη διαδικασία , όπως είναι επιθυμητό .

Κλείστε το αντικείμενο εγγραφών .
Η 15

Κλείστε τη σύνδεση .
εικόνων