[Oracle]高效的PL/SQL程序设计(六)--%ROWTYPE的使用

本系列文章导航

[Oracle]高效的PL/SQL程序设计(一)--伪列ROWNUM使用技巧

[Oracle]高效的PL/SQL程序设计(二)--标量子查询

[Oracle]高效的PL/SQL程序设计(三)--Package的优点

[Oracle]高效的PL/SQL程序设计(四)--批量处理

[Oracle]高效的PL/SQL程序设计(五)--调用存储过程返回结果集

[Oracle]高效的PL/SQL程序设计(六)--%ROWTYPE的使用

在PL/SQL程序中, 我们会遇到需要先从一个结果集中取出若干记录, 然后对每一条记录进行处理的情况, 最理想的做法是在一条SQL语句中完成, 但有时候因为需求的关系所以不一定能实现, 所以我们通常会定义几个变量, 然后对结果集做循环, 赋值给变量. 最典型的就是select XX into XX。我们也可以用定义一个记录%rowtype的方法, 减少不必要的代码量, 还能避免由于表中字段的变更造成的错误。示例如下：

创建测试表：

createtablet1asselect*fromuser_tables

创建PACKAGE HEAD:

createorreplacepackageType_demois

procedureprocess1(p_recordint1%rowtype);
procedureprocess_data(p_inputsinvarchar2);

endType_demo;

创建PACKAGE BODY:

createorreplacepackagebodyType_demois

procedureprocess1(p_recordint1%rowtype)
as
begin
dbms_output.put_line(p_record.tablespace_name);
end;

procedureprocess_data(p_inputsinvarchar2)
as
begin
forxin(select*fromt1wheretable_namelikep_inputs)
loop
process1(x);
endloop;
end;

endType_demo;

上面的例子得到的是整个表的记录类型, 如果想要得到某几个列的记录类型, 可以按照如下做法：

createorreplacepackageType_demois

cursortemplate_cursor
isselecttable_name,tablespace_namefromt1;

--typercisrefcursor;

procedureprocess2(p_recordintemplate_cursor%rowtype);
procedureprocess_data(p_cnameinvarchar2,p_inputsinvarchar2);
endType_demo;

createorreplacepackagebodyType_demois

procedureprocess2(p_recordintemplate_cursor%rowtype)
as
begin
dbms_output.put_line(p_record.tablespace_name);
end;

procedureprocess_data(p_cnameinvarchar2,p_inputsinvarchar2)
as
--l_cursorrc;
l_cursorsys_refcursor;
l_rectemplate_cursor%rowtype;
begin
openl_cursor
for
'selecttable_name,tablespace_namefromt1where'||p_cname||'like:x'usingp_inputs;
loop
fetchl_cursorintol_rec;
exitwhenl_cursor%notfound;
process2(l_rec);
endloop;
end;

endType_demo;

注：还有一个获得列的数据类型%TYPE

l_tablenamet1.tablename%type;

select XX into l_tablename from t1 where...

博文来源：http://blog.csdn.net/huanghui22/archive/2007/05/24/1624358.aspx