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

set serverout onset serveroutput on size 1000000declarev_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;