各种存储过程使用指南

[复制链接]
查看: 210|回复: 4
  • 慵懒
    2018-4-28 09:37
  • 发表于 2018-4-13 15:39:47 | 显示全部楼层 |阅读模式

    马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

    您需要 登录 才可以下载或查看,没有帐号?立即注册

    x
    <%

    '---开始链接数据库
    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

    %>

    发表于 2018-5-8 03:04:09 | 显示全部楼层
    珍惜生命,果断回帖。
    回复

    使用道具 举报

    发表于 2018-5-9 04:51:27 | 显示全部楼层
    这个帖一般般,还可以哦。
    回复

    使用道具 举报

    发表于 2018-5-9 04:52:01 | 显示全部楼层
    正需要,支持楼主大人了!
    回复

    使用道具 举报

    发表于 2018-5-9 04:53:28 | 显示全部楼层
    确实是难得好帖啊,顶先
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

     
     
    技术支持
    在线客服
    售后交流群瑞恩社区™售后</font><br><span>交流
    工作时间:
    8:00-18:00
    客服热线:
    15368564009
    微信扫一扫
    返回顶部 关注微信 下载APP 返回列表