使用游标删除数据库表

create or replace procedure PROC_DROPTABLE_BIEE

as

--引用user_tables表中的tableName的类型;

--集合处理方式

type record_type is table of user_tables%rowtype;

record_table record_type;

--表名

tableName user_tables.table_name%type;

mycount number(10);

cursor biee_tables_cur is select t.* from user_tables t where t.TABLE_NAME like '%T_BI_%';

rowdata biee_tables_cur%rowtype;

begin

select count(*) into mycount from user_tables t where t.TABLE_NAME like '%T_BI_%';

--存在数据

if (mycount > 0) then

dbms_output.put_line('共有 ' || mycount || ' 条表名包含 T_BI 的表记录');

open biee_tables_cur;

fetch biee_tables_cur bulk collect into record_table;

close biee_tables_cur;

--for Loop

for record_table in biee_tables_cur

Loop

dbms_output.put_line('for loop：' || record_table.table_name );

end Loop;

--while Loop

open biee_tables_cur;

FETCH biee_tables_cur into rowdata;

while biee_tables_cur%found

Loop

dbms_output.put_line('while loop：' || rowdata.table_name );

fetch biee_tables_cur into rowdata;

end Loop;

close biee_tables_cur;

for i in 1.. record_table.count loop

--获取当前表名

tableName:= record_table(i).TABLE_NAME;

--检查是否存在该表

select count(*) into mycount from user_tables t where t.TABLE_NAME=tableName;

--存在则删除

if (mycount > 0) then

dbms_output.put_line('删除表名为 "' || tableName || '" 的表');

execute immediate 'drop table ' || tableName;

else

dbms_output.put_line('不存在表名为 "' || tableName || '" 的表');

end if;

end loop;

--不存在对应数据

else

dbms_output.put_line('不存在表名包含 T_BI 的表记录');

end if;

end;