1 Κάντε δεξί κλικ στο πρόγραμμα Visual Basic 6.0 και επιλέξτε " Εκτέλεση ως διαχειριστής ". Ξεκινήστε ένα νέο έργο κάνοντας κλικ στο "Αρχείο " και στη συνέχεια "New Project ". Επιλέξτε το "Project Data " πρότυπο από τη λίστα . 2
Κάντε διπλό κλικ στο " frmDataEnv " δείχνει το "Project Data " λίστα στα δεξιά . Τοποθετήστε έναν έλεγχο δεδομένων ADO για τη μορφή με διπλό κλικ , για τον έλεγχο ADODC στην εργαλειοθήκη στα αριστερά της οθόνης .
Εικόνων 3
Ρυθμίστε μια σύνδεση σε μια υπάρχουσα βάση δεδομένων με δεξί κλικ για τον έλεγχο ADODC τώρα στη φόρμα και επιλέγοντας " ADODC Ιδιότητες". Στη σελίδα ιδιοτήτων , βεβαιωθείτε ότι είναι επιλεγμένο το "Χρήση Connection String " και κάντε κλικ στο κουμπί "Build ". Ακολουθήστε τα βήματα που εμφανίζονται , η οποία θα σας οδηγήσει μέσα από την επιλογή του τύπου των δεδομένων που χρησιμοποιεί, πού να βρείτε τη βάση δεδομένων στον υπολογιστή σας και εάν θέλετε να χρησιμοποιήσετε έναν κωδικό πρόσβασης ή όχι .
Η
4 Κάντε κλικ στο " Test " κουμπί στο " Σύνδεση Σύνδεση " καρτέλα του Ιδιότητες σύνδεσης δεδομένων , όταν όλες οι πληροφορίες από το βήμα 3 είναι πλήρης . Αν η σύνδεση αποτύχει , πηγαίνετε πίσω και ελέγξτε ξανά τις ρυθμίσεις επιλέξει να συνδεθεί με τη βάση δεδομένων σας .
5
Τοποθετήστε δύο κουμπιά εντολών στην fmDataEnv κάνοντας διπλό κλικ στο " κουμπί" ελέγχου στην εργαλειοθήκη και στη συνέχεια κάνει αυτό ξανά . Αλλάξτε το όνομα του ένα κουμπί για να « cmdAddNewRecord » και η λεζάντα " Προσθήκη νέου ρεκόρ . " Αλλάξτε το όνομα του άλλου κουμπί " cmdDeleteRecord » και η λεζάντα "Διαγραφή εγγραφής . "
Η
6 Κάντε διπλό κλικ στο " cmdAddNewRecord " και εισάγετε τον κωδικό αυτό από την αρχή και το τέλος της ρουτίνας : " . Adodc1.Recordset.AddNew " Κάντε το ίδιο για το cmdDeleteRecord " κουμπί με αυτόν τον κώδικα : " . Adodc1.Recordset.Delete " ( . Μην περιλαμβάνει το χρονικό διάστημα κατά το τέλος του παρόντος Κώδικα)
Η 7
Γράψτε τον κωδικό για να αναλάβει τη φροντίδα τι πρέπει να γίνει όταν ο χρήστης κάνει κλικ σε μια από τις επιλογές στο βήμα 6 : Private Sub Form_Load ( ) Adodc1.Recordset.ActiveConnection.BeginTransEnd SubPrivate Sub Form_Unload ( Cancel As Integer ) Αν MsgBox ( " ; Αποδοχή αλλαγών ρεκόρ " , vbYesNo ) = vbYes IfEnd Sub
8
Ολοκληρώστε την εγκατάσταση ADODC προσθέτοντας ετικέτες και τους ελέγχους πλαίσιο κειμένου στη φόρμα για να δημιουργήσετε ένα μηχανισμό για έναν χρήστη να προσθέσει ή να διαγράψετε εγγραφές . Οι συγκεκριμένοι έλεγχοι θα εξαρτηθεί από τις ανάγκες της βάσης δεδομένων . Δείτε το εικόνα για ένα παράδειγμα του πώς αυτό θα φανεί .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα