|
'与数据库建立连接省略写了一下
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
各位大虾,是否有好的检查存储过程返回结果的方法? |
|