Excel vba SQL 带输入参数的存储过程调用

Question

提前谢谢你。我正在尝试运行来自 excel 的存储过程，它接受输入参数并且它给出错误运行-time error '-2147217900 (80040e14)' 自动化错误。

   Set cmd1 = New ADODB.Command
             With cmd1
             .ActiveConnection = sConnString
             .CommandText = "spGetPriceChangeTest"
             .CommandType = adCmdStoredProc
             .CommandTimeout = 360
             .Parameters.Append .CreateParameter("@suppliercode", adVariant, adParamInput, , Range("A" & (x + 2)).Value)
             .Parameters.Append .CreateParameter("@date1", adDBTimeStamp, adParamInput, , datetime)
             .Parameters.Append .CreateParameter("@proddescription", adVariant, adParamInput, , Range("D" & (x + 1)).Value)
             .Parameters.Append .CreateParameter("@vendorcode", adVariant, adParamInput, , Range("C" & (x + 2)).Value)
             .Parameters.Append .CreateParameter("@type", adVariant, adParamInput, , Range("B" & (x + 2)).Value)
             End With
             Set rst1 = New ADODB.Recordset
             Set rst1 = cmd1.Execute

Answer 1

尝试使用 EXEC:

.CommandText = "exec spGetPriceChangeTest"

Answer 2

创建参数时，确保在 .CreateParameter("",adVarchar,10[ 中提及 SQL 中定义的大小=20=],值)

这 post 有帮助。它详细讨论了我们如何捕获错误。

https://support.microsoft.com/en-us/help/167957/info-extracting-error-information-from-ado-in-vb

Excel vba SQL 带输入参数的存储过程调用

Excel vba SQL Stored procedure calling with input parameters

vba

excel

stored-procedures

input-parameters