无法从Excelmacros将parameter passing给存储过程

我有一个SQL Server中的存储过程，我无法编辑。 要在SQL Server中执行，必须传递一个参数。 如果使用“1”，程序将以打印模式运行，实际程序将运行为“0”。 我写下面的代码执行没有错误和日志捕获存储过程运行成功，但在打印模式。

请告诉我需要做的改变来传递参数'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 

Answer 1

猜测，我会说改变这一行：

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

对此：

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

使用实际的参数名称。