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

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

Πώς να Απόσπασμα αριθμούς σε ένα ερώτημα για την Access

Microsoft Office Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιούνται συνήθως για τις μικρότερες και τις τοπικές βάσεις δεδομένων . Η πρόσβαση περιλαμβάνεται στη σουίτα Microsoft Office και προσφέρει όλα τα απαραίτητα εργαλεία για να διαχειριστεί μια σχεσιακή βάση δεδομένων . Ένα ερώτημα χρησιμοποιείται για την ανάκτηση πληροφοριών από τους πίνακες της βάσης δεδομένων . Εξαγωγή αριθμών από ένα ερώτημα της Access επιτυγχάνεται με τον ίδιο τρόπο που θα εξάγει άλλους τύπους δεδομένων . Ένας τρόπος για να εξαγάγετε τα δεδομένα είναι με τη χρήση της Visual Basic for Applications . Σε μερικά βήματα , μπορείτε να γράψετε κώδικα VBA , εξαγάγετε αριθμούς από ένα ερώτημα , και να εμφανίσει τους στο παράθυρο εξόδου . Τα πράγματα που θα χρειαστείτε για Microsoft Office Access
δεδομένων Northwind
Η Εμφάνιση Περισσότερες οδηγίες
Η

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

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

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη νέα λειτουργική μονάδα σας ερώτημα για τον πίνακα " Προϊόντα" και εκχύλισμα τους αριθμούς στο " Αναδιάταξη επίπεδο " πεδίο μεγαλύτερο από 15 :

Private Sub extractNumbers ( )

Dim strSQL Όπως String

Dim rst Όπως εγγραφών

Dim dbs Όπως Database

Set dbs = CurrentDb

strSQL = "SELECT Προϊόντα . [ Όνομα προϊόντος] , Προϊόντα . [ Αναδιάταξη Επίπεδο] "

strSQL = strSQL & "ΑΠΟ Προϊόντα "

strSQL = strSQL & "WHERE ( ( ( Products. [ Αναδιάταξη Επίπεδο] ) > 15 ) ) ? "

Set RST = dbs.OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

Debug.Print " Αναδιάταξη Επίπεδο > 15 : "

Do While Not rst.EOF

Debug.Print " Όνομα προϊόντος : " . & rst.Fields ( 0 ) Αξία

Debug.Print " "

Debug.Print " Number Αναδιάταξη Επίπεδο : " . & rst.Fields ( 1 ) Αξία

rst.MoveNext

Loop

End Sub
Η
εικόνων

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

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