Πρόσβαση: VBA Execute Query

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

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

Δημ. dbMyDatabase Όπως DAO.Database

Dim rsMyRecords Όπως DAO.Recordset

Set dbMyDatabase = CurrentDb

Set rsMyRecords = dbMyDatabase.OpenRecordset ( " MyQuery " ) 2

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

Δημ. dbMyDatabase Όπως DAO.Database

Dim rsMyRecords Όπως DAO.Recordset

Dim qdMyParameters Όπως DAO.QueryDef

Set dbMyDatabase = CurrentDb

Ορισμός qdMyParameters = dbMyDatabase.QueryDefs ( " MyQuery " )

qdMyParameters.Parameters ( " MyParameter " ) = "τιμή "

Set rsMyRecords = qdMyParameters.OpenRecordset ( )

Η 3

Loop μέσω κάθε εγγραφή επέστρεψε και να εκτελέσει μια ενέργεια . Το παράδειγμα που ακολουθεί είναι ένας τρόπος για να γίνει αυτό

Do While Not rsMyRecords.EOF

Debug.Print "Το περιεχόμενο της στήλης μου : " . ! & RsMyRecords [ MyColumnName ] Ξενοδοχεία

rsMyRecords.MoveNext

Loop
Η 4

εκτελέσει ένα ερώτημα SQL αντί για ένα όνομα ερώτημα της Access και να θέσει τα αποτελέσματα της σε μια σειρά ρεκόρ για χειραγώγηση . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA .

Δημ. dbMyDatabase Όπως DAO.Database

Dim rsMyRecords Όπως DAO.Recordset

Dim strQuery Όπως String

strQuery = " SELECT * FROM MyTable "

Set dbMyDatabase = CurrentDb

Set rsMyRecords = dbMyDatabase.OpenRecordset ( strQuery )
5

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

CurrentDb.Execute " MyQueryName "
Η
εικόνων