清除表空间的所有数据
BEGIN
FOR obj IN
(SELECT object_name,object_type from user_objects
WHERE object_type='PROCEDURE'
OR object_type='TABLE'
OR object_type='VIEW'
OR object_type='FUNCTION'
OR object_type='PACKAGE'
OR object_type='PACKAGE BODY'
OR object_type='SEQUENCE'
)
LOOP
IF obj.object_type='TABLE' THEN
EXECUTE IMMEDIATE 'DROP '||obj.object_type||' '||obj.object_NAME||' CASCADE CONSTRAINTS';
ELSE
EXECUTE IMMEDIATE 'DROP '||obj.object_type||' '||obj.object_NAME;
END IF;
END LOOP;
END;