-- 游标读取数据
create or replace procedure p_del_tab
as
v_a v_user_tab.TABLE_NAME%type;
cursor c_tab_name is select t.TABLE_NAME from v_user_tab t;

begin
open c_tab_name;
loop
    fetch c_tab_name into v_a;
    dbms_output.put_line(v_a);
exit when c_tab_name%notfound;
end loop;
close c_tab_name;

open c_tab_name;
      fetch c_tab_name into v_a;
        while c_tab_name%found loop
          dbms_output.put_line(v_a);
          fetch c_tab_name into v_a;
        end loop;
    close c_tab_name;

    for v_a in c_tab_name loop
      dbms_output.put_line(v_a.TABLE_NAME);
    end loop;

exception
when others then
    dbms_output.put_line(sqlcode||sqlerrm);
end;

ITPub博客

103

最新文章