Πώς να βρείτε υψηλής αξίας σε εγγραφών Visual Basic

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

1 Ανοίξτε το Microsoft Office Access , επιλέξτε "Blank Database " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και επιλέξτε " Visual Basic" για να ανοίξετε το Microsoft Visual Basic . 2

Επιλέξτε από το μενού "Εισαγωγή" και κάντε κλικ στο "ενότητα ".
Εικόνων 3

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

Private Sub readHighestValue ( )

Dim dbs Όπως Database

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

Dim SQLstr Όπως String

Set dbs = CurrentDb

SQLstr = " CREATE TABLE tableValues ​​(Πωλήσεις ΑΡΙΘΜΟΣ , Εκπτώσεις NUMBER) ? "

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO tableValues ​​( [ Πωλήσεις] , [ εκπτώσεις ] ) "

SQLstr = SQLstr & " ΑΞΙΕΣ ( '10 .52 ' , '1 .25 ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO tableValues ​​( [ Πωλήσεις] , [ εκπτώσεις ] ) "

SQLstr = SQLstr & " ΑΞΙΕΣ ( '15 .25 ' , '4 .52 ') ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( SQLstr )

SQLstr = "SELECT TOP 1 tableValues.Discounts "

SQLstr = SQLstr & " ΑΠΟ tableValues ​​"

SQLstr = SQLstr & " ORDER BY tableValues.Discounts DESC ? "

Ορισμός RST = dbs.OpenRecordset ( SQLstr )

MsgBox " Η υψηλότερη έκπτωση ήταν : " . & rst.Fields ( 0 ) Αξία

rst.Close

dbs.Close

End Sub
Η 4

Εκτελέστε υπορουτίνα σας πατώντας το πλήκτρο " F5 ".
Η
εικόνων