Πώς να μεταφέρετε τα δεδομένα μεταξύ πινάκων

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

Ξεκινήστε τη βάση δεδομένων Northwind Microsoft Office Access . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office . " . Ενότητα " Επιλέξτε το "Εισαγωγή" μενού και κάντε κλικ στο 2

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

Private Sub transferData ( )

Τύπου " . Enter "
εικόνων 3

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

Dim stringSQL Όπως String

Dim db Όπως Database

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

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

Set db = CurrentDb
Η 4

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

stringSQL = " CREATE TABLE employeeNames ( Επώνυμο TEXT ( 25 ) , Όνομα TEXT ( 25 ) ) ? "

DoCmd.RunSQL ( stringSQL )

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

Set rstTwo = db.OpenRecordset ( " employeeNames " )
5

Πληκτρολογήστε την ακόλουθη ερώτημα για τον πίνακα " Υπάλληλοι " :

stringSQL = "SELECT Employees.Company , "

stringSQL = stringSQL & " εργαζόμενοι . [ Επώνυμο ] , "

stringSQL = stringSQL & " εργαζόμενοι . [ Όνομα ] "

stringSQL = stringSQL & " FROM Υπάλληλοι ? "

Set RST = db.OpenRecordset ( stringSQL )

rst.MoveLast

rst.MoveFirst
Η 6

Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω του ερωτήματος και της μεταφοράς " Επώνυμο " και " Όνομα " στο " employeeNames " πίνακα:

Do While Not rst.EOF

rstTwo . AddNew

rstTwo.Fields ( "Επώνυμο" ) . Value = rst.Fields ( " [ Επώνυμο ] " ) . Value

rstTwo.Fields ( " FirstName " ) . Value = ΤΥ . πεδία ( " [ Όνομα ] " ) . Value

rstTwo.Update

rst.MoveNext

Loop
Η 7

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

rst.Close

rstTwo.Close

db.Close

Press " F5 " για να εκτελέσετε υπορουτίνα σας
.

εικόνων