存储过程使用大全

 

1 ，调用没有参数的存储过程
< %
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.CommandText = " {call nono}"

' set rs=cmc.exe 或者cmd.execute

set  rs = cmd. Execute ()

% >
2 ，一个输入的参数的存储过程
< %
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.CommandText = " {call oneinput(?)}"
cmd.Parameters.Append cmd.CreateParameter( " @aaa " ,adInteger ,adParamInput )
cmd( " @aaa " ) = 100

cmd. Execute ()

% >
3 ，一个输入参数和一个输出的参数
< %
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.CommandText  =   " {call oneinout(?,?)}"
cmd.Parameters.Append cmd.CreateParameter( " @aaa " ,adInteger,adParamInput)
cmd( " @aaa " ) = 10
cmd.Parameters.Append cmd.CreateParameter( " @bbb " ,adInteger,adParamOutput)

cmd. Execute ()

bbb = cmd( " @bbb " )
% >
4 ，一个输入参数，一个输出参数，和一个返回值
< %
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.CommandText = " {?=call onereturn(?,?)}"

cmd.Parameters.Append cmd.CreateParameter( " @return_value " ,adInteger,adParamReturnValue )
cmd.Parameters.Append cmd.CreateParameter( " @aaa " ,adInteger,adParamInput )
cmd( " @aaa " ) = 10
cmd.Parameters.Append cmd.CreateParameter( " @bbb " ,adInteger,adParamOutput)

cmd. Execute ()

bbb = cmd( " @bbb " )
rrr = cmd( " @return_value " )
% >  

转自：http://goaler.xicp.net/Article/ShowArticle.asp?ID=190