Πώς να χρησιμοποιήσετε μεταβλητές σε ένα Access VBA Έρευνα

ερωτήματα είναι ένα ισχυρό εργαλείο για την Microsoft Access για την ανάκτηση πληροφοριών από μια βάση δεδομένων πίνακα και έχοντας τη γνώση για το πώς να χρησιμοποιήσετε τις μεταβλητές σε ερωτήματα μπορούν να κάνουν αίτηση Access σας πιο δυναμική . Στην VBA μπορείτε να χτίσετε τις δηλώσεις SQL που περιέχει μεταβλητές όπως String μεταβλητές για την ανάκτηση δεδομένων . Μόλις οικοδομήσουμε δήλωση SQL σας, τότε μπορείτε να χρησιμοποιήσετε το αντικείμενο Recordset για να ανακτήσετε τα αποτελέσματα του ερωτήματος . Μεταβλητές χρήστη , αντί των εξόδων του χρόνου κτιρίου πολλές δηλώσεις SQL με μόνιμη κριτήρια . Τα πράγματα που θα χρειαστείτε
βάσης δεδομένων Northwind
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε με τη δημιουργία μιας νέας διαδικασίας υπο χρησιμοποιώντας τον ακόλουθο κώδικα :

Private Sub useVariablesInQuery ( ) 2

Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε τις μεταβλητές που θα χρησιμοποιήσετε στο ερώτημά σας :

Dim strSQL Όπως String Dim

companyName As String

Dim lastName Όπως String

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

Dim dbs Όπως Database

Set dbs = CurrentDb
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να καθορίσουν τις τιμές των μεταβλητών σας που χρησιμοποιείται στο ερώτημά σας :

companyName = " Northwind Traders "

lastName = " Freehafer "
Η 4

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα ερώτημα χρησιμοποιώντας τις μεταβλητές στο προηγούμενο βήμα :

strSQL = " . . SELECT Employees.Company , εργαζόμενοι [ Επώνυμο ] , εργαζόμενοι [ Όνομα ] , "

strSQL = strSQL & "Οι εργαζόμενοι . [ E-mail ] "

strSQL = strSQL & " FROM Υπάλληλοι "

strSQL = strSQL & "WHERE ( ( ( Employees.Company ) = " & ( companyName ) & " " ) "

strSQL = strSQL & " AND ( ( Employees. [ Επώνυμο ] ) = " & ( lastName ) &" " ) ) ? "
5

Πληκτρολογήστε τα ακόλουθα για να ανοίξετε ένα Recordset και να εμφανίσετε τα αποτελέσματα του ερωτήματός σας :

Set RST = dbs.OpenRecordset ( strSQL )

Debug.Print rst.Fields ( 0 ) Value <. br >

Debug.Print rst.Fields ( 1 ) . Value

Debug.Print rst.Fields ( 2 ) . Αξία

Debug.Print rst.Fields ( 3 ) . Value
Η 6

Πληκτρολογήστε το ακόλουθα για να τερματίσετε τη διαδικασία υπο σας :

rst.Close

dbs.Close

End Sub

7

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τον κωδικό σας .
Η
εικόνων