• 當前位置：創(chuàng)新互聯(lián) >> 常見問題 >> 虛擬主機 >> 數(shù)據(jù)庫 >> 各種存儲過程使用指南

各種存儲過程使用指南

• 作者：創(chuàng)新互聯(lián) 文章來源：虛擬主機部 點擊數(shù)： 更新時間：2010-10-27
• 　　存儲這個詞對我們而言都不陌生，但是網(wǎng)站制作過程中總是會遇到各種各樣的存儲過程，是否每一種你都了解了呢？如果你還存在疑問，請看創(chuàng)新互聯(lián)小編給大家分享的各種存儲過程的使用。
  <%@ 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
  '---結束鏈接數(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)
  '---結束為輸入?yún)��?shù)賦值
  Dim TiggerType
  TiggerType = 3
  Set Cmd = Server.CreateObject("ADODB.Command")
  Set Cmd.ActiveConnection = Conn
  Cmd.CommandType = 4 '---聲明此過程為存儲過程
  If TiggerType = 1 then
  '---開始一個輸入?yún)��?shù)的存儲過程調用
  Cmd.CommandText = "TransCompany1"
  Set CmdParam = Cmd.CreateParameter("@TransID",3,1)
  Cmd.Parameters.Append CmdParam
  Cmd("@TransID") = SelectID
  Cmd.Execute
  '---結束一個輸入?yún)��?shù)的存儲過程調用
  Elseif TiggerType = 2 then
  '---開始一個輸入?yún)��?shù)，一個輸出參數(shù)的存儲過程調用
  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")
  '---結束一個輸入?yún)��?shù)，一個輸出參數(shù)的存儲過程調用
  Elseif TiggerType = 3 then
  '---開始一個輸入?yún)��?shù)，一個輸出參數(shù)，一個返回值的存儲過程調用
  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")
  '---結束一個輸入?yún)��?shù)，一個輸出參數(shù)，一個返回值的存儲過程調用
  End if
  Conn.Close
  Set Conn = Nothing
  Set Cmd = Nothing
  Set CmdParamID = Nothing
  Set CmdParamname = Nothing
  Set CmdParamReturn = Nothing
  %>
• ADO 存取數(shù)據(jù)庫時如何分頁顯示 :上一篇
  如何選擇數(shù)據(jù)庫？ -創(chuàng)新互聯(lián) :下一篇