1 Ανοίξτε το Visual Studio Basic σας ή την κονσόλα Visual Basic 6.0 και να φορτώσετε το έργο σας . Κάντε διπλό κλικ στη φόρμα που θα εμφανίζει τα επιστρεφόμενα στοιχεία από τη βάση δεδομένων . Κάντε δεξί κλικ στο αρχείο άνοιξε φόρμα και επιλέξτε " Προβολή κώδικα ". 2
προετοιμαστεί τις μεταβλητές που απαιτούνται για να καλέσετε την αποθηκευμένη διαδικασία . Τα σύνδεσης και χειρισμού αντικειμένων που χρησιμοποιούνται για να συνδέσετε και να καλέσει τη διαδικασία της βάσης δεδομένων . Το αντικείμενο εγγραφών χρησιμοποιείται για να κρατήσει τα αρχεία ανακτώνται . Ο κώδικας για την προετοιμασία των μεταβλητών είναι οι παρακάτω:
Dim conn Όπως New ADODB.ConnectionDim αρχεία As New ADODB.RecordsetDim comm Όπως ADODB.Command
εικόνων 3
Χρησιμοποιήστε το αντικείμενο σύνδεσης για να ανοίξετε μια σύνδεση με τη βάση δεδομένων . Το αντικείμενο σύνδεση χρησιμοποιεί ένα πρόγραμμα οδήγησης βάσης δεδομένων και όνομα βάσης δεδομένων . Ο κωδικός για να συνδεθείτε σε ένα διακομιστή SQL είναι οι παρακάτω:
conn.Open " Provider = SQLOLEDB ? Προέλευσης δεδομένων = myDatabaseServer ? Initial Catalog = MYDB " , το όνομα χρήστη , τον κωδικό πρόσβασης
Το " ψευδώνυμο " ? και "password" παράμετρος είναι ένα όνομα χρήστη ρυθμιστεί στο διακομιστή βάσης δεδομένων που έχει τη δυνατότητα να τρέξει αποθηκευμένες διαδικασίες
Η
4 Ρυθμίστε τις απαιτούμενες ιδιότητες για το αντικείμενο της εντολής. . Το αντικείμενο εντολή πρέπει να ρυθμιστεί για να εκτελέσετε μια αποθηκευμένη διαδικασία . Απαιτεί , επίσης, το αντικείμενο σύνδεσης και το όνομα της αποθηκευμένης διαδικασίας . Ο παρακάτω κώδικας δημιουργεί το αντικείμενο εντολή:
comm.ActiveConnection = conncomm.CommandType = adCmdStoredProccomm.CommandText = " myStoredProcedure "
5
Εκτελέστε την αποθηκευμένη διαδικασία και να εκχωρήσετε τα αποτελέσματα το αντικείμενο εγγραφών . Ο κώδικας που ακολουθεί χρησιμοποιεί το αντικείμενο εντολών για να εκτελέσετε τη βάση δεδομένων αποθηκευμένη διαδικασία :
αρχεία = comm.Execute
Η 6
Εκτυπώστε το πρώτο ρεκόρ από το σύνολο εγγραφών . Αυτό χρησιμοποιείται για να δοκιμάσετε τον κώδικα και να βεβαιωθείτε ότι παίρνετε τα αποτελέσματα από τη βάση δεδομένων .
Αρχεία εκτύπωσης ( 0 )
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα