1 Ανοίξτε ένα νέο Standard EXE έργο της Visual Basic . Από το μενού , επιλέξτε "Project " και στη συνέχεια "Αναφορές ". Κάντε κλικ στο πλαίσιο ελέγχου δίπλα στο " Microsoft ActiveX Data Objects 2.x ", όπου "x " είναι ο υψηλότερος αριθμός είναι διαθέσιμες στο μηχάνημά σας . Κάντε κλικ στο κουμπί "OK " για να αποθηκεύσετε και να κλείσει. 2
Προσθέστε ένα νέο κουμπί στην προεπιλεγμένη " Φόρμα1 " που δημιουργείται από προεπιλογή . Ονομάστε το κουμπί " cmdUpdate " και ρυθμίστε τη λεζάντα ίσο με το " Ενημέρωση ". Αυτό το κουμπί θα σώσει τυχόν ενημερώσεις απευθείας στον κατάλληλο πίνακα ( ες ) .
Εικόνων 3
Δήλωση μεταβλητών για την αποθήκευση των αντικειμένων ADODB και μια μεταβλητή συμβολοσειράς για την ίδια την πρόταση SQL .
Dim oConn όπως ADODB.Connection
Dim strSQL όπως String
Δημ. oCmd ως ADODB.Command
Η 4
Σύνδεση με τη βάση δεδομένων της " Form_Load " περίπτωση " Φόρμα1 . "
Set oConn = Νέα ADODB.Connection
oConn.ConnectionString = " DSN = mydbname ? Uid = το admin ? Pwd = κωδικό πρόσβασης? "
oConn.Open
5
Ο κώδικας της SQL για την "ενημέρωση " δήλωση κλικ περίπτωση " cmdUpdate . "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα