文章主要教會(huì)你如何正確的使用Oracle存儲(chǔ)過(guò)程使其返回相關(guān)的數(shù)據(jù)集的實(shí)際操作步驟，我們大家都知道在Oracle中存儲(chǔ)過(guò)程的返回相關(guān)的數(shù)據(jù)集主要作用是通過(guò)相關(guān)ref cursor類(lèi)型數(shù)據(jù)的實(shí)際應(yīng)用參數(shù)返回的，而返回?cái)?shù)據(jù)的參數(shù)應(yīng)該是out或in out類(lèi)型的。

由于在定義Oracle存儲(chǔ)過(guò)程時(shí)無(wú)法直接指定參數(shù)的數(shù)據(jù)類(lèi)型為：ref cursor，而是首先通過(guò)以下方法將ref cursor進(jìn)行了重定義：

create or replace package FuxjPackage is  
type FuxjResultSet is ref cursor;  

還可以定義其他內(nèi)容

end FuxjPackage; 

再定義Oracle存儲(chǔ)過(guò)程：

create or replace procedure UpdatefuxjExample 
(sDM in char,sMC in char, pRecCur in out FuxjPackage.FuxjResultSet)  
as  
begin  
update fuxjExample set mc=sMC where dm=sDM;  
if SQL%ROWCOUNT=0 then  
rollback;  
open pRecCur for  
select '0' res from dual;  
else  
commit;  
open pRecCur for  
select '1' res from dual;  
end if;  
end;  

和

create or replace procedure InsertfuxjExample 
(sDM in char,sMC in char, pRecCur in out FuxjPackage.FuxjResultSet)  
as  
begin  
insert into FuxjExample (dm,mc) values (sDM,sMC);  
commit;  
open pRecCur for  
select * from FuxjExample;  
end;  

二、在Delphi中調(diào)用返回?cái)?shù)據(jù)集的Oracle存儲(chǔ)過(guò)程

可以通過(guò)TstoredProc或TQuery控件來(lái)調(diào)用執(zhí)行返回?cái)?shù)據(jù)集的存儲(chǔ)，數(shù)據(jù)集通過(guò)TstoredProc或TQuery控件的參數(shù)返回，注意參數(shù)的DataType類(lèi)型為ftCursor，而參數(shù)的ParamType類(lèi)型為ptInputOutput。

使用TstoredProc執(zhí)行UpdatefuxjExample的相關(guān)設(shè)置為：

object StoredProc1: TStoredProc  
DatabaseName = 'UseProc' 
StoredProcName = 'UPDATEFUXJEXAMPLE' 
ParamData = < 
item 
DataType = ftString 
Name = 'sDM' 
ParamType = ptInput 
end  
item  
DataType = ftString 
Name = 'sMC' 
ParamType = ptInput 
end  
item  
DataType = ftCursor 
Name = 'pRecCur' 
ParamType = ptInputOutput 
Value = Null 
end> 
end   

以上的相關(guān)內(nèi)容就是對(duì)Oracle存儲(chǔ)過(guò)程中返回?cái)?shù)據(jù)集的介紹，望你能有所收獲。

【編輯推薦】

1. Oracle建立DBLINK的操作經(jīng)驗(yàn)總結(jié)
2. Oracle查詢記錄數(shù)在什么環(huán)境下會(huì)出現(xiàn)問(wèn)題？
3. Oracle字符集的查看與修改全集
4. Oracle 分頁(yè)和排序功能在數(shù)據(jù)庫(kù)中如何實(shí)現(xiàn)？
5. Oracle移植到MySQL會(huì)碰到那些問(wèn)題？