5.19.txt

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

DECLARE
  TYPE emp_cursor_type IS REF CURSOR; --声明游标类型
   emp_cursor emp_cursor_type; --声明游标变量
  emp_record employee%ROWTYPE;
BEGIN
  OPEN emp_cursor FOR SELECT * FROM employee
  WHERE  departmentno='008'; --打开游标变量
  LOOP
   FETCH emp_cursor INTO emp_record;--提取数据
   EXIT WHEN emp_cursor%NOTFOUND;
   dbms_output.put_line('员工名：'||emp_record.employeename);
   END LOOP;
  CLOSE emp_cursor;--关闭游标变量
END;