Bestcomy.net blog

Coding for funny

导航

先把代码贴这里,晚些时候说明一下,怕忘了:)
如果有高手发现错误或者不合适的地方请即刻指出,谢了
DECLARE
TYPE name_list 
IS TABLE OF VARCHAR2(40);
TYPE type_list 
IS TABLE OF VARCHAR2(20);

Tab_name name_list:
=name_list();
Tab_type type_list:
=type_list();

sql_str 
VARCHAR2(500);
BEGIN
sql_str :
= 'select uo.object_name,uo.object_type from user_objects uo where uo.object_type not in(''INDEX'',''LOB'') order by uo.object_type desc';
EXECUTE IMMEDIATE sql_str BULK COLLECT INTO tab_name,tab_type;

FOR i IN Tab_name.FIRST.. Tab_name.LAST LOOP
sql_str :
= 'DROP ' || Tab_type(i) || ' ' || Tab_name(i);
EXECUTE IMMEDIATE sql_str;
END LOOP;
END;