查询数据中所有表实际记录数

set serverout on
set serveroutput on size 1000000
declare
v_tab_name varchar2(100);
cursor empCur is select table_name from user_tables;
n_lows number;
v_sql varchar2(1000);
begin
 open empCur;
 
 loop
 fetch empCur into v_tab_name;
 v_sql:='select count(1) from '||v_tab_name;
 execute immediate v_sql into n_lows;
 exit when empCur%notfound; 
 DBMS_OUTPUT.PUT_LINE(v_tab_name||','||n_lows);
 end loop;
 commit;
 close empCur; 
end;