zoukankan      html  css  js  c++  java
  • 各种存储过程使用指南

    各种存储过程使用指南

    <%@ Language=VBScript %> 
    <%

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

    %>

  • 相关阅读:
    SQL Server优化(4)-聚集索引的重要性和如何选择聚集索引
    青岛开发区公交集团公交线路一览表
    WINDOWS下文件夹简介
    2008 SQL Server优化(2)-改善SQL语句
    【麦课在线教育mycourse】利用Js快速刷完新生安全教育课程
    Linux重启网卡的方法
    Trees
    计算机操作系统之设备管理
    linux目录结构及主要内容
    Linux mysql命令安装允许远程连接
  • 原文地址:https://www.cnblogs.com/llguanli/p/8321453.html
Copyright © 2011-2022 走看看