1 這也是最簡單的方法,兩個輸入參數,無回傳值:
set connection = server.createobject(adodb.connection)
connection.open someDSN
Connection.Execute procname varvalue1, varvalue2
'將所有物件清除為nothing,釋放資源
connection.close
set connection = nothing
2 如果要返回Recordset 集:
set connection = server.createobject(adodb.connection)
connection.open someDSN
set rs = server.createobject(adodb.recordset)
rs.Open Exec procname varvalue1, varvalue2,connection
'將所有物件清除為nothing,釋放資源
rs.close
connection.close
set rs = nothing
set connection = nothing
3 以上兩種方法都不能有回傳值,(Recordset除外),若要得到回傳值,則需要用Command的方法。
首先說明,傳回值有兩種。一種是在預存過程中直接return一個值,就像C和VB的函數回傳值那樣;另一種是可以傳回多個值,儲存這些值的變數名稱需要在呼叫參數中先行指定。
這個範例要處理多種參數,輸入參數,輸出參數,傳回記錄集以及一個直接回傳值(夠全了吧?)
預存程序如下:
use pubs
GO
-- 建立預存程序
create procedure sp_PubsTest
-- 定義三個參數變量,注意第三個,特別標記是用於輸出
@au_lname varchar (20),
@intID int,
@intIDOut int OUTPUT
AS
SELECT @intIDOut = @intID + 1
SELECT *
FROM authors
WHERE au_lname LIKE @au_lname + '%'
--直接回傳一個值
RETURN @intID + 2
呼叫該預存程序的asp程式如下:
<%@ Language=VBScript %>
<%
Dim CmdSP
Dim adoRS
Dim adCmdSPStoredProc
Dim adParamReturnValue
Dim adParaminput
Dim adParamOutput
Dim adInteger
Dim iVal
Dim oVal
Dim adoField
Dim adVarChar
'這些值在VB 中是預先定義常數,可以直接調用,但在VBScript 中沒有預先定義
adCmdSPStoredProc = 4
adParamReturnValue = 4
adParaminput = 1
adParamOutput = 2
adInteger = 3
adVarChar = 200
iVal = 5
oVal = 3
'建一個command對象
set CmdSP = Server.CreateObject(ADODB.Command)
'建立連結
CmdSP.ActiveConnection = Driver={SQL Server};server=(local);Uid=sa;Pwd=;Database=Pubs
'定義command 物件呼叫名稱
CmdSP.CommandText = sp_PubsTest
'設定command呼叫類型是預存程序(adCmdSPStoredProc = 4)
CmdSP.CommandType = adCmdSPStoredProc
'往command 物件中加參數
'定義預存程序有直接回傳值,且是個整數,省缺值是4
CmdSP.Parameters.Append CmdSP.CreateParameter(RETURN_VALUE, adInteger, adParamReturnValue, 4)
'定義一個字元型輸入參數
CmdSP.Parameters.Append CmdSP.CreateParameter(@au_lname, adVarChar, adParaminput, 20, M)
'定義一個整數輸入參數
CmdSP.Parameters.Append CmdSP.CreateParameter(@intID, adInteger, adParamInput, , iVal)
'定義一個整數輸出參數
CmdSP.Parameters.Append CmdSP.CreateParameter(@intIDOut, adInteger, adParamOutput, oVal)
'運行預存程序,並得到回傳記錄集
Set adoRS = CmdSP.Execute
'把每個記錄印出來,其中的欄位是虛擬的,可以不用管
While Not adoRS.EOF
for each adoField in adoRS.Fields
Response.Write adoField.Name & = & adoField.Value & <br> & vbCRLF
Next
Response.Write <br>
adoRS.MoveNext
Wend
'印出兩個輸出值:
Response.Write <p>@intIDOut = & CmdSP.Parameters(@intIDOut).Value & </p>
Response.Write <p>Return value = & CmdSP.Parameters(RETURN_VALUE).Value & </p>
'大掃除
Set adoRS = nothing
Set CmdSP.ActiveConnection = nothing
Set CmdSP = nothing
%>
另外還有其他方式,稍微偏門一些,以後慢慢再說
本文參考了多篇文章,這裡不一一列出。