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
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα