Library". Klikk "OK".
3 Skriv inn følgende for å opprette en ny subrutine og erklære variabler : en
Public Sub createDataToAnalyze ( )
Dim objConnection As New ADODB.Connection
Dim objCom Som ADODB.Command
Dim provStr As String
4
Skriv inn følgende for å definere tilkoblingen til SQL server:
Set objCom = Ny ADODB.Command
objConnection.Provider = " sqloledb "
provStr = "Data Source = SERVERNAME ; " & "Initial Catalog = DATABASENAVN ; Bruker Id = bRUKER -ID , passord = PASSORD ; . "
Rediger " provStr "streng og skriv inn tilkoblingsinformasjon , for eksempel servernavn, databasenavn , bruker-ID og passord
5
Type følgende for å definere den lagrede prosedyren informasjon: . .
objConnection.Open provStr
p Med objCom
ActiveConnection = objConnection
CommandText = " spCreateUserTbl "
CommandType = adCmdStoredProc
Execute
End With
End sub
Rediger følgende linje og skriv din lagret prosedyre navn. . :
. CommandText = " spCreateUserTbl "
6
Trykk " F5 " for å kjøre subrutine .