删除所有表中数据

最近一个项目中作结合测试，需要测试数据流的正确性，这就需要在执行过一次完整的流程之后删除所有表中的数据。

当然了，如果只是几个表，那手动操作就很快了，但是在表很多的时候，就需要很多手工操作了。

还好，我们有很多简便的方法，可以自动的删除数据，下面就介绍两种，都是利用Oracle中的一个表--ALL_ALL_TABLES。

1）生成删除数据的语句

SELECT 'TRUNCATE TABLE '||TABLE_NAME||';' FROM ALL_TABLES WHERE OWNER = 'XXX'

执行这条SQL语句，就可以生成删除表数据的SQL语句，然后把这些SQL语句复制到文件中，

然后利用SQL*PLUS的命令执行这个文件，进行数据的删除。

2）利用存储过程删除数据

CREATE OR REPLACE PROCEDURE DELALL(USERNAME IN VARCHAR2)
IS
    CURSOR tblname_cur(USERNAME IN VARCHAR2) IS
    SELECT TABLE_NAME FROM ALL_ALL_TABLES WHERE OWNER = USERNAME;
    lv_sql VARCHAR2(100);
BEGIN
    FOR tblname_rec IN tblname_cur(USERNAME) LOOP
        lv_sql := ' ';
        lv_sql := 'TRUNCATE TABLE ' || tblname_rec.TABLE_NAME || ' DROP STORAGE';
        EXECUTE IMMEDIATE lv_sql;
        COMMIT;
    END LOOP;
END; 

比较一下以上两种作法：

第一种比较简单，但是是半自动的，先生成SQL，然后再执行删除操作，

并且由于SQL语句的功能限制，不能实现比较复杂的控制。

而第二种就是全自动的，并且可以实现比较复杂控制，但是需要建这么一个存储过程。

 孰优孰劣，还需要根据实际需求自行斟酌。