ASP開發(fā)中存儲過程應(yīng)用全接觸

字號:

考試大編輯整理:計(jì)算機(jī)軟考程序員編程輔導(dǎo)
    ASP與存儲過程(Stored Procedures)的文章不少,但是我懷疑作者們是否真正實(shí)踐過。我在初學(xué)時查閱過大量相關(guān)資料,發(fā)現(xiàn)其中提供的很多方法實(shí)際操作起來并不是那么回事。對于簡單的應(yīng)用,這些資料也許是有幫助的,但僅限于此,因?yàn)樗鼈兏揪褪乔宦?,互相抄襲,稍微復(fù)雜點(diǎn)的應(yīng)用,就全都語焉不詳了。
    現(xiàn)在,我基本上通過調(diào)用存儲過程訪問SQL Server,以下的文字都是實(shí)踐的總結(jié),希望對大家能有幫助。
    存儲過程就是作為可執(zhí)行對象存放在數(shù)據(jù)庫中的一個或多個SQL命令。
    定義總是很抽象。存儲過程其實(shí)就是能完成一定操作的一組SQL語句,只不過這組語句是放在數(shù)據(jù)庫中的(這里我們只談SQL Server)。如果我們通過創(chuàng)建存儲過程以及在ASP中調(diào)用存儲過程,就可以避免將SQL語句同ASP代碼混雜在一起。這樣做的好處至少有三個:
    第一、大大提高效率。存儲過程本身的執(zhí)行速度非???,而且,調(diào)用存儲過程可以大大減少同數(shù)據(jù)庫的交互次數(shù)。
    第二、提高安全性。假如將SQL語句混合在ASP代碼中,一旦代碼失密,同時也就意味著庫結(jié)構(gòu)失密。
    第三、有利于SQL語句的重用。
    在ASP中,一般通過command對象調(diào)用存儲過程,根據(jù)不同情況,本文也介紹其它調(diào)用方法。為了方便說明,根據(jù)存儲過程的輸入輸出,作以下簡單分類:
    1. 只返回單一記錄集的存儲過程
    假設(shè)有以下存儲過程(本文的目的不在于講述T-SQL語法,所以存儲過程只給出代碼,不作說明):
    /*SP1*/
    CREATE PROCEDURE dbo.getUserList
    as
    set nocount on
    begin
    select * from dbo.[userinfo]
    end
    go
    以上存儲過程取得userinfo表中的所有記錄,返回一個記錄集。通過command對象調(diào)用該存儲過程的ASP代碼如下:
    '**通過Command對象調(diào)用存儲過程**
    DIM MyComm,MyRst
    Set MyComm = Server.CreateObject("ADODB.Command")
    MyComm.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串
    MyComm.CommandText = "getUserList" '指定存儲過程名
    MyComm.CommandType = 4 '表明這是一個存儲過程
    MyComm.Prepared = true '要求將SQL命令先行編譯
    Set MyRst = MyComm.Execute
    Set MyComm = Nothing
    存儲過程取得的記錄集賦給MyRst,接下來,可以對MyRst進(jìn)行操作。
    在以上代碼中,CommandType屬性表明請求的類型,取值及說明如下:
    -1 表明CommandText參數(shù)的類型無法確定
    1 表明CommandText是一般的命令類型
    2 表明CommandText參數(shù)是一個存在的表名稱
    4 表明CommandText參數(shù)是一個存儲過程的名稱
    還可以通過Connection對象或Recordset對象調(diào)用存儲過程,方法分別如下:
    '**通過Connection對象調(diào)用存儲過程**
    DIM MyConn,MyRst
    Set MyConn = Server.CreateObject("ADODB.Connection")
    MyConn.open MyConStr 'MyConStr是數(shù)據(jù)庫連接字串
    Set MyRst = MyConn.Execute("getUserList",0,4) '后一個參斷含義同CommandType
    Set MyConn = Nothing
    '**通過Recordset對象調(diào)用存儲過程**
    DIM MyRst
    Set MyRst = Server.CreateObject("ADODB.Recordset")
    MyRst.open "getUserList",MyConStr,0,1,4
    'MyConStr是數(shù)據(jù)庫連接字串,后一個參斷含義與CommandType相同
    2. 沒有輸入輸出的存儲過程
    請看以下存儲過程:
    /*SP2*/
    CREATE PROCEDURE dbo.delUserAll
    as
    set nocount on
    begin
    delete from dbo.[userinfo]
    end
    go
    該存儲過程刪去userinfo表中的所有記錄,沒有任何輸入及輸出,調(diào)用方法與上面講過的基本相同,只是不用取得記錄集:
    '**通過Command對象調(diào)用存儲過程**
    DIM MyComm
    Set MyComm = Server.CreateObject("ADODB.Command")
    MyComm.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串
    MyComm.CommandText = "delUserAll" '指定存儲過程名
    MyComm.CommandType = 4 '表明這是一個存儲過程
    MyComm.Prepared = true '要求將SQL命令先行編譯
    MyComm.Execute '此處不必再取得記錄集
    Set MyComm = Nothing
    當(dāng)然也可通過Connection對象或Recordset對象調(diào)用此類存儲過程,不過建立Recordset對象是為了取得記錄集,在沒有返回記錄集的情況下,還是利用Command對象吧。