成人免费在线观看视频-国产绿帽子多p交换视频-精品国产一区av-免费xx视频-人妻熟妇乱又伦精品视频中文字幕-特级毛片内射www无码

各種存儲(chǔ)過程使用指南

2012/10/13 8:55:52   閱讀:3315    發(fā)布者:3315
  <%@ Language=VBScript %>
<%

'---開始鏈接數(shù)據(jù)庫
Dim strConnString
strConnString = "driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnstring
'---結(jié)束鏈接數(shù)據(jù)庫

'---開始為輸入?yún)?shù)賦值
Dim SelectSql , SelectRs
Dim SelectID , SelectName , SelectReturn
SelectSql = "Select Max(CompanyID) From Dim_Company"
Set SelectRs = Conn.Execute(SelectSql)
SelectID = SelectRs(0)
'---結(jié)束為輸入?yún)?shù)賦值

Dim TiggerType
TiggerType = 3

Set Cmd = Server.CreateObject("ADODB.Command")
Set Cmd.ActiveConnection = Conn
Cmd.CommandType = 4   '---聲明此過程為存儲(chǔ)過程

If TiggerType = 1 then
 
 '---開始一個(gè)輸入?yún)?shù)的存儲(chǔ)過程調(diào)用
 Cmd.CommandText = "TransCompany1"
 
 Set CmdParam = Cmd.CreateParameter("@TransID",3,1)
 Cmd.Parameters.Append CmdParam
 Cmd("@TransID") = SelectID
 Cmd.Execute
 '---結(jié)束一個(gè)輸入?yún)?shù)的存儲(chǔ)過程調(diào)用
 
Elseif TiggerType = 2 then

 '---開始一個(gè)輸入?yún)?shù),一個(gè)輸出參數(shù)的存儲(chǔ)過程調(diào)用
 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")
 '---結(jié)束一個(gè)輸入?yún)?shù),一個(gè)輸出參數(shù)的存儲(chǔ)過程調(diào)用

Elseif TiggerType = 3 then

 '---開始一個(gè)輸入?yún)?shù),一個(gè)輸出參數(shù),一個(gè)返回值的存儲(chǔ)過程調(diào)用
 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")
 '---結(jié)束一個(gè)輸入?yún)?shù),一個(gè)輸出參數(shù),一個(gè)返回值的存儲(chǔ)過程調(diào)用

End if

Conn.Close
Set Conn = Nothing
Set Cmd = Nothing
Set CmdParamID = Nothing
Set CmdParamname = Nothing
Set CmdParamReturn = Nothing

%>

主站蜘蛛池模板: 亚洲综合九九| 日本真人做爰免费的视频| 六月丁香综合在线视频| 亚洲色偷精品一区二区三区| 日韩在线观看一区二区不卡视频| 中文字幕视频专区| 日本丰满少妇高潮呻吟| 思热99re视热频这里只精品| 亚洲欧洲自偷自拍图片| 国产精品亚洲综合色区韩国 | 国产成人综合久久久久久| av无码爆乳护士在线播放| av淘宝国产在线观看| 精品人妻伦一二三区久久| 早起邻居人妻奶罩太松av| 国产成人精品.视频| 熟妇人妻一区二区三区四区| 最新国产麻豆aⅴ精品无码| 亚洲日本一区二区三区在线| 国产精品美女乱子伦高潮| 成人免费看www网址入口| 3d成人h动漫网站入口| 久久精品人人做人人爽电影蜜月| 亚洲日本va一区二区三区| 亚洲性无码av中文字幕| 亚洲色中文字幕在线播放| 无码中文人妻在线三区| 亚洲 自拍 另类小说综合图区| 狠狠色丁香婷婷久久综合蜜芽| 日韩av无码一区二区三区| 国产精品久久久久久久久鸭| 日韩伦人妻无码| 亚洲欧美成aⅴ人在线观看| 无码人妻巨屁股系列| 国产高清无密码一区二区三区| 国产99久久99热这里只有精品15| 亚洲综合国产精品第一页| 无码中文字幕av免费放| 国产三级在线观看免费| 人人妻人人添人人爽欧美一区| 国产白丝精品爽爽久久久久久蜜臀 |