Ορίστε τις μεταβλητές σας που ανακτούν τη βάση δεδομένων και να καλέσει τις πληροφορίες του πίνακα που γεμίζει το αντικείμενο εγγραφών . Ο παρακάτω κώδικας ορίζει Visual Basic σας μεταβλητές : Dim MYDB Όπως DatabaseDim myRS Όπως RecordSet 2
Ανοίξτε τη βάση δεδομένων σας και το εκχωρούμε στις μεταβλητές της βάσης δεδομένων που ορίζεται στο Βήμα 1 . Ο ακόλουθος κώδικας ανακτά μια βάση δεδομένων της Microsoft Access και εκχωρεί στη μεταβλητή : Σετ MYDB = OpenDatabase ( " AccessDatabase.mdb " )
εικόνων 3
Γεμίστε το σύνολο εγγραφών με τα ανακτημένα τιμές του πίνακα . Σε αυτό το παράδειγμα , ο πίνακας των πελατών ανακτάται και αποδίδεται στο σύνολο εγγραφών . Ο κώδικας που ακολουθεί δείχνει πώς μπορείτε να ορίσετε το σύνολο εγγραφών : Ρυθμίστε myRS = MyDB.OpenRecordset ( "Πελάτης" , dbOpenDynaset )
Η 4
Εκτυπώστε την πρώτη τιμή για το σύνολο εγγραφών . Το πλαίσιο μηνύματος χρησιμοποιείται για να ελέγξετε τον κωδικό σας και να εκτυπώσετε την πρώτη τιμή , ώστε να γνωρίζετε το σύνολο εγγραφών ήταν γεμάτο . Ο κώδικας που ακολουθεί εκτυπώνει την πρώτη τιμή εγγραφών : MsgBox myRS ( 0 )
5
Πιέστε το πλήκτρο F5 για να αποθηκεύσετε τις αλλαγές σας και να εκτελέσει το νέο κωδικό στο πρόγραμμα εντοπισμού σφαλμάτων του μεταγλωττιστή . Το πρόγραμμα εντοπισμού σφαλμάτων χρησιμοποιείται για να τρέξει κώδικα σε « δοκιμαστική λειτουργία », η οποία σας βοηθά να βρείτε λάθη στην σύνταξη .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα