Ξεκινήστε ένα νέο έργο Standard EXE στη Visual Basic 6 ( VB ) , ξεκινώντας VB και επιλέγοντας "Standard EXE " από το νέο παράθυρο του έργου που εμφανίζεται . Σύμφωνα με το Έργο μενού , επιλέξτε "Αναφορές ". Στη λίστα των διαθέσιμων αναφορών , εντοπίστε την καταχώρηση "Microsoft DAO xxx Object Library", όπου xxx είναι ο αριθμός έκδοσης ( 3.6 για παράδειγμα) . Κάντε κλικ στο πλαίσιο ελέγχου δίπλα στην είσοδο και κάντε κλικ στο OK . 2
Ανοίξτε τη βάση δεδομένων της Access . Για να το κάνετε αυτό , διάσταση ενός αντικειμένου βάσης δεδομένων τύπου . Για παράδειγμα :
Dim db Βάσης Δεδομένων
Στη συνέχεια, χρησιμοποιήστε τον προεπιλεγμένο χώρο εργασίας για να ανοίξετε ένα αρχείο βάσης δεδομένων . Για παράδειγμα :
Set db = χώροι εργασίας ( 0 ) OpenDatabase . ( "C : \\ temp \\ congress.mdb " )
Το αντικείμενο db είναι πλέον μια πλήρως προετοιμαστεί βάση δεδομένων έτοιμη να ερωτηθούν ή ενημέρωση .
εικόνων 3
Ανοίξτε ένα σύνολο εγγραφών από τη βάση δεδομένων και να μετακινηθείτε μέσα από τις εγγραφές . Για να το κάνετε αυτό , διάσταση ενός αντικειμένου Recordset και να χρησιμοποιήσετε το αντικείμενο βάσης δεδομένων για να προετοιμαστεί :
Dim rs ως RecordsetSet rs = db.OpenRecordset ( " Cong105 " , dbOpenDynaset )
Σε αυτό το παράδειγμα , η πίνακας " Cong105 " ανοίγεται ως Dynaset . Μια Dynaset σε αυτή την περίπτωση σημαίνει ότι το σύνολο εγγραφών θα είναι προσαρμόσιμο - τα αρχεία μπορούν να προστεθούν , ενημερώνονται και θα διαγράφονται . Ένα εγγραφών μπορεί επίσης να ανοίξει ως dsOpenReadOnly , καθιστώντας το σύνολο εγγραφών για ανάγνωση only.The εγγραφών που άνοιξε δεν πρέπει να είναι ολόκληρος ο πίνακας . Μια SQL (Structured Query Language ), η δήλωση μπορεί να χρησιμοποιηθεί για να ανοίξει μόνο ένα υποσύνολο του πίνακα . Για παράδειγμα :
Set rs = db.OpenRecordset ( " select * from cong105 όπου home_state = " NEW YORK " , dbOpenDynaset )
Αυτό θα θέσει ερώτημα στο τραπέζι Cong105 μόνο για εκείνα τα αρχεία με κράτος καταγωγής των "New York ". επαναλήψεις μέσα στο σύνολο εγγραφών και να διαβάσετε τις τιμές χρησιμοποιώντας τις μεθόδους MoveNext και στον ΕΟΦ την εγγραφών . Για παράδειγμα, εάν η φόρμα έχει ένα πλαίσιο κειμένου που ονομάζεται Κείμενο1 ( με το σύνολο πολλών γραμμών ιδιοκτησίας στην αληθινή και κύλισης που στις κάθετες ) :
Text1.Text = " " Αν δεν rs.EOFText1.Text = Text1.Text & ? ! rs Τίτλος & " " ! & rs ΟΝΟΜΑ & "" & rs ΕΠΙΘΕΤΟ & vbCrLfrs.MoveNextWend
Η 4
Προσθέστε ένα αρχείο σε ένα αρχείο που με τη χρήση του AddNew και τις μεθόδους Ενημέρωση . Καλέστε τη μέθοδο AddNew να δημιουργήσετε ένα κενό αρχείο στο σύνολο εγγραφών . Ρυθμίστε τις τιμές για τα πεδία της κενής εγγραφής και στη συνέχεια να καλέσετε τη μέθοδο Update για να αποθηκεύσετε αυτές τις νέες αξίες . Για παράδειγμα : !
Rs.AddNewrs ΟΝΟΜΑ = " Δοκιμή " rs ΕΠΙΘΕΤΟ = " Test Τελευταία " rs Ενημέρωση
5
Ενημερώστε ένα υπάρχον αρχείο με τη χρήση των μεθόδων Edit και Update. Καλέστε τη μέθοδο Επεξεργασία για να τοποθετήσετε την τρέχουσα εγγραφή σε κατάσταση επεξεργασίας . Ορίστε τις τιμές των πεδίων και στη συνέχεια να καλέσετε τη μέθοδο Update για να αποθηκεύσετε τις αλλαγές . Για παράδειγμα : !
Rs.Editrs ΕΠΙΘΕΤΟ = rs ΕΠΙΘΕΤΟ & " . Jr " rs Ενημέρωση
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα