bibliotek . " Klicka på " OK . " Addera 3 Skriv följande för att skapa en ny subrutin och deklarera variabler :
Public Sub createDataToAnalyze ( ) katalog
Dim objConnection Som ny ADODB.Connection
Dim objCom som ADODB.Command
Dim provStr As String
4
Skriv följande för att definiera anslutningen till SQL -servern :
Set objCom = Ny ADODB.Command
objConnection.Provider = " SQLOLEDB "
provStr = " Data Source = SERVERNAME , " & " Initial Catalog = Databasens namn , användar-ID = uSER -ID , lösenord = lösenord; . "
Redigera " provStr " sträng och ange din anslutningsinformation , t.ex. servernamn , databasnamn , användarnamn och lösenord
5
Type följande för att definiera dina lagrade proceduren uppgifter : . .
objConnection.Open provStr
objCom
ActiveConnection = objConnection
CommandText = " spCreateUserTbl "
CommandType = adCmdStoredProc
Utför
End With
End sub
Redigera följande rad och skriv ditt lagrade proceduren namn . . :
. CommandText = " spCreateUserTbl "
6
Tryck " F5 " för att köra subrutinen .