Πώς να περάσει ένα String σε γραμμή Όπως και σε Microsoft Access

Επερώτηση δεδομένα από έναν πίνακα βάσης δεδομένων με τη χρήση χαρακτήρων μπαλαντέρ σε Microsoft Access δεν είναι τόσο δύσκολο όπως μπορείτε να σκεφτείτε . Στην Access , μπορείτε να χρησιμοποιήσετε τη Visual Basic for Applications ( VBA ) για να αυτοματοποιήσουν τις διαδικασίες , όπως η επερώτηση δεδομένων . Στην VBA μπορείτε να χτίσετε τις δηλώσεις SQL ερώτημα για ένα πίνακα για να βρείτε τιμές που ταιριάζουν σε ένα μοτίβο που έχετε ορίσει . Το "Like" χειριστής μπορεί να χρησιμοποιηθεί σε δηλώσεις SQL για να καθορίσετε ένα κριτήριο όπως το " Like" Α * " ", η οποία θα επιστρέψει όλες τις τιμές του πεδίου που αρχίζουν με το γράμμα D. , τι χρειάζεστε
βάσης δεδομένων Northwind
< br > Εμφάνιση Περισσότερες οδηγίες
Η

1 Κάντε κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων " , κάντε κλικ στο " Visual Basic " και κάντε κλικ στο μενού "Εισαγωγή" . . Κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα 2

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

Private Sub useLikeCommand ( )
Η < br > 3

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

Dim dataString Όπως String Dim

dbs Όπως Database

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

Dim X As Integer

Set dbs = CurrentDb
Η

4 Ορίστε το string θα περάσετε τη δήλωση SQL :

dataString = " * A "
5

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

Set RST = dbs.OpenRecordset ( "SELECT Υπαλλήλων . [ Επώνυμο ] , εργαζόμενοι . [ Όνομα ] " _

& " ΑΠΟ Υπαλλήλων " _

& " WHERE ( ( ( Employees. [ Όνομα ] ) Like " & ( dataString ) & " " ) ) ? " )
Η 6

Δημιουργία « για ... Loop " για να εμφανιστούν τα αποτελέσματα που επιστρέφονται από το ερώτημα χρησιμοποιώντας το παράθυρο άμεσης παρακολούθησης :

ΤΥ . MoveFirst

Για Χ = 0 Για να rst.RecordCount

Debug.Print rst.Fields ( " [ Όνομα ] " ) . Value

Debug.Print rst.Fields ( " [ Επώνυμο ] " ) Αξία

rst.MoveNext

Επόμενο X
Η

7 Ολοκληρώστε τη διαδικασία σας με την προσθήκη του παρακάτω κώδικα : .
< p > rst.Close

dbs.Close

End Sub
8

Πιέστε το πλήκτρο " Ctrl " και " G" για να εμφανιστεί το παράθυρο άμεσης παρακολούθησης . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία .
Η
εικόνων