各种存储过程使用指南

原创 2004年05月26日 11:44:00

<%@ 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

%>

Eclipse入门:使用指南

我爱北京天安门 天安门上太阳升 伟大领袖毛主席 指引我们向前进 2001 年11 月 IBM 宣布捐出了价值 4 千万美金的开发软件给开放源码的 Eclipse...
  • arielxp
  • arielxp
  • 2004年07月14日 20:34
  • 5850

微信公众平台消息接口使用指南

转载微信公众平台. 一 、简介 公众平台消息接口为开发者提供了一种新的消息处理方式。 二 、 申请消息接口 点击申请,如实填写负责人姓名 、 手机号和邮箱,填写网址url和to...
  • e_wsq
  • e_wsq
  • 2013年09月28日 23:48
  • 937

各种功能 存储过程 (二)

/*根据id号获取新闻数据*/ create proc tgr_GetNewsInfoByNid @KeyId int as begin select * from RTO_TbNews wher...
  • zscmj
  • zscmj
  • 2011年07月18日 08:29
  • 287

Shodan完全手册部分翻译(1)

数据搜集: Shodan为了防止地理偏差,数据是从全世界搜集的.例如,许多美国的系统管理员会屏蔽来自所有来自中国的IP地址.遍布世界的 Shodan爬虫确保任何国家间的屏蔽不会影响数据搜集. 爬虫...
  • xumesang
  • xumesang
  • 2016年01月02日 22:31
  • 1707

MySQL使用指南

MySQL使用指南 作者:大金刚   有很多朋友虽然安装好了mysql但却不知如何使用它。在这篇文章中我们就从连接MYSQL、修改密码、增加用户等方面来学习一些MYSQL的常用命令。 一、连...
  • shenyan008
  • shenyan008
  • 2013年02月25日 14:36
  • 355

[Mysql for Excel指南] 第三章 配置

目录 3.1 全局设置 3.2 MySQL连接管理 这部分分成两个章节:全局选项配置,MySQL连接管理。 翻译:http://dev.mysql.com/doc/mysql-...
  • SJZYLC
  • SJZYLC
  • 2016年01月23日 14:33
  • 802

Android Studio使用指南(2)

Android studio设置项(Appearance&Behavior) 1.      android studio 打开设置项快捷键alt+ctrl +s 2.      双击shift,打开...
  • lsw305264677
  • lsw305264677
  • 2016年03月17日 08:27
  • 301

Eclipse使用入门指南及技巧

介绍Eclipse这种纯绿色的Java IDE工具的使用技巧,包括:插件管理、配置、性能优化、内嵌容器优化等。例如: Svn插件的安装,以及SVN插件和Eclipse版本不匹配导致的问题; Maven...
  • puma_dong
  • puma_dong
  • 2013年12月16日 21:22
  • 6029

leetcode 刷题指南

这个zhilang
  • xiaqunfeng123
  • xiaqunfeng123
  • 2014年05月12日 11:01
  • 3539

VS2010使用指南

release 和 debug当编译和执行一个工程时,可以在Debug和Release两种配置下执行。Debug模式用于调试程序,这是个受保护的运行环境,它将告诉你程序是否有泄露,在运行时也能对特定函...
  • youmingyu
  • youmingyu
  • 2016年11月10日 15:14
  • 524
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:各种存储过程使用指南
举报原因:
原因补充:

(最多只允许输入30个字)