Πώς να καλέσετε μια SQL αποθηκευμένης διαδικασίας Χρησιμοποιώντας το MS Access VBA

Γνωρίζοντας πώς να καλέσετε μια διαδικασία Microsoft SQL Server αποθηκεύονται από τη Microsoft Office Access χρησιμοποιώντας τη Visual Basic for Applications ( VBA ) μπορεί να σας εξοικονομήσει χρόνο , όταν θα πρέπει να εκτελέσει την αποθηκευμένη διαδικασία . Ο SQL Server είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιούνται για μεγάλες βάσεις δεδομένων . Η πρόσβαση είναι επίσης ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων , αλλά χρησιμοποιείται συνήθως για μικρότερες βάσεις δεδομένων . VBA είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για την αυτοματοποίηση των εργασιών ρουτίνας στις εφαρμογές του Microsoft Office, όπως η Access . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Office Access 2007 και επιλέξτε "Blank Database , " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και επιλέξτε " Visual Basic ". Κάντε κλικ στο " Εισαγωγή" πεδίο και επιλέξτε " Ενότητα ". 2

Επιλέξτε από το μενού "Εργαλεία" και κάντε κλικ στο "Αναφορές ... " Επιλέξτε το πλαίσιο δίπλα στο " Microsoft ActiveX Data Objects Library". Κάντε κλικ στο " OK".
Εικόνων 3

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα υπορουτίνα και να δηλώσετε τις μεταβλητές :

Public Sub createDataToAnalyze ( )

Dim objConnection Όπως νέα ADODB.Connection

Dim objCom Όπως ADODB.Command

Dim provStr Όπως String
Η 4

Πληκτρολογήστε το παρακάτω για να ορίσετε τη σύνδεση με τον SQL server :

Set objCom = Νέα ADODB.Command

objConnection.Provider = " sqloledb "

provStr = "Πηγή δεδομένων = SERVERNAME ? " & " Initial Catalog = όνομα της βάσης δεδομένων ? χρήστη Id = ID USER ? Κωδικός = PASSWORD ? . "

Επεξεργαστείτε το " provStr "string και εισάγετε τα στοιχεία της σύνδεσής σας , όπως το όνομα διακομιστή, το όνομα της βάσης δεδομένων , το όνομα χρήστη και τον κωδικό πρόσβασης
5

Τύπος τα παρακάτω για να καθορίσει τις πληροφορίες αποθηκευμένη διαδικασία : . .

objConnection.Open provStr

με objCom

Ενεργός _ = objConnection

CommandText = " spCreateUserTbl " <. . br >

CommandType = adCmdStoredProc

Εκτέλεση

End With

End sub ​​

Επεξεργαστείτε την ακόλουθη γραμμή και πληκτρολογήστε αποθηκευμένο όνομα της διαδικασίας σας :

. CommandText = " spCreateUserTbl "
Η

6 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε την υπορουτίνα .
Η
εικόνων