儲存過程判斷若個表中是否存在某個名稱的欄位

lihy114發表於2013-08-14
儲存過程
--在儲存過程執行的使用者下，新建兩個個表
--建表程式碼
drop table tab_name;

create table tab_name
(table_name varchar2(20));

drop table tab_remark;

create table tab_remark
(
table_name varchar2(20),
remark varchar2(20)
);


--tab_name存放程式碼表的名稱，先執行獲取表名稱的語句，
insert into tab_name
select table_name from user_tables;
--tab_remark存放核對的結果；

CREATE OR REPLACE PROCEDURE "DATACODE" (MYARG IN varchar2)
IS
  v_num number(5);
  cursor cur_table is select table_name from tab_name;
  v_tablename varchar2(20);
  v_count number(5);
  v_sql varchar2(400);
  v_tybm varchar2(36);
  v_unitid varchar2(6);
  no_table exception;
  pragma exception_init(no_table,-00904);
begin
  select count(*) into v_count from tab_name;
  open cur_table;
  fetch cur_table into v_tablename;
     for i in 1..v_count loop 
         v_sql :='select tybm,unitid from '|| v_tablename || ' where rownum<2';
            begin
               execute immediate v_sql into v_tybm,v_unitid;
               insert into tab_remark values(v_tablename,'cunzai');
               commit;
                 exception
                    when no_table then
                    insert into tab_remark values(v_tablename,'bucunzai'); 
                    commit; 
                    when no_data_found then
                    insert into tab_remark values(v_tablename,'kongzhi');
                    commit;
             end;
             fetch cur_table into v_tablename;
     end loop;
  close cur_table;          
end;




兩種異常的處理方法。

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/28803801/viewspace-768477/，如需轉載，請註明出處，否則將追究法律責任。

相關文章