Πώς να Φίλτρο Records Χρησιμοποιώντας Date Range σε Visual Basic 6

Ψάχνοντας τα αρχεία χρησιμοποιώντας χρονικά διαστήματα μάλιστα πολλές φορές χρησιμοποιούνται στον προγραμματισμό ηλεκτρονικών υπολογιστών για να φιλτράρετε συγκεκριμένες εγγραφές που εμπίπτουν στις ημερομηνίες που ορίζονται . Τα αρχεία αυτά πρέπει να έχουν τουλάχιστον ένα πεδίο με την ημερομηνία τύπο δεδομένων . Για παράδειγμα , σε μια λειτουργική μονάδα αναφοράς σε ένα πρόγραμμα της Visual Basic , οι χρήστες μπορούν να καθορίσετε τις ημερομηνίες έναρξης και λήξης κάνοντας κλικ σε ένα αναπτυσσόμενο ημερολόγιο , στη συνέχεια, κάνοντας κλικ σε ένα κουμπί εντολής για να φιλτράρετε τις εκθέσεις εντός της συγκεκριμένης περιόδου . Μπορείτε να φιλτράρετε τις εγγραφές χρησιμοποιώντας εύρος ημερομηνιών σε Visual Basic 6 , ακολουθώντας αυτά τα βήματα . Τα πράγματα που θα χρειαστείτε
Λογισμικά
Visual Basic 6
αρχείο βάσης δεδομένων
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Εκκίνηση της Visual Basic από τον υπολογιστή σας, κάνοντας κλικ στο " Έναρξη> Προγράμματα > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0 . " 2

Ξεκινήστε ένα νέο έργο της Visual Basic , επιλέγοντας « Standard EXE " από το " " παράθυρο διαλόγου New Project πεδίο που αναδύεται . Κάντε κλικ στο κουμπί "Άνοιγμα" για να φορτώσετε το περιβάλλον του προγράμματος .
Εικόνων 3

Προσθήκη στοιχείων ελέγχου κάνοντας κλικ επάνω τους από την "Toolbox " , ένα κάθε φορά και τη ρίψη τους στη φόρμα . Για παράδειγμα , εάν θέλετε να δημιουργήσετε ένα πρόγραμμα που φιλτράρει εργαζόμενοι που προσέλαβαν εντός 1η Ιανουαρίου 2000 και την 31 Δεκεμβρίου 2009, μπορεί να χρειαστεί να προσθέσετε δύο " DTPicker " ελέγχων " ADO " ελέγχου για να ρυθμίσετε τη σύνδεση με ένα βάση δεδομένων, ένα κουμπί εντολής , και ελέγχου του δικτύου για να εμφανίσετε τα αρχεία . Δεδομένου ότι η « DTPicker " ελέγχου δεν αποτελεί μέρος των προεπιλεγμένων ελέγχων που βρέθηκαν στο " Toolbox" , θα πρέπει να το προσθέσετε . Για να το κάνετε αυτό , κάντε δεξί κλικ στο " Toolbox" και κάντε κλικ στο "Στοιχεία " . Σύμφωνα με την " Έλεγχοι " καρτέλα , μετακινηθείτε προς τα κάτω και τσεκάρετε το " Microsoft Windows κοινούς ελέγχους - 2 6,0 " . Κάντε κλικ στο κουμπί " Κλείσιμο" όταν τελειώσετε .
Η 4

Συνεχίστε σχεδιασμό interface του προγράμματος σας . Τακτοποιήστε τα στοιχεία ελέγχου στη φόρμα και να ορίσετε ξεχωριστές ιδιότητες για κάθε στοιχείο ελέγχου .
5

Κάντε κλικ στο κουμπί " Προβολή κώδικα " στο πάνω μέρος του παραθύρου " Εξερεύνηση έργου " για να ξεκινήσει τη σύνταξη κωδίκων . Στο " Form_Load " συμβάν, ανοίξτε τη σύνδεση της βάσης δεδομένων σας .
Η

6 Κάντε κλικ στο κουμπί εντολής VB που εκτελεί την εντολή να φιλτράρετε τις εγγραφές χρησιμοποιώντας εύρος ημερομηνιών . Στο " Κάντε κλικ στο" εκδήλωση , γράφετε κώδικα παρόμοιο με το ακόλουθο :

Dim rs όπως η Νέα ADODB.RecordsetDim dtFrom , DTTO ως ημερομηνία

Αν rs.State = adStateOpen Τότε rs.Closers . CursorLocation = adUseClientrs.Open " Επιλέξτε * από [ tABLE_NAME ], όπου [ Beginning_Date_field ] > = ' " & dtFrom & ' "και End_Date_field <= ' " & DTTO & "'" , conn , adOpenDynamic , adLockOptimistic , adCmdTextIf rs.RecordCount > 0 Then'display τα φιλτραρισμένα αποτελέσματα στο πλέγμα ... End If
Η 7

Εκτελέστε το πρόγραμμα πατώντας F5 στο πληκτρολόγιο σας . Κάντε κλικ στο drop-down ημερολόγια και να ρυθμίσετε τις ημερομηνίες έναρξης και λήξης . Κάντε κλικ στο κουμπί εντολής για να εκτελεστεί .
8

Διορθώστε οποιαδήποτε σύνταξη ή λογικά σφάλματα, αν υπάρχουν .
Η 9

Αποθηκεύστε την εργασία σας πατώντας το πλήκτρο " Ctrl " + " S" στο πληκτρολόγιο .
Η
εικόνων