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

    %>

  • 相关阅读:
    JSP中文乱码
    Java Enum 浅析
    详解 Tomcat: The value for the useBean class attribute is invalid
    PHP+ACCESS 实例
    MySQL limit实际用法的详细解析
    JSP获取当前时间
    sql where 1=1和 0=1 的作用
    利用Quartus设计4位同步二进制加法计数器
    JSP各种路径的获取
    JSP连接MYSQL数据库
  • 原文地址:https://www.cnblogs.com/llguanli/p/8321453.html
Copyright © 2011-2022 走看看