成人免费在线观看视频-国产绿帽子多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

%>

主站蜘蛛池模板: 久久久久无码精品国产h动漫| 精品国产国语对白久久免费| 国产公开免费人成视频| 亚洲色无码专区在线观看| 国产人妻人伦精品久久久| 国产成人亚洲精品无码av大片| 亚洲无线码在线一区观看 | 首页 动漫 亚洲 欧美 日韩| 亚洲综合av一区二区三区| 东京热无码av男人的天堂| 久久婷婷香蕉热狠狠综合| 少妇私密推油呻吟在线播放| 日本人妻精品免费视频| 人妻无码久久中文字幕专区| 日韩精品欧美在线成人| 强奷乱码中文字幕| 熟女无套内射线观56| 亲胸揉屁股膜下刺激视频免费网站| 在线观看欧美一区二区三区| 永久免费的av在线电影网| 少妇精品久久久一区二区三区 | 国产午夜精品理论片小yo奈| 国产精品一国产精品| 中文无码日韩欧av影视| 无遮挡啪啪摇乳动态图gif| 特黄特色大片免费播放器图片| 果冻国产精品麻豆成人av电影 | 激情综合亚洲色婷婷五月app| 国产成人精品999视频| 国产人妻大战黑人第1集| 无码av免费一区二区三区| 无码精品久久久天天影视| 中文字幕精品久久久久人妻红杏1 中文字幕精品久久久久人妻红杏ⅰ | 无码高潮少妇毛多水多水免费| 亚洲一区二区自拍| 亚洲人成无码网www动漫| 香港三日本三级少妇三级视频| 伊人大香线蕉精品在线播放| 久久精品农村毛片| 国语精品福利自产拍在线观看| 久久99精品久久久久婷婷|