统计Oracle当前用户下所有表中的记录数

create or replace procedure tj_data is  
  -- 当前存储过程用到的变量
  v_tableName VARCHAR2(100);
  v_sql  varchar2(200);
  v_count integer;
  -- 获取当前数据库中的所有表
  CURSOR TABLE_LOOP IS SELECT Table_name FROM User_tables;

  BEGIN
    -- 打开游标
    OPEN TABLE_LOOP;
      LOOP
        FETCH TABLE_LOOP INTO v_tableName;
          EXIT WHEN TABLE_LOOP %NOTFOUND;
              v_sql:= 'select count(1) from '||v_tableName;
              execute immediate v_sql into v_count;
              dbms_output.put_line(v_tableName||':'||v_count);
      END LOOP;
    CLOSE TABLE_LOOP;
end tj_data;

使用pl/Sql运行该存储过程，在DBMS Output窗口下可看到统计结果。（把Buffer size值适当调大一点）