以下的文章主要介紹的是Oracle通過存儲過程中返回相關數據集的實際操作方案，我們首先要了解的是如何正確的使用存儲過程來返回數據集，我們大家都知道Oracle數據庫中的存儲過程返回數據集是Oracle通過ref cursor類型數據的參數返回的。

而返回數據的參數應該是out或in out類型的，由于在定義存儲過程時無法直接指定參數的數據類型為：ref cursor，而是首先Oracle通過以下方法將ref cursor進行了重定義：

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

還可以定義其他內容

end FuxjPackage; 

再定義存儲過程：

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中調用返回數據集的存儲過程

可以通過TstoredProc或TQuery控件來調用執行返回數據集的存儲，數據集Oracle通過TstoredProc或TQuery控件的參數返回，注意參數的DataType類型為ftCursor，而參數的ParamType類型為ptInputOutput。

使用TstoredProc執行UpdatefuxjExample的相關設置為：

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   

上述的相關內容就是對Oracle通過存儲過程中返回數據集的描述，希望會給你帶來一些幫助在此方面。

【編輯推薦】

1. Oracle rownum用法的歸納
2. Oracle存儲過程定時執行2種方法
3. Oracle 10g中的hints調整機制詳解
4. 提高Oracle SQL的執行效率的3個方案
5. Oracle數據庫的性能完全保護的4個項目