VBS执行存储过程取得OUTPUT参数值

Set StrConn = CreateObject("Adodb.connection")

StrConn.ConnectionString = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=;Initial Catalog=;Data Source="

StrConn.Open

set adocomm = CreateObject("ADODB.Command")

Set adocomm.ActiveConnection=StrConn

adocomm.CommandText = "P_UserDefinedQA"  ‘存储名

adocomm.CommandType = 4           ‘命令类型，4代表存储类型

adocomm.Parameters(1) = "1"  ‘output参数随意赋值，存储有几个参数就要赋几个

adocomm.Execute

ReturnValue = adocomm.Parameters(0)'存储过程的return值返回0则成功执行

strS = adocomm.Parameters(1)  ‘存储中output值赋给strS

‘msgbox strS

set adocomm=nothing

StrConn.Close

set StrConn=nothing

存储示例

alterPROCEDUREP_UserDefinedQA

(@bugnumintOUTPUT)

AS

BEGIN

   select@bugnum=2

    --print@bugnum

   return0

END