• 首页
• 服务器租用
• 企业邮箱
• 虚拟主机
• 网站程序
• 营销推广
• 网站建设
• 域名注册
• 前端开发
• 网站备案

• 当前位置：创新互联 >> 常见问题 >> 虚拟主机 >> 数据库 >> 各种存储过程使用指南

各种存储过程使用指南

• 作者：创新互联 文章来源：虚拟主机部 点击数： 更新时间：2010-10-27
• 　　存储这个词对我们而言都不陌生，但是网站制作过程中总是会遇到各种各样的存储过程，是否每一种你都了解了呢？如果你还存在疑问，请看创新互联小编给大家分享的各种存储过程的使用。
  <%@ 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
  %>
• ADO 存取数据库时如何分页显示 :上一篇
  如何选择数据库？ -创新互联 :下一篇