如何利用DBMS_SQL包和游标计算当前用户下所有表的行数？

系统环境：

1、操作系统：Windows 2000，机器内存128M

2、数据库：　Oracle 8i R2 (8.1.6) for NT 企业版

3、安装路径：C:\ORACLE

实现方法：

SQL> conn scott/tiger

SQL> set serveroutput on size 1000000

SQL>

SQL> DECLARE

 2    t_c1_tname      user_tables.table_name%TYPE;

 3    t_command       varchar2(200);

 4    t_cid           integer;

 5    t_total_records number(10);

 6    stat            integer;

 7    row_count       integer;

 8    t_limit         integer := 0;                                        --限制只取出记录大于0的表的情况

 9    cursor c1 is select table_name from user_tables order by table_name;        --查出所有表的名字

10  BEGIN

11    t_limit := 0;

12    open c1;

13    loop

14          fetch c1 into t_c1_tname;                        --取出一个表名

15          exit when c1%NOTFOUND;                        --如果游标记录取完，退出循环

16          t_command := 'SELECT COUNT(0) FROM '||t_c1_tname;        --定义SQL命令

17          t_cid := DBMS_SQL.OPEN_CURSOR;                --创建一个游标

18          DBMS_SQL.PARSE(t_cid,t_command,dbms_sql.native);        --向服务器发出一个语句并检查这个语句的语法和语义错误

19          DBMS_SQL.DEFINE_COLUMN(t_cid,1,t_total_records);        --定义将从FetchRows()函数接收数据的变量的数据类型与大小

20          stat := DBMS_SQL.EXECUTE(t_cid);                --执行此语句，因为执行的是查询，所以必须跟着Fetch_Rows函数并为单个行检索数据

21          row_count := DBMS_SQL.FETCH_ROWS(t_cid);        --取回一行数据放入局部缓冲区

22          DBMS_SQL.COLUMN_VALUE(t_cid,1,t_total_records);        --返回调用FetchRows()取回的一列的值，这一列的值存储在t_total_records中

23          if t_total_records > t_limit then

24                  DBMS_OUTPUT.PUT_LINE(rpad(t_c1_tname,55,' ')||

25                          to_char(t_total_records,'99999999')||' record(s)');

26  

27          end if;

28          DBMS_SQL.CLOSE_CURSOR(t_cid);

29    end loop;

30    close c1;

31  END;

32  /

DEPT                                                           4 record(s)

EMP                                                           14 record(s)

SALGRADE                                                       5 record(s)

PL/SQL 过程已成功完成。

【最后更新： 06/03/2002 09:37:46 】