αναγνωρίσει μια λαβή της βάσης δεδομένων και ένα στιγμιότυπο από το άνοιγμα της βάσης δεδομένων όπου θέλετε να εισαγάγετε το νέο ρεκόρ , όπως στο ακόλουθο δείγμα κώδικα :
Dim mydatabase Όπως Database
Set mydatabase = OpenDatabase ( " myDatabaseMdbFile.mdb " )
Αντικαταστήστε το " myDatabaseMdbFile.mdb " με το όνομα του αρχείου MDB για την εν λόγω βάση δεδομένων . 2
αναγνωρίσει μια λαβή τραπέζι και ένα στιγμιότυπο με το άνοιγμα του πίνακα (εντός της βάσης δεδομένων ανοίξατε στο βήμα 1 ), όπου η νέα εγγραφή θα πάει , όπως στο ακόλουθο δείγμα κώδικα :
Dim MyTable όπως RecordSet
Ορισμός MyTable = myDatabase.OpenRecordSet ( " myTableName " , dbOpenDynaset )
Αντικαταστήστε το " myTableName " με το όνομα του πίνακα σας .
εικόνων 3
Προσθέστε τη νέα εγγραφή στον πίνακα , όπως στο ακόλουθο δείγμα η δεύτερη και η τρίτη εντολή από εργασίες για το νέο πεδίο τιμών σε όλους τους τομείς σε μια σειρά του πίνακα. Σε αυτό το σημείο , η νέα εγγραφή έχει εισαχθεί στον πίνακα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα