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

Γνωρίζοντας πώς να διαβάσει τα αποτελέσματα από ένα ερώτημα της Microsoft Access μπορεί να σας βοηθήσει να κάνετε την αίτησή σας Πρόσβασης πιο δυναμική . Η πρόσβαση είναι μέρος της σουίτας Microsoft Office και χρησιμοποιείται για τη δημιουργία σχεσιακών βάσεων δεδομένων . Visual Basic for Applications ( VBA ) μπορεί να χρησιμοποιηθεί σε Access για να δημιουργήσετε εφαρμογές των Windows και να ανακτήσετε τα δεδομένα της βάσης δεδομένων . Ένα ερώτημα είναι χτισμένο με Structured Query Language ( SQL ) δηλώσεις για να ζητήσει πληροφορίες από μια βάση δεδομένων . Τα πράγματα που θα χρειαστείτε για Microsoft Office Access 2007
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Microsoft Office Access 2007 και επιλέξτε "Blank Database , " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και επιλέξτε " Visual Basic ". Κάντε κλικ στο " Εισαγωγή" πεδίο και επιλέξτε " Ενότητα " .

Τύπος "Private υπο readQueryResults " και πατήστε το πλήκτρο " Enter" για να δημιουργήσετε μια νέα υπορουτίνα . 2

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

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

Dim dBase Όπως Database

Dim stringSQL Όπως String Dim

rCnt As Integer
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει το " CityTbl " πίνακα:

stringSQL = " CREATE TABLE CityTbl (Πόλη TEXT ( 25 ) , μέλος TEXT ( 25 ) ) ? "

DoCmd.RunSQL ( stringSQL )
Η 4

Πληκτρολογήστε το παρακάτω, για να προστεθούν δύο νέα αρχεία για να σας" CityTbl " πίνακα:

stringSQL = " INSERT INTO CityTbl ( [Πόλη ] , [του κράτους ] ) "

stringSQL = stringSQL & " ΑΞΙΕΣ ( « Fort Worth », « Τέξας» ) ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( stringSQL )

stringSQL = " INSERT INTO CityTbl ( [ Πόλη ] , [του κράτους ] ) "

stringSQL = stringSQL & " ΑΞΙΕΣ ( « Ντάλας » , « Τέξας » ) ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( stringSQL )
5

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

stringSQL = "SELECT * FROM CityTbl CityTbl ? . "

Set RecordSt = dBase.OpenRecordset ( stringSQL )
Η 6

Πληκτρολογήστε το παρακάτω, για να δημιουργήσει ένα «Για Loop » και να εμφανίσει σας ερώτημα προκύπτει μέσα από ένα πλαίσιο μηνύματος : .

RecordSt.MoveFirst

Για rCnt = 0 Για να RecordSt.RecordCount

MsgBox ( RecordSt.Fields ( " City" ) Value & " , " & RecordSt.Fields ( « κράτος » ) . Value)

RecordSt.MoveNext

Επόμενο rCnt

Πατήστε το πλήκτρο" F5 " για να εκτελέσει την υπορουτίνα .


εικόνων