ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 103

103

原创 Linux操作系统 作者:simkyo 时间:2013-08-29 13:46:37 0 删除 编辑
-- 游标读取数据
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博客 ” ,链接:http://blog.itpub.net/12961536/viewspace-769581/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 102
下一篇: 104
请登录后发表评论 登录
全部评论

注册时间:2013-06-20

  • 博文量
    193
  • 访问量
    138804