查看用户下的那些表有数据！

Question

取用户下表中所有包含数据的表的行数。16:06:03 SQL> create or replace procedure p_rowcount 
16:06:26   2  as
16:06:26   3  v_count number:=0;
16:06:26   4  cursor c_user_tb is select table_name from user_tables;
16:06:26   5  begin
16:06:26   6  for v_cur in c_user_tb loop
16:06:26   7    execute immediate 'select count(1) from '||v_cur.table_name into v_count;
16:06:26   8    if v_count>0 then 
16:06:26   9      dbms_output.put_line('Table Name:'||v_cur.table_name||' Rowcount:'||v_count);
16:06:26  10    end if;
16:06:26  11  end loop;
16:06:26  12  end p_rowcount;
16:06:26  13  /过程已创建。已用时间:  00: 00: 00.37
16:06:36 SQL> set serveroutput on
16:06:46 SQL> exec p_rowcount;
Table Name:AAA Rowcount:4
Table Name:BBB Rowcount:6
Table Name:INTERFACE Rowcount:8
Table Name:T Rowcount:13
Table Name:T1 Rowcount:11
Table Name:TABLE01 Rowcount:3
Table Name:TABLE1 Rowcount:4
Table Name:TABLE2 Rowcount:5
Table Name:TABLE3 Rowcount:3
Table Name:TB Rowcount:10
Table Name:TB0 Rowcount:5
Table Name:TBDEMO Rowcount:6
Table Name:TBTEMP Rowcount:3
Table Name:TB_1 Rowcount:4
Table Name:TB_CP Rowcount:4
Table Name:TDATE Rowcount:5
Table Name:TDEMO Rowcount:11
Table Name:TEST Rowcount:3
Table Name:TR Rowcount:6
Table Name:TRE Rowcount:7
Table Name:TT Rowcount:3
Table Name:TTREE Rowcount:8
Table Name:TTT Rowcount:2
Table Name:T_CLOB Rowcount:1
Table Name:T_IP Rowcount:3
Table Name:V_TB Rowcount:19PL/SQL 过程已成功完成。已用时间:  00: 00: 00.03
16:06:49 SQL>