Oracle 游标

SQL> set serveroutput on; --开启客户端输出
SQL> declare --申明
  2  cursor(游标) empcur(游标名) is select empno,ename,sal from emp where deptno=20; --查询数据放到游标中
  3  t_empno emp.empno%type; --设置变量的数据类型
  4  t_ename emp.ename%type; --设置变量的数据类型
  5  t_sal emp.sal%type; --设置变量的数据类型
  6  begin --开始
  7  open empcur; --打开游标
  8  loop --循环读取游标数据
  9  fetch empcur into t_empno,t_ename,t_sal; 读取游标的数据放到变量中
10  exit when empcur%notfound; --判断游标所在行是否有效、无效推出
11  dbms_output.put_line('编号 :'||t_empno||'  姓名:'||t_ename||'  工资:'||t_sa --输出从游标中读取的数据
l);
12  end loop; --结束游标的循环读取数据
13  close empcur; --关闭游标
14  end ;
15  /
编号 :7369  姓名:SMITH  工资:800
编号 :7566  姓名:JONES  工资:2975
编号 :7788  姓名:SCOTT  工资:3000
编号 :7876  姓名:ADAMS  工资:1100
编号 :7902  姓名:FORD  工资:3000
-----------------------------------------------------------------
Rowtype变量

SQL> set serveroutput on; --开启客户端输出
SQL> declare --申明
  2  emprow emp%rowtype; --判断变量的数据类型
  3  cursor empcur is select * from emp where deptno=30; --查询数据放到游标中
  4  begin --开始
  5  open empcur; --开启游标
  6  loop
  7  fetch empcur into emprow; --读取的游标的数放到变量中
  8  exit when empcur%notfound; --判断游标所在行是否有效
  9  dbms_output.put_line('编号：'||emprow.empno||' 员工姓名：'||emprow.ename||'
工资：'||emprow.sal||' 工作：'||emprow.job); --输出游标中读取的数据
10  end loop; --结束游标的循环
11  close empcur; --关闭游标
12  end;
13   /
编号：7499 员工姓名：ALLEN 工资：1600 工作：SALESMAN
编号：7521 员工姓名：WARD 工资：1250 工作：SALESMAN
编号：7654 员工姓名：MARTIN 工资：1250 工作：SALESMAN
编号：7698 员工姓名：BLAKE 工资：2850 工作：MANAGER
编号：7844 员工姓名：TURNER 工资：1500 工作：SALESMAN
编号：7900 员工姓名：JAMES 工资：950 工作：CLERK

PL/SQL procedure successfully completed.

-----------------------------------------------------------------
带参数的游标

SQL> set serveroutput on; --开启客户端的输出
SQL> declare --申明
  2  thedeptno emp.deptno%type; --设置变量的数据类型
  3  emprow emp%rowtype; --设置变量的数据类型
  4  cursor empcur(deldeptno emp.deptno%type) is select * from emp where deptno=
deldeptno; --查询数据放到游标中
  5  begin
  6  thedeptno := & 请输入部门编号; --给变量赋值、加以一个&表示可接受一个用户输入的参数
  7  open empcur(thedeptno); --打开游标、(参数表示用户输入的)
  8  loop
  9  fetch empcur into emprow; --读取游标的数据放到变量中
10  exit when empcur%notfound; --判断游标所在行的是否有效
11  dbms_output.put_line('编号：'||emprow.empno||' 员工姓名：'||emprow.ename||' --输出从变量中的数据
工作:'||emprow.job);
12  end loop; --结束、游标的循环
13  close empcur; --关闭游标
14  end;
15  /
Enter value for 请输入部门编号: 20
old   6: thedeptno := & 请输入部门编号;
new   6: thedeptno := 20;
编号：7369 员工姓名：SMITH 工作:CLERK
编号：7566 员工姓名：JONES 工作:MANAGER
编号：7788 员工姓名：SCOTT 工作:ANALYST
编号：7876 员工姓名：ADAMS 工作:CLERK
编号：7902 员工姓名：FORD 工作:ANALYST

PL/SQL procedure successfully completed.

------------------------------------------------------------------------
循环游标修改数据
SQL> set serveroutput on; --开启客户端输出
SQL> declare --申明
  2  emprow emp%rowtype; --判断变量的数据类型上
  3  cursor empcur is select * from emp for update; --查询数据放到游标中(for update 更新数据)
  4  begin
  5  for emprow in empcur
  6  loop
  7  if emprow.deptno= 20 then
  8  dbms_output.put_line('被更改的工资 ：'||emprow.sal);
  9  update emp set sal=sal*1.2 where current of empcur;
10  end if;
11  end loop;
12  end;
13  /
被更改的工资 ：960
被更改的工资 ：3570
被更改的工资 ：3600
被更改的工资 ：1320
被更改的工资 ：3600

PL/SQL procedure successfully completed.
----------------------------------------------------------------------
s
SQL> set serveroutput on;
SQL> declare
  2  type curemptype is ref cursor;
  3  curemp_ref curemptype;
  4  command char(1);
  5  currow emp%rowtype;
  6  theename emp.ename%type;
  7  begin
  8  dbms_output.put_line('请输入操作命令：1-查询DEPTNO=30的员工姓名，2-查询JOB=
MANAGER的员工信息');
  9  command :=&命令;
10  if command='1'
11  then dbms_output.put_line('输入命令：1');
12  open curemp_ref for select ename from emp where deptno=30;
13  loop
14  fetch curemp_ref into theename;
15  exit when curemp_ref%notfound;
16  dbms_output.put_line(theename);
17  end loop;
18  close curemp_ref;
19  else
20  dbms_output.put_line('输入命令：2');
21  open curemp_ref for select * from emp where job='MANAGER';
22  loop
23  fetch curemp_ref into currow;
24  exit when curemp_ref%notfound;
25  dbms_output.put_line('工号 ：'||currow.empno||'  姓名：'||currow.ename||'
部门编号:'||currow.job);
26  end loop;
27  close curemp_ref;
28  end if;
29  end;
30  /
Enter value for 命令: 2
old   9: command :=&命令;
new   9: command :=2;
请输入操作命令：1-查询DEPTNO=30的员工姓名，2-查询JOB=MANAGER的员工信息
输入命令：2
工号 ：7566  姓名：JONES  部门编号:MANAGER
工号 ：7698  姓名：BLAKE  部门编号:MANAGER
工号 ：7782  姓名：CLARK  部门编号:MANAGER

PL/SQL procedure successfully completed.

SQL>

-------------------------------------------------------------------------------