Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να περάσει τα δεδομένα από μια μορφή σε μια πρόσβαση ερωτήματος

Γνωρίζοντας πώς να χρησιμοποιήσετε στοιχεία ελέγχου σε μια φόρμα και να περάσει τις αξίες από τους ελέγχους αυτούς σε ένα ερώτημα μπορείτε να εξοικονομήσετε χρόνο κατά την εργασία με βάσεις δεδομένων . Microsoft Office Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιούνται συνήθως για μικρότερες βάσεις δεδομένων . Ένα σύνθετο πλαίσιο είναι ένα στοιχείο ελέγχου που χρησιμοποιείται σε Graphical User Interfaces ( GUI ) για να παρέχει στο χρήστη μεγαλύτερη ευελιξία για το χειρισμό των δεδομένων . Ένα στοιχείο ελέγχου πλαισίου λίστας είναι χρήσιμο όταν θέλετε να εμφανίσετε τα αποτελέσματα του ερωτήματος προς το χρήστη . Visual Basic for Applications ( VBA ) είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για την αυτοματοποίηση των εργασιών ρουτίνας στην Access και άλλες εφαρμογές του MS Office . Τα πράγματα που θα χρειαστείτε για Microsoft Office Access
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε τη βάση δεδομένων Northwind Microsoft Office Access . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office . 2

Επιλέξτε την καρτέλα "Δημιουργία " και " Σχεδίαση φόρμας " για να δημιουργήσετε μια νέα φόρμα . Κάντε κλικ στο " Box Combo " στο " Controls " παράθυρο , στη συνέχεια, κάντε κλικ στο κουμπί της φόρμας σας και σύρετε το ποντίκι σας για να δημιουργήσετε ένα νέο στοιχείο ελέγχου σύνθετου πλαισίου . Κάντε κλικ στο " κουμπί" για την " ελέγχου " παράθυρο και να προσθέσετε ένα νέο κουμπί στη φόρμα σας . Επιλέξτε " Box List" και να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου λίστας στη φόρμα σας .
Εικόνων 3

δεξί κλικ στο " Command0 " και επιλέξτε " Ιδιότητες". Κάντε κλικ στην καρτέλα "Συμβάν" και επιλέξτε " [ Διαδικασία συμβάντος ] " δίπλα στο " Με κλικ . " Κάντε κλικ στο αποσιωπητικά ( ... ) για να ανοίξετε το παράθυρο "Microsoft Visual Basic" . Πατήστε το πλήκτρο " Ctrl " και "A " και πιέστε "Διαγραφή " για να αφαιρέσετε όλα τα υπάρχοντα κώδικα .
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη νέα λειτουργική μονάδα σας . Ο κωδικός θα χρησιμοποιήσει τον πίνακα " Υπάλληλοι " για πληροφορίες .

Option Compare Database

Private Sub Command0_Click ( )

Dim strSQL Όπως String Dim

nameSelected Όπως String

Me.Combo0.SetFocus

nameSelected = Me.Combo0.Text

strSQL = "SELECT Υπαλλήλων . [ Τίτλος εργασίας ] , εργαζόμενοι . [ Διεύθυνση E-mail ] "

strSQL = strSQL & " FROM Υπάλληλοι "

strSQL = strSQL & " WHERE ( ( ( Employees. [ Επώνυμο ] ) = " & ( nameSelected ) &" " ) ) ? "

Me.List0.RowSourceType = " Πίνακας /Ερώτημα "

Me.List0.RowSource = strSQL

End Sub

Private Sub Form_Load ( )

Me.List0.ColumnCount = 2

Me.Combo0.RowSourceType = " Πίνακας /Ερώτημα "

Me.Combo0.RowSource = " SELECT Υπαλλήλων . [ Επώνυμο ] FROM Υπάλληλοι ? "

End Sub
5

Κλείστε το " " παράθυρο και κάντε δεξί κλικ στο" Microsoft Visual Basic Form1 , "και στη συνέχεια επιλέξτε" Προβολή φόρμας " . Επιλέξτε ένα επώνυμο από το σύνθετο πλαίσιο ελέγχου . Κάντε κλικ στο " Command0 " για να εμφανίσετε την ενημέρωση των εργαζομένων στο στοιχείο ελέγχου πλαισίου λίστας με βάση το επώνυμο που επιλέξατε .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα