执行宏时出错

Question

我正在尝试设置一个宏，该宏调用 SQL 以执行存储过程，但在我运行它时不断收到消息。我可以通过 SSMS 中的 SQL 查询来执行 Store 过程。有什么想法吗？

错误： “应用程序为当前操作使用了错误类型的值。”在第 22 行位置 0

代码

Const adParamInput = &H0001 
Const adVarChar = 200
Dim strServerName
Dim strDatabase
Dim strUserName
Dim strPassword

strServerName="5.5.5.5"
strDatabase="MYDB"
strUserName="DBUSER"
strPassword="DBPASS"
strcnn="Driver={SQL Server};Server=" & strServerName & ";Database=" & strDatabase & ";Uid=" & strUsername & ";Pwd=" & strPassword & ";"
Set Conn = CreateObject("ADODB.Connection")
conn.open strcnn
Set Cmd = CreateObject("ADODB.Command")
Cmd.ActiveConnection = conn
' Set up the parameter for our Stored Procedure *** watch the line wrap ***
Cmd.Parameters.Append Cmd.CreateParameter("I_PartID", adVarChar, adParamInput , 30, "E N T E R    Y O U R    P A R T    I D")
Cmd.CommandText = "SP_UpdateUDF"
Cmd.Execute

Answer 1

您正在创建一个长度为 30 的 adVarchar 类型的参数，但传递了一个长度为 38 的字符串。错误消息有点误导，实际上它抱怨长度。

如果您的 Proc 预计最多 30 个字符，请缩短您的字符串。否则你可以解决你的问题

Const pVal = "E N T E R    Y O U R    P A R T    I D"
cmd.Parameters.Append cmd.CreateParameter("I_PartID", adVarChar, adParamInput, Len(pVal), pVal)