Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come chiamare una stored procedure SQL con MS Access VBA

Sapere come chiamare una stored procedure di Microsoft SQL Server da Microsoft Office Access utilizzando Visual Basic, Applications Edition (VBA ), è possibile risparmiare tempo quando è necessario eseguire la stored procedure . SQL Server è un sistema di gestione di database relazionale utilizzato per database di grandi dimensioni . L'accesso è anche un sistema di gestione di database relazionale , ma comunemente usato per i database più piccoli . VBA è un linguaggio di programmazione per computer utilizzato per automatizzare le attività di routine in 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 database" e selezionare " Visual Basic ". Fare clic sul campo "Inserisci" e selezionare "Modulo ".
2

Seleziona il menu " Strumenti " e cliccare su "Riferimenti ... " Seleziona la casella accanto a " Microsoft ActiveX Data Objects Biblioteca ". Fare clic su "OK".
3

Digitare quanto segue per creare un nuovo sottoprogramma e dichiarare le variabili :

Public Sub createDataToAnalyze ( ) per

Dim objConnection come New ADODB.Connection

Dim objCom Come ADODB.Command

Dim provstr As String
4

digitare quanto segue per definire la connessione al server SQL : < br

Set> objCom = New ADODB.Command

objConnection.Provider = " sqloledb "

provstr = "Data Source = SERVERNAME ; " e " Initial Catalog = nome del database ; User Id = uSER ID , password = PASSWORD ; ».

Modificare la " stringa provstr "e inserire i dati di connessione , quali il nome del server , nome del database , l'ID utente e la password
5

Tipo quanto segue per definire le informazioni stored procedure : . .

objConnection.Open provstr

objCom

ConnessioneAttiva = objConnection

CommandText = " spCreateUserTbl "

CommandType = adCmdStoredProc

Esegui

End With

End sub ​​

 

Programmazione © www.354353.com