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 " για να εκτελέσετε υπορουτίνα σας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα