5.10.txt

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

DECLARE
  CURSOR emp_cursor IS SELECT employeename,sal
  FROM employee where departmentno='008';
  v_ename employee.employeename%TYPE;
  v_sal   employee.sal%TYPE;
BEGIN
  OPEN emp_cursor;
  LOOP
    FETCH emp_cursor INTO v_ename,v_sal;
    EXIT WHEN emp_cursor%NOTFOUND;
    dbms_output.put_line(v_ename||':'||v_sal);
  END LOOP;
  CLOSE emp_cursor;
END;
/