Nwlapcug.com


Come chiamare un SQL Stored Procedure utilizzando MS Access VBA

Come chiamare un SQL Stored Procedure utilizzando MS Access VBA


Sapendo come chiamare una stored procedure da Microsoft Office Access utilizzando Visual Basic per Applications Edition (VBA) consente di risparmiare tempo quando è necessario eseguire la stored procedure di Microsoft SQL Server. SQL Server è un sistema di gestione di database relazionale utilizzato per database di grandi dimensioni. Accesso è anche un sistema di gestione di database relazionali, ma comunemente utilizzato per i database. VBA è un linguaggio di programmazione utilizzato per automatizzare operazioni di routine nelle applicazioni di Microsoft Office ad esempio Access.

Istruzioni

1

Avviare Microsoft Office Access 2007 e selezionare "Database vuoto", quindi fare clic su "Crea". Fare clic su "Strumenti di Database" e selezionare "Visual Basic". Fare clic sul campo "Inserisci" e selezionare "Modulo".

2

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

3

Digitare il comando seguente per creare una nuova subroutine e dichiarare le variabili:

Public Sub createDataToAnalyze()

Dim objConnection As New ADODB. Connessione

Dim objCom As ADODB

Dim provStr As String

4

Digitare il comando seguente per definire la connessione al server SQL:

Impostare objCom = New ADODB. Command

objConnection.Provider = "sqloledb"

provStr = "Data Source = SERVERNAME;" & "Initial Catalog = nome del DATABASE; Id utente = ID utente; Password = PASSWORD; "

Modificare la stringa "provStr" e immettere le informazioni di connessione come nome del server, nome del database, ID utente e password.

5

Digitare quanto segue per definire il tuo informazioni di stored procedure:

objConnection. Open provStr

Con objCom

.ActiveConnection = objConnection

.CommandText = "spCreateUserTbl"

.CommandType = adCmdStoredProc

.Execute

Terminare con

EndSub

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

. CommandText = "spCreateUserTbl"

6

Premere "F5" per eseguire la subroutine.