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

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

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

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

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

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

Provider = " Microsoft.Jet.OLEDB.4.0 "

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

End με τη
2

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

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

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

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

<< αντικείμενο εγγραφών >> . << Index = Δείκτης μεταβλητή >>
Η

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

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

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

CursorType : = adOpenKeyset , _

LockType : = adLockOptimistic , _

Επιλογές : = adCmdTableDirect
5 < p > Βρείτε την εγγραφή χρησιμοποιώντας τη μέθοδο Seek : .

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

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

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

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

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

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

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

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

CursorType : = adOpenKeySet

LockType : = adLockOptimistic
Η 11

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

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

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

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

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

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