Come chiamare una stored procedure di SQL con MS Access VBA

December 25

Come chiamare una stored procedure di SQL con MS Access VBA


Sapendo come chiamare una stored procedure di Microsoft SQL Server da Microsoft Office Access utilizzando Visual Basic, Applications Edition (VBA) consente di risparmiare tempo quando è necessario eseguire la stored procedure. SQL Server è un sistema di gestione di database relazionale utilizzato per le grandi basi di dati. L'accesso è anche un sistema di gestione di database relazionali, ma comunemente usato per i database più piccoli. VBA è un linguaggio di programmazione utilizzato per automatizzare le attività di routine nelle applicazioni Microsoft Office come Access.

istruzione

1 Avviare Microsoft Office Access 2007 e selezionare "Database vuoto", quindi fare clic su "Crea". Fai clic su "Strumenti database" e selezionare "Visual Basic". Fare clic su "inserire" e selezionare "Modulo".

2 Selezionare il menu "Strumenti" e fare clic su "Riferimenti ..." Seleziona la casella accanto a "Microsoft ActiveX Data Objects <numero di versione> Libreria". Fai clic su "OK".

3 Digitare la seguente per creare una nuova subroutine e dichiarare le variabili:

Public Sub createDataToAnalyze ()

Dim objConnection come nuovo ADODB.Connection

Dim objCom Come ADODB.Command

Dim provStr As String

4 Digitare quanto segue per definire la connessione al server SQL:

Set objCom = Nuovo ADODB.Command

objConnection.Provider = "sqloledb"

provStr = "Data Source = SERVERNAME;" & "Initial Catalog = nome del database; User Id = USER ID, password = password;"

Modificare la stringa "provStr" e inserire le informazioni sulla connessione, come ad esempio il nome del server, nome del database, ID utente e password.

5 Digitare la seguente per definire le informazioni di stored procedure:

objConnection.Open provStr

con objCom

.ActiveConnection = objConnection

.CommandText = "SpCreateUserTbl"

.CommandType = AdCmdStoredProc

.Eseguire

End With

End sub

Modificare la seguente riga e digitare il nome della stored procedure:

.CommandText = "SpCreateUserTbl"

6 Premere il tasto "F5" per eseguire la subroutine.