. " Cliquez sur « OK ».
3 Tapez la commande suivante pour créer un nouveau sous-programme et déclarer des variables :
publique createDataToAnalyze Sub ( )
objConnection As New ADODB.Connection
objCom As ADODB.Command
provstr Dim As String
4
Tapez la commande suivante pour définir la connexion à votre serveur SQL : < br >
Set objCom = New ADODB.Command
objConnection.Provider = " sqloledb "
provstr = "Data Source = SERVERNAME ; " & " initial Catalog = Nom de la base ; User Id = ID de l'utilisateur, mot de passe = mot de passe; ».
Modifier la " chaîne de provstr "et entrez vos informations de connexion , telles que le nom du serveur, nom de base de données , l'ID utilisateur et mot de passe
5
type suivantes pour définir les informations de votre procédure stockée: . .
objConnection.Open provstr
objCom
ActiveConnection = objConnection
CommandText = " spCreateUserTbl «
CommandType = adCmdStoredProc
Exécuter
End With End Sub
Modifier la ligne suivante, tapez votre nom de la procédure stockée . . : Photos
. CommandText = " spCreateUserTbl "
6
Appuyez sur " F5 " pour exécuter le sous-programme.