各种存储过程使用指南-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

各种存储过程使用指南
<%@ 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

%>

返回类别: 教程
上一教程: 使用数据库判定在线名单以及在线人数
下一教程: ASP自动生成JAVASCRIPT检验函数

您可以阅读与"各种存储过程使用指南"相关的教程:
· ASP存储过程使用
· 存储过程使用大全
· ASP存储过程使用大全
· 使用XML和SQL SERVER 2000治理存储过程调用
· 实现分页的例子-使用存储过程来实现分页


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接