MS SQL Server
  1. MS SQL Server
  3. Impossible de passer le paramètre à la procédure stockée à partir de la macro Excel
Intereting Posts
SQL Parent Top logging dans la hiérarchie Clause SQL Server – IN avec plusieurs champs Comment tronquer périodiquement la database SQL sur Microsoft Azure se connecter à SQL Server à partir de Netbeans L'appel de procédure distante a échoué avec sql server 2008 R2 Comment puis-je utiliser les valeurs sélectionnées dans une instruction While Exists dans la boucle While? Sql Pour Xml Path get le nombre de nœuds Dapper avec (nolock) ASP.NET Grid View modifier avec des variables réplication SQL à l'aide du server distant Meilleur outil pour documenter les files sources * T-SQL? Rejoindre des colonnes de différents formats Mise à jour de l'index clusterisé à partir d'un problème de slider Comptage des lignes d'un sous-groupe en ignorant les duplicates Somme des déclarations de cas multiples

Impossible de passer le paramètre à la procédure stockée à partir de la macro Excel

J'ai une procédure stockée dans SQL Server que je ne peux pas éditer. Pour exécuter dans SQL Server, je dois passer un paramètre, qui est obligatoire. Si j'utilise '1', la procédure s'exécutera en mode d'printing et la procédure actuelle sera exécutée pour '0'. J'ai écrit ci-dessous le code qui est exécuté sans erreurs et le journal est capturé que la procédure stockée est exécutée avec succès mais en mode d'printing.

S'il vous plaît dites-moi le changement qui doit être fait pour passer le paramètre '0' 

Sub RunProc() Dim con As ADODB.Connection Dim cmd As ADODB.Command Dim rs As ADODB.Recordset Set con = New ADODB.Connection Set cmd = New ADODB.Command Set rs = New ADODB.Recordset Set objSheet = ThisWorkbook.Sheets("Queries") strServerNAme = CStr(objSheet.Cells(4, 2).Value) strDatabase = CStr(objSheet.Cells(5, 2).Value) strProcName = CStr(objSheet.Cells(6, 2).Value) ' Log into our SQL Server, and run the Stored Procedure strConnection = "Driver={SQL Server}; Server=" & strServerNAme & "; Database=" & strDatabase & " ;" con.Open strConnection cmd.ActiveConnection = con cmd.Parameters.Append cmd.CreateParameter(, adBoolean, adParamInput, False) cmd.CommandText = strProcName Set rs = cmd.Execute(, , adCmdStoredProc) con.Close Set con = Nothing End Sub

A deviner, je dirais de changer cette ligne: 

 cmd.Parameters.Append cmd.CreateParameter(, adBoolean, adParamInput, False)

pour ça: 

 cmd.Parameters.Append cmd.CreateParameter("@paramName", adBoolean, adParamInput, False)

en utilisant le nom du paramètre réel.