ASP調(diào)用SQL SERVER存儲(chǔ)程序    


--------------------------------------------------------------------------------

 【don】 于 11/4/98 4:04:25 AM 加貼在 Joy ASP ↑：

調(diào)用數(shù)據(jù)庫存儲(chǔ)過程
<%Set Dataconn = Server.CreateObject("ADODB.Connection") 
'建立連接對(duì)象
Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=Microsoft(R) Developer Studio;WSID=APP_SERVER;Regional=Yes"
Set cmdTemp = Server.CreateObject("ADODB.Command")
'建立命令對(duì)象
Set rst = Server.CreateObject("ADODB.Recordset") 
'建立記錄集對(duì)象
cmdTemp.CommandText = "dbo.pd_test" '存儲(chǔ)過程名稱
cmdTemp.CommandType = 4 
'命令類別為4,表示為存儲(chǔ)過程
Set cmdTemp.ActiveConnection = Dataconn
Set tmpParam = cmdTemp.CreateParameter("Return Value", 3, 4, 4)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@BeginDate", 135, 1, 16, riqi) 
'創(chuàng)建輸入?yún)?shù)對(duì)象
cmdTemp.Parameters.Append tmpParam
rst.Open cmdTemp, , 1, 3    
'生成查詢結(jié)果
            %>
這里調(diào)用的存儲(chǔ)過程為pd_test，這種是ADO中提供的標(biāo)準(zhǔn)方法，但存在一個(gè)問題，就是當(dāng)在存儲(chǔ)過程中有兩個(gè)以上的SELECT語句，但從邏輯上又不可能同時(shí)執(zhí)行的時(shí)候，ADO會(huì)提示你存儲(chǔ)過程中SELECT語句太多，解決方法是直接用ADO的CONNECTION對(duì)象的EXECUTE方法直接執(zhí)行存儲(chǔ)過程，如下：
            <%
Set Dataconn = Server.CreateObject("ADODB.Connection") 
'建立連接對(duì)象
Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=Microsoft(R) Developer Studio;WSID=APP_SERVER;Regional=Yes"
ss = "EXECUTE dbo.pd_test " & "'" & riqi1 & "'" 
Set rs = dataconn.Execute(ss)
            %>