各种存储过程使用指南
点击次数：21 次 发布日期：2008-11-26 12:50:19 作者：源代码网
|
源代码网推荐 <% 源代码网推荐 源代码网推荐 "---开始链接数据库 源代码网推荐 Dim strConnString 源代码网推荐 strConnString = "driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo" 源代码网推荐 set Conn = Server.CreateObject("ADODB.Connection") 源代码网推荐 Conn.Open strConnstring 源代码网推荐 "---结束链接数据库 源代码网推荐 源代码网推荐 "---开始为输入参数赋值 源代码网推荐 Dim SelectSql , SelectRs 源代码网推荐 Dim SelectID , SelectName , SelectReturn 源代码网推荐 SelectSql = "Select Max(CompanyID) From Dim_Company" 源代码网推荐 Set SelectRs = Conn.Execute(SelectSql) 源代码网推荐 SelectID = SelectRs(0) 源代码网推荐 "---结束为输入参数赋值 源代码网推荐 源代码网推荐 Dim TiggerType 源代码网推荐 TiggerType = 3 源代码网推荐 源代码网推荐 Set Cmd = Server.CreateObject("ADODB.Command") 源代码网推荐 Set Cmd.ActiveConnection = Conn 源代码网推荐 Cmd.CommandType = 4 "---声明此过程为存储过程 源代码网推荐 源代码网推荐 If TiggerType = 1 then 源代码网推荐 源代码网推荐 "---开始一个输入参数的存储过程调用 源代码网推荐 Cmd.CommandText = "TransCompany1" 源代码网推荐 源代码网推荐 Set CmdParam = Cmd.CreateParameter("@TransID",3,1) 源代码网推荐 Cmd.Parameters.Append CmdParam 源代码网推荐 Cmd("@TransID") = SelectID 源代码网推荐 Cmd.Execute 源代码网推荐 "---结束一个输入参数的存储过程调用 源代码网推荐 源代码网推荐 Elseif TiggerType = 2 then 源代码网推荐 源代码网推荐 "---开始一个输入参数，一个输出参数的存储过程调用 源代码网推荐 Cmd.CommandText = "TransCompany2" 源代码网推荐 源代码网推荐 Set CmdParamID = Cmd.CreateParameter("@TransID",3,1) 源代码网推荐 Cmd.Parameters.Append CmdParamID 源代码网推荐 Cmd("@TransID") = SelectID 源代码网推荐 Set CmdParamName = Cmd.CreateParameter("@TransName",202,2,50) 源代码网推荐 Cmd.Parameters.Append CmdParamName 源代码网推荐 Cmd.Execute 源代码网推荐 SelectName = Cmd("@TransName") 源代码网推荐 "---结束一个输入参数，一个输出参数的存储过程调用 源代码网推荐 源代码网推荐 Elseif TiggerType = 3 then 源代码网推荐 源代码网推荐 "---开始一个输入参数，一个输出参数，一个返回值的存储过程调用 源代码网推荐 Cmd.CommandText = "TransCompany3" 源代码网推荐 Set CmdParamReturn = Cmd.CreateParameter("Return_Value",3,4) 源代码网推荐 Cmd.Parameters.Append CmdParamReturn 源代码网推荐 Set CmdParamID = Cmd.CreateParameter("@TransID",3,1) 源代码网推荐 Cmd.Parameters.Append CmdParamID 源代码网推荐 Cmd("@TransID") = SelectID 源代码网推荐 Set CmdParamName = Cmd.CreateParameter("@TransName",202,2,50) 源代码网推荐 Cmd.Parameters.Append CmdParamName 源代码网推荐 源代码网推荐 Cmd.Execute 源代码网推荐 SelectName = Cmd("@TransName") 源代码网推荐 SelectReturn = Cmd("Return_Value") 源代码网推荐 "---结束一个输入参数，一个输出参数，一个返回值的存储过程调用 源代码网推荐 源代码网推荐 End if 源代码网推荐 源代码网推荐 Conn.Close 源代码网推荐 Set Conn = Nothing 源代码网推荐 Set Cmd = Nothing 源代码网推荐 Set CmdParamID = Nothing 源代码网推荐 Set CmdParamname = Nothing 源代码网推荐 Set CmdParamReturn = Nothing 源代码网推荐 源代码网推荐 %> 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
