Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να ενημερώσετε DAO εγγραφών

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

1 Ανοίξτε τη βάση δεδομένων Northwind Microsoft Office Access . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office . 2

Κάντε κλικ στο " Εργαλεία βάσης δεδομένων , " και στη συνέχεια επιλέξτε " Visual Basic" για να ανοίξετε το Microsoft Visual Basic παράθυρο . Κάντε κλικ στο " Εισαγωγή" και επιλέξτε το πεδίο
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο υποπρόγραμμα « Ενότητα ». :

Sub DAORecordsetUpdate ( )

Πληκτρολογήστε " . Enter"
Η 4

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

Dim db Όπως DAO.Database

Dim rst Όπως DAO.Recordset

5

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

Set db = CurrentDb

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

Set RST = db.OpenRecordset ( "Επιλογή εργαζόμενοι * Από Υπαλλήλων ? . " )
Η 6

Πληκτρολογήστε το παρακάτω, για να μετακινήσετε το Recordset στην τελευταία εγγραφή και ενημέρωση των " Σημειώσεις " στήλη : .

rst.MoveLast

rst.Edit

rst.Fields ( «Σημειώσεις» ) Value = " Αυτός ο υπάλληλος δεν λειτουργεί πλέον εδώ . "

7

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

rst.Update

rst.Close

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

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα