Πώς να αποκτήσετε πρόσβαση VBA Ερώτημα SQL

Visual Basic for Applications ( VBA ) είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών μηχανικής από τη Microsoft και χρησιμοποιείται για να αυτοματοποιήσουν εργασίες ρουτίνας στην Access . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που περιλαμβάνονται στη σουίτα Microsoft Office . Μια Structured Query Language ( SQL ) ερώτημα χρησιμοποιείται για την ανάκτηση δεδομένων από έναν πίνακα βάσης δεδομένων . Τα αποτελέσματα εξόδου ενός ερωτήματος SQL προσβάσιμες μέσω ενός αντικειμένου Recordset . Σε μερικά βήματα μπορείτε να γράψετε κώδικα VBA για να δημιουργήσετε ένα ερώτημα SQL και να προβάλετε τα αρχεία ανακτώνται . Οδηγίες
Η

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

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

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

Private Sub customerQuery ( )

Dim strSQL Όπως String Dim

custRst Όπως εγγραφών

Dim dbs Όπως Database

Dim rstCntr Όπως Integer

Dim custStr Όπως String

Set dbs = CurrentDb

strSQL = " SELECT Customers . [ Όνομα ] , "

strSQL = strSQL & «Οι πελάτες [ Business Phone ] . "

strSQL = strSQL & " ΑΠΟ πελάτες ? "

Set custRst = dbs.OpenRecordset ( strSQL )

custRst.MoveLast

custRst.MoveFirst

Για rstCntr = 0 Για να custRst.RecordCount - . 1

custStr = custStr & custRst.Fields ( 0 ) Value & _

" είναι ένας πελάτης και τους τηλέφωνο επιχείρηση είναι " & custRst.Fields ( 1 ) . Value & vbCr

custRst.MoveNext

Επόμενο rstCntr

MsgBox custStr

custRst.Close

dbs.Close

End Sub
Η 4

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