清表腳本

清表腳本

DECLARE
 CURSOR CUR_TABLE IS SELECT TABLE_NAME FROM USER_TABLES ;
 V_SQL VARCHAR2(400);
 REC_TABLE CUR_TABLE%ROWTYPE;
BEGIN 
    FOR  REC_TABLE IN CUR_TABLE LOOP     
         BEGIN
             V_SQL := 'TRUNCATE TABLE ' || REC_TABLE.TABLE_NAME/* || ';'*/;
             
             EXECUTE IMMEDIATE V_SQL ;
            
             EXCEPTION
               WHEN OTHERS THEN
                     DBMS_OUTPUT.put_line(REC_TABLE.TABLE_NAME);
         END;
          
    END LOOP;
END ;