如何得到存儲過程返回值呢？ 100分

Question

举例：
private sub 
dim inSN as string '假定你用的序列号为字符串
dim outRet as long '假定你用的返值为整型
dim cnn as new connection
dim cmd as new command
dim param1 as new parameter
dim param2 as new parameteron error goto Err
//建立数据库连接
cnn.connectionstring=你要的连接串
cnn.open
set cmd.activeconnection=cnn
//设置命令对象
cmd.commandtype=adcmdstoredprocedure
cmd.commandtext=你写的存储过程名
//添加参数对象
set param1=cmd.createparameter("insn",advarchar,adparaminput,50,inSN)
set param2=cmd.createparameter("RetVal",adinteger,adparamoutput)
cmd.parameters.append param1
cmd.parameters.append param2
//执行之
cmd.execute
//得到结果  OutRet=clng(param2) '得到你想要的返回值exit sub
Err:
  msgbox err.number & err.descrpition
end sub

Answer 1

dim strSQL as string
set strSQL = " 
declare @a char(15)
exec update_po_head ...,@a output
select @a "
rs.open strSQL
messagebox rs.fields(0)

Answer 2

同意在服务器端处理。取得返回值用大力的回答应该可以的，还可以显式的定义output的变量来取得，比较保险。

Answer 3

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=133244

Answer 4

我是想用 command 的 commandText 為一SQL 語句，不是存儲過程名，commandtype 為adcmdtext
With cmdExecute
      .ActiveConnection = CN
      .CommandText = strSQL
      .CommandType = adCmdText
      .Parameters.Append .CreateParameter(, adChar, adParamOutput, 15)
End With
 cmdExecute.Execute