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

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

Εμφάνιση Περισσότερες οδηγίες
Η 1

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

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

Private Sub queryMultipleDbs ( )

Πατήστε " . Enter"
εικόνων 3

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

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

Dim dbs Όπως Database

Dim dbs2 Όπως Database
Η 4

Πληκτρολογήστε το παρακάτω για να ανοίξει την πρώτη βάση δεδομένων :

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

Επεξεργασία τη διαδρομή και να πληκτρολογήσετε τη διαδρομή της βάσης δεδομένων σας
5

Πληκτρολογήστε το παρακάτω, για να ανοίξετε τη δεύτερη βάση δεδομένων : .

Set dbs2 = OpenDatabase ( " C : \\ αντίγραφο της Northwind 2007 . accdb " )

Επεξεργαστείτε τη διαδρομή και να πληκτρολογήσετε τη διαδρομή της βάσης δεδομένων σας .
Η 6

Πληκτρολογήστε το παρακάτω, για να θέσει υπό αμφισβήτηση το " Υπάλληλοι " του πίνακα στην πρώτη βάση δεδομένων και να εμφανίσετε τις τιμές στο " Τελευταία " στήλη :

Set RST = dbs.OpenRecordset Όνομα ( " . SELECT * FROM εργαζόμενοι εργαζόμενοι " )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst.Fields ( "Last Name" ) . Value

rst.MoveNext

Loop

ΤΥ . Κλείσιμο
Η 7

Πληκτρολογήστε το παρακάτω ερώτημα για το " Προϊόντα" πίνακα στην πρώτη βάση δεδομένων και να εμφανίσετε τις τιμές στη στήλη « Κωδικός » :

Set RST = dbs2.OpenRecordset ( "SELECT Προϊόντα . * ΑΠΟ Προϊόντα" )

rst.MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print ΤΥ . πεδία ( " Κωδικός " ) . Value

rst.MoveNext

Loop

rst.Close

Set dbs = Τίποτα

Ορισμός dbs2 = Τίποτα

Press " F5 " για να εκτελέσετε υπορουτίνα σας και να εμφανίσετε τα αποτελέσματα μέσω της άμεσης παράθυρο .
Η
εικόνων