create or replace procedure demo20170421 as
type emp_type is table of Varchar2(100) INDEX BY Binary_Integer;
emplist emp_type;
---dingyi游标
cursor cur is
select t.ename from emp t;
begin
if not cur%Isopen then
open cur;
end if;
fetch cur Bulk collect
into emplist;
for i in 1 .. emplist.count loop
dbms_output.put_line('员工名称:' || emplist(i));
end loop;
close cur;
type emp_type is table of Varchar2(100) INDEX BY Binary_Integer;
emplist emp_type;
---dingyi游标
cursor cur is
select t.ename from emp t;
begin
if not cur%Isopen then
open cur;
end if;
fetch cur Bulk collect
into emplist;
for i in 1 .. emplist.count loop
dbms_output.put_line('员工名称:' || emplist(i));
end loop;
close cur;
end demo20170421;
-- type emp_type is table of Varchar2(100) INDEX BY Binary_Integer; 表示建立一个索引表类型。
---BULK COLLECT子句会批量检索结果,即一次性将结果集绑定到一个集合变量中,并从SQL引擎发送到PL/SQL引擎。