cursorfetch.sql

来自「Oracle 9i中文版基础培训教程」· SQL 代码 · 共 14 行

set serveroutput on
declare
  tempsal scott.emp.sal%type;
  cursor mycursor is
     select * from scott.emp
     where sal>tempsal;
  cursorrecord mycursor%rowtype;
begin
   tempsal:=800;
   open mycursor;
   fetch mycursor into cursorrecord;
   dbms_output.put_line(to_char(cursorrecord.deptno));
end;