统计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值适当调大一点）