在PL/SQL程序中, 我們會遇到需要先從一個結果集中取出若干記錄, 然后對每一條記錄進行處理的情況, 最理想的做法是在一條SQL語句中完成, 但有時候因為需求的關系所以不一定能實現, 所以我們通常會定義幾個變量, 然后對結果集做循環, 賦值給變量. 最典型的就是select XX into XX。我們也可以用定義一個記錄%rowtype的方法, 減少不必要的代碼量, 還能避免由于表中字段的變更造成的錯誤。示例如下:
創建測試表:
create
table
t1
as
select
*
from
user_tables
創建PACKAGE HEAD:
create
or
replace
packageType_demo
is
procedure
process1(p_record
in
t1
%
rowtype);
procedure
process_data(p_inputs
in
varchar2
);
end
Type_demo;
創建PACKAGE BODY:
create
or
replace
packagebodyType_demo
is
procedure
process1(p_record
in
t1
%
rowtype)
as
begin
dbms_output.put_line(p_record.tablespace_name);
end
;
procedure
process_data(p_inputs
in
varchar2
)
as
begin
for
x
in
(
select
*
from
t1
where
table_name
like
p_inputs)
loop
process1(x);
end
loop;
end
;
end
Type_demo;
上面的例子得到的是整個表的記錄類型, 如果想要得到某幾個列的記錄類型, 可以按照如下做法:
create
or
replace
packageType_demo
is
cursor
template_cursor
is
select
table_name,tablespace_name
from
t1;
--
typercisrefcursor;
procedure
process2(p_record
in
template_cursor
%
rowtype);
procedure
process_data(p_cname
in
varchar2
,p_inputs
in
varchar2
);
end
Type_demo;
create
or
replace
packagebodyType_demo
is
procedure
process2(p_record
in
template_cursor
%
rowtype)
as
begin
dbms_output.put_line(p_record.tablespace_name);
end
;
procedure
process_data(p_cname
in
varchar2
,p_inputs
in
varchar2
)
as
--
l_cursorrc;
l_cursorsys_refcursor;
l_rectemplate_cursor
%
rowtype;
begin
open
l_cursor
for
'
selecttable_name,tablespace_namefromt1where
'
||
p_cname
||
'
like:x
'
usingp_inputs;
loop
fetch
l_cursor
into
l_rec;
exit
when
l_cursor
%
notfound;
process2(l_rec);
end
loop;
end
;
end
Type_demo;