I'm at a loss why my code supplies the input parm and yet upon
execution it complains about my first input parm called @AuditItem is
not supplied. Please throw some light. Thanks
Error: ado error 2147217904 expects parameter
My stored proc
PROCEDURE [dbo].[usp_Thresholds_GetStatus]
( @AuditItem varchar(50),
@Variable varchar(250),
@ServerValue varchar(250),
@FoundFlag varchar(10) output ,
@OutputStatusCode varchar(2) output,
@OutputPrecedingMessage varchar(250) output,
@OutputMessage varchar(250) output )
My vbs code:
Set objCon = CreateObject("ADODB.Connection")
Set objCom = CreateObject("ADODB.Command")
strConnection = "Provider=SQLOLEDB.1;Password=password@1;Persist
Security Info=false;User ID=xxxtReader;Initial Catalog=mydbt;Data
Source=mysqlserver"
On Error resume next
objCon.Open strConnection
If Err.Number <> 0 Then
Wscript.Echo " Attempt to open connection to database failed"
Wscript.Echo Err.Number & " " & Err.Description
Err.Clear
End If
'assigning the command object parameters
Set objCom.ActiveConnection = objCon
objCom.CommandText = "usp_Thresholds_GetStatus"
objCom.CommandType = adCmdStoredProc
'Create in/out parameters
Set objInputAuditItemParm = objCom.CreateParameter("@AuditItem",
adVarChar, adParamInput, 50, trim(InputAuditItem))
Set objInputVariableParm = objCom.CreateParameter("@variable",
adVarChar, adParamInput, 250, trim(InputVariable))
Set objInputServerValue = objCom.CreateParameter("@ServerValue",
adVarChar, adParamInput, 250, trim(InputServerValue))
Set objOutputFoundFlag = objCom.CreateParameter("@FoundFlag",
adVarChar, adParamOutput, 10)
Set objOutputStatusCode =
objCom.CreateParameter("@OutputStatusCode", advarChar, adParamOutput,
2)
Set objOutputPrecedingMessage =
objCom.CreateParameter("@OutputPrecedingMessage", adVarChar,
adParamOutput, 250)
Set objOutputMessage = objCom.CreateParameter("@OutputMessage",
adVarChar, adParamOutput, 250)
'Append the parameters to command object
objCom.Parameters.Append objInputAuditItemParm
objCom.Parameters.Append objInputVariableParm
objCom.Parameters.Append objInputServerValue
objCom.Parameters.Append objOutputFoundFlag
objCom.Parameters.Append objOutputStatusCode
objCom.Parameters.Append objOutputPrecedingMessage
objCom.Parameters.Append objOutputMessage
on error resume next
objCom.Execute
if err <> 0 then
Wscript.Echo "Attempt to execute stored proc
usp_Thresholds_GetStatus failed"
Wscript.Echo Err.Number & " " & Err.Description
Err.Clear
end if
'retrieve the Output parameters values
WScript.Echo "Output Found flag: " & objOutputFoundFlag.value
WScript.Echo "Output Message... "
WScript.Echo objOutputMessage.value
WScript.Echo objOutputStatusCode.value