QTP处理存储过程输出参数问题

cheryl

'与数据库建立连接省略写了一下
set conn=server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
strconn="dsn=pubs;uid=sa;pwd"
conn.Open strconn
set cmd.ActiveConnection=conn
cmd.commandType=4
cmd.CommandText = "oneinout" '储存过程名，这个存储过程包含一个输入参数，一个输出参数。
'QTP在调试的时候对于CreateParameter这个VBS里面的函数好像不认，无法通过。报错误的参数个数或无效的参数属性值：“CreateParameter”
cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger,adParamInput)
cmd("@aaa")=10
cmd.Parameters.Append cmd.CreateParameter("@bbb",adInteger,adParamOutput)

'补充说明一下入参我用以下方法是可以执行通过。
cmd.Parameters.item(0)=10

各位大虾，是否有好的检查存储过程返回结果的方法？

cheryl

期待解决方案！

cheryl

解决了
入参可以用：
cmd.Parameters.item(0)=10或者cmd.Parameters.item(“入参名”)=10取得。
出参可以用：
dim return
return=cmd.Parameters.item(1).value或者return=cmd.Parameters.item(“出参名”).value取得。

cheryl

入参可以用：
cmd.Parameters.item(0)=10或者cmd.Parameters.item(“入参名”)=10传入。
出参可以用：
dim return
return=cmd.Parameters.item(1).value或者return=cmd.Parameters.item(“出参名”).value取得。

cheryl

补充：
获得出参前别忘加
Cmd.Execute

cheryl

第一、看入参是否都已经付值l了。
第二、传入入参的数据类型是否匹配