Δημιουργία Visual Basic μεταβλητές σας . Υπάρχουν τρεις μεταβλητές που απαιτούνται για να καλέσετε μια αποθηκευμένη διαδικασία : μια σύνδεση με τη βάση δεδομένων , ένα σύνολο εγγραφών που αποθηκεύει τα αποτελέσματα και το αντικείμενο της εντολής που εκτελείται η διαδικασία . Ο παρακάτω κώδικας δημιουργεί τις μεταβλητές σας :
Dim conn Όπως New ADODB.ConnectionDim αρχεία ωςεντολή Νέα ADODB.RecordsetDim Όπως ADODB.Command 2
Δημιουργήστε τη σύνδεση της βάσης δεδομένων . Η σύνδεση της βάσης δεδομένων παίρνει το όνομα της βάσης δεδομένων , το όνομα χρήστη και τον κωδικό πρόσβασής σας , και το όνομα του server και ανοίγει μια σύνδεση . Το παρακάτω είναι ένα παράδειγμα της Visual Basic σύνδεση με μια βάση δεδομένων του SQL Server :
conn.Open " Provider = SQLOLEDB ? Προέλευσης δεδομένων = theServer ? Initial Catalog = theDatabase " , "χρήστης " , "password "
Η
3 Ρυθμίστε το αποθηκευμένο αντικείμενο εντολής διαδικασία . Αυτό αντικείμενα χρησιμοποιεί το αντικείμενο σύνδεσης που δημιουργήσατε στο βήμα 2 και εκτελεί την αποθηκευμένη διαδικασία . Ο κώδικας που ακολουθεί είναι ένα παράδειγμα για το πώς να δημιουργήσει την εντολή :
command.ActiveConnection = conncommand.CommandType = adCmdStoredProccommand.CommandText = " sel_GetCustomers "
Η « Ενεργός _ " ακίνητο βρίσκεται σε σας αντικειμένου σύνδεσης . Το « CommandType " είναι μια σταθερή τιμή που ονομάζεται " adCmdStoredProc . " Αυτό λέει η εντολή ότι είναι μια αποθηκευμένη διαδικασία . Οι " sel_GetCustomers " είναι το όνομα της αποθηκευμένης διαδικασίας .
Η 4
Εκχώρηση τα αποθηκευμένα αποτελέσματα διαδικασία με το αντικείμενο εγγραφών . Ο ακόλουθος κώδικας ανακτά όλα τα αποτελέσματα και τα αποθηκεύει :
Ορισμός αρχεία = command.Execute
5
Εκτυπώστε ένα ρεκόρ . Για να εξασφαλιστεί η διαδικασία ολοκληρώθηκε με επιτυχία , να εκτυπώσετε την πρώτη εγγραφή στο παράθυρο εντοπισμού σφαλμάτων σας . Ο παρακάτω κώδικας ελέγχει αποθηκευμένα αποτελέσματα τη διαδικασία σας :
records.Fields εκτύπωσης ( 0 )
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα