5.12.txt

来自「delphi renyuanguanlixinxioxitong」· 文本 代码 · 共 15 行

DECLARE
  CURSOR emp_cursor IS SELECT employeename 
  FROM employee WHERE departmentno='008';
  TYPE ename_table_type 
    IS TABLE OF VARCHAR2(10);--声明索引表类型ename_table_type
  ename_table ename_table_type;
BEGIN
  IF NOT emp_cursor%ISOPEN THEN
    OPEN emp_cursor;
  END IF;
  FETCH emp_cursor BULK COLLECT INTO ename_table;
  dbms_output.put_line('提取的总计行数：'||emp_cursor%ROWCOUNT);--显示总数
  CLOSE emp_cursor;
END;