Πώς να γεμίσουν ένα Box Combo VB με δεδομένα από τη βάση δεδομένων Πίνακας

Στη Visual Basic , τα σύνθετα πλαίσια χρησιμοποιούνται συχνά σε προγράμματα εισαγωγής δεδομένων και κατά την υποβολή πληροφοριών μέσω ηλεκτρονικών εντύπων . Για παράδειγμα , ίσως χρειαστεί να επιλέξετε από μια λίστα των κρατών ή τους ταχυδρομικούς κώδικες και κάνοντας κλικ σε ένα drop-down λίστα σας παρουσιάζει με διάφορες επιλογές . Ένα σύνθετο πλαίσιο συμπληρώνεται με τα στοιχεία καθορίζονται από το χρήστη οι οποίες συνήθως προστίθενται από τον προγραμματιστή κατά το χρόνο σχεδίασης , αλλά μπορείτε επίσης να συμπληρώσετε ένα σύνθετο πλαίσιο με τα στοιχεία από έναν πίνακα βάσης δεδομένων χρησιμοποιώντας μόνο λίγες γραμμές κώδικα . Τα πράγματα που θα χρειαστείτε
Visual Basic εγκατασταθεί
αρχείο βάσης δεδομένων

Παρουσίαση Περισσότερες οδηγίες
Η 1

Εκκίνηση της Visual Basic , κάντε κλικ στο κουμπί " Έναρξη " και την επιλογή "Προγράμματα , " " Microsoft Visual Studio "και στη συνέχεια " Microsoft Visual Basic [ αριθμός έκδοσης ] . " 2

Επιλέξτε " Standard EXE » κάτω από το πλαίσιο διαλόγου " New Project " . Κάντε κλικ στο κουμπί "Άνοιγμα " για να ανοίξετε μια νέα φόρμα .
Εικόνων 3

Κάντε κλικ στο " σύνθετο πλαίσιο " ελέγχου από την εργαλειοθήκη στα αριστερά και σύρετε στη φόρμα κέντρο . Ορίστε τις ιδιότητες της κάτω από το παράθυρο Properties στα δεξιά .
Η 4

Προσθέστε ένα " ADO " ελέγχου στη φόρμα . Ορισμός του " Ορατό " ιδιότητα "False . "
5

Κάντε κλικ στο κουμπί " Προβολή κώδικα " στην κορυφή του παραθύρου του έργου Explorer για να ξεκινήσετε την προσθήκη κώδικα . Στο παρακάτω παράδειγμα , οι 50 πολιτείες των ΗΠΑ , θα πρέπει να προστεθεί στο σύνθετο πλαίσιο από έναν πίνακα βάσης δεδομένων . Όταν τα φορτία μορφή κατά το χρόνο εκτέλεσης , το σύνθετο πλαίσιο γεμίζει αυτόματα . Πηγαίνετε στο " Form_Load " εκδήλωση και εισάγετε τον κωδικό παρόμοια με ακόλουθα :

Dim conn Όπως New ADODB.ConnectionDim rs As New ADODB.RecordsetSet conn = DBEngine.OpenDatabase ( App.Path & "\\ DBDATABASE . mdb " ) Set rs = conn.OpenRecordset ( " tblStates " )

Εάν rs.RecordCount > 0 ThenDo Ενώ δεν rs.EOFWith Combo1.AddItem rs.Fields ( " USStateName ") End With.MoveNextLoopEnd Αν
Η

6 Πατήστε το πλήκτρο « F5 » στο πληκτρολόγιό σας για να τρέξετε το πρόγραμμά σας .
Η 7

Αποθήκευση έργο της Visual Basic σας κάνοντας κλικ στο " Αρχείο" και στη συνέχεια " Αποθήκευση έργο ως "από το μενού .
Η
εικόνων