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

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;