實(shí)現(xiàn)方法：

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;--取出一個(gè)表名

15 exit when c1%NOTFOUND;--如果游標(biāo)記錄取完，退出循環(huán)

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

17 t_cid := DBMS_SQL.OPEN_CURSOR;--創(chuàng)建一個(gè)游標(biāo)

18 DBMS_SQL.PARSE(t_cid,t_command,dbms_sql.native);--向服務(wù)器發(fā)出一個(gè)語句并檢查這個(gè)語句的語法和語義錯(cuò)誤

19 DBMS_SQL.DEFINE_COLUMN(t_cid,1,t_total_records);--定義將從FetchRows()函數(shù)接收數(shù)據(jù)的變量的數(shù)據(jù)類型與大小

20 stat := DBMS_SQL.EXECUTE(t_cid);--執(zhí)行此語句，因?yàn)閳?zhí)行的是查詢，所以必須跟著Fetch_Rows函數(shù)并為單個(gè)行檢索數(shù)據(jù)

21 row_count := DBMS_SQL.FETCH_ROWS(t_cid);--取回一行數(shù)據(jù)放入局部緩沖區(qū)

22 DBMS_SQL.COLUMN_VALUE(t_cid,1,t_total_records);--返回調(diào)用FetchRows()取回的一列的值，這一列的值存儲(chǔ)在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 過程已成功完成。

總結(jié)

以上是生活随笔為你收集整理的oracle中sql行数的计算,Oracle技术网—如何利用DBMS_SQL包和游标计算当前用户下所有表的行数...的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。