CREATE OR REPLACE PROCEDURE DROPTABLES AS CURSOR tbls IS SELECT table_name FROM user_tables; tbl_name VARCHAR2(200); query1 VARCHAR2(2000):=''; BEGIN OPEN tbls; LOOP FETCH tbls INTO tbl_name; EXIT WHEN tbls%notfound; query1:=' DROP TABLE '||tbl_name||' CASCADE CONSTRAINTS'; EXECUTE IMMEDIATE query1; DBMS_OUTPUT.PUT_LINE(query1); END LOOP; CLOSE tbls; END droptables;
Kullanımı :
EXECUTE DROPTABLES
Hiç yorum yok:
Yorum Gönder