Oracle数据库中找出空表

THUNDER2

Oracle数据库中找出空表
sql代码：

1. DECLARE
   
2. v_table tabs.table_name%TYPE;
   
3. v_sql VARCHAR2(888);
   
4. v_q NUMBER;
   
5. CURSOR c1 IS
   
6. SELECT table_name tn FROM tabs;
   
7. TYPE c IS REF CURSOR;
   
8. c2 c;
   
9. BEGIN
   
10. DBMS_OUTPUT.PUT_LINE('以下为空数据表的表名:');
    
11. FOR r1 IN c1 LOOP
    
12. v_table :=r1.tn;
    
13. v_sql :='SELECT COUNT(*) q FROM '||v_table;
    
14. OPEN c2 FOR v_sql;
    
15. LOOP
    
16. FETCH c2 INTO v_q;
    
17. EXIT WHEN c2%NOTFOUND;
    
18. IF v_q=0 THEN
    
19. DBMS_OUTPUT.PUT_LINE(v_table);
    
20. END IF;
    
21. END LOOP;
    
22. CLOSE c2;
    
23. END LOOP;
    
24. EXCEPTION
    
25. WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE('Error occurred');
    
26. END;

复制代码