|
Connaître comment appeler une procédure stockée Microsoft SQL Server à partir de Microsoft Office Access en utilisant Visual Basic pour Applications ( VBA ) peut vous faire gagner du temps lorsque vous devez exécuter la procédure stockée . Serveur SQL est un système de gestion de base de données relationnelle utilisée pour les grandes bases de données . L'accès est également un système de gestion de base de données relationnelle mais couramment utilisé pour les petites bases de données . VBA est un langage de programmation informatique utilisé pour automatiser des tâches de routine dans les applications Microsoft Office telles que Access. Instructions
1 Démarrer Microsoft Office Access 2007 et sélectionnez « Nouvelle base de données ", puis cliquez sur " Créer". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic ". Cliquez sur le champ "Insérer" et sélectionner "Module ".
2 Sélectionnez le menu " Outils " et cliquez sur "Références ... " Cochez la case à côté de " Microsoft ActiveX Data Objects Library . " 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.
|
