各种存储过程使用指南

[复制链接]
查看: 140|回复: 4
  • TA的每日心情
    慵懒
    2018-4-28 09:37
  • 1459

    主题

    1485

    帖子

    11万

    积分

    管理员

    小语

    Rank: 9Rank: 9Rank: 9

    积分
    110351
    发表于 2018-4-13 15:39:47 | 显示全部楼层 |阅读模式
    <%

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

    %>

    该用户从未签到

    0

    主题

    2

    帖子

    4

    积分

    注册会员

    Rank: 2

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

    使用道具 举报

    该用户从未签到

    0

    主题

    29

    帖子

    273

    积分

    注册会员

    Rank: 2

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

    使用道具 举报

    该用户从未签到

    0

    主题

    8

    帖子

    66

    积分

    注册会员

    Rank: 2

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

    使用道具 举报

    该用户从未签到

    0

    主题

    20

    帖子

    164

    积分

    注册会员

    Rank: 2

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

    使用道具 举报

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

    本版积分规则

    在线客服
    热线电话

    微信公众账号
    返回顶部 关注微信 下载APP 返回列表