Τρόπος υποβολής ερωτημάτων μια βάση δεδομένων στην Access 2007

Η δυνατότητα υποβολής ερωτημάτων από βάσεις δεδομένων, εκτός από αυτό που χρησιμοποιείτε εκείνη τη στιγμή μπορεί να κάνει εφαρμογή της Access σας πιο δυναμική? Μπορείτε να το πετύχουν αυτό με τη χρήση της Visual Basic for Applications ( VBA ) . Στην VBA , μπορείτε να χρησιμοποιήσετε τη μέθοδο « OpenDatabase " να καθορίσουν τη διαδρομή και το όνομα της βάσης δεδομένων που θέλετε να αναζητήσετε . Αφού ορίσετε τη βάση δεδομένων , μπορείτε να χρησιμοποιήσετε το " εγγραφών " αντικείμενο για να εμφανίσετε τα αποτελέσματα του ερωτήματός σας . Τα πράγματα που θα χρειαστείτε
Northwind 2007 βάση δεδομένων
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

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

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

Private Sub queryDatabase ( )
Η Φτηνές 3

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

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

Dim dbs Όπως Database

Dim SQLStr As String
Φτηνές 4

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

Set dbs = OpenDatabase ( " C : \\ Northwind 2007.accdb " )
5

Δημιουργήστε μια σειρά SQL πληκτρολογώντας τον παρακάτω κώδικα για να δημιουργήσετε ένα ερώτημα :

SQLStr = " . . ΕΠΙΛΟΓΗ Παραγγελίες [ Όνομα πλοίου ] Παραγγελίες [ Ship Διεύθυνση ] "

SQLStr = SQLStr & "ΑΠΟ Παραγγελίες "

SQLStr = SQLStr & " . . GROUP BY Παραγγελίες [ Όνομα πλοίου ] Παραγγελίες [ Διεύθυνση Ship ] ? "
Η 6

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

Set RST = dbs.OpenRecordset ( SQLStr )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst.Fields ( " Όνομα πλοίου " ) . Value

Debug.Print rst.Fields ( "Διεύθυνση Ship" ) . αξία

rst.MoveNext

Loop
Η 7

End τη διαδικασία σας , πληκτρολογώντας τον ακόλουθο κώδικα :

rst.Close

dbs.Close

End Sub
Η
εικόνων