前言

我们以下的所有操作均在PL/Sql Developer工具上完成:

我们以下的表操作可能会基于以下两张表:

我们创建一个员工表和部门表:

员工信息表

create table EMP(
    EMPNO NUMBER,
    ENAME VARCHAR2(10),
    JOB VARCHAR2(9),
    MGR NUMBER,
    HIREDATE DATE,
    SAL BINARY_DOUBLE,
    COMM BINARY_DOUBLE,
    DEPTNO NUMBER
);

其中job是职位，mgr是该员工的上司的id，sal是工资，comm是提成，deptno是所属部门。

SQL> select * from emp;

          EMPNO ENAME                JOB                            MGR HIREDATE         SAL  COMM          DEPTNO

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

           1110 张三                 主管                          1110 12-3月 -14      5200     0          20

           1111 李四                 销售                          1116 03-11月-15      3400   500          30

           1112 王五                 销售                          1116 25-4月 -12      4400   800          30

           1113 赵二                 后勤                          1110 30-5月 -11      3450     0          40

           1114 李磊磊               会计                          1110 22-12月-15      2500     0          50

           1115 张少丽               销售                          1110 11-3月 -16      2400  1400          30

           1116 林建国               主管                          1116 22-1月 -16      5700     0          20

           1117 马富邦               后勤                          1116 22-7月 -13      2800     0          40

           1118 沈倩                 会计                          1116 06-5月 -10      2100     0          50

部门表

create table dept(
    DEPTNO NUMBER,
    DNAME VARCHAR2(50)
);

SQL> select * from dept t;

DEPTNO    DNAME

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

20        管理部门

30        销售部门

40        后勤部门

50        金融部门

(1)光标

①光标基础

光标(Cursor)其实就等同于Java中的ResultSet，是一个结果集。

它用来存储一个查询返回的多行数据。

语法:

cursor 光标名 [(参数名 数据类型[,参数名 数据类型]...)]

  is select 语句;

光标的属性:

%isopen 是否被打开

%rowcount 行数

%notfound 是否有值

例如:

cursor cl is select ename from emp;

cl中就有emp中的所有ename字段的数据。

打开光标: open c1;(打开光标执行查询)

取一行光标的值:fetch c1 into pjob;(取一行到变量中)

关闭光标:close c1;(关闭光标释放资源)

注意:

上面的pjob必须与emp表中的job列类型一致:

定义: pjob emp.empjob%type;

演示:

使用光标查询员工姓名和工资，并打印

set serveroutput on

declare
  --光标
  cursor cemp is select ename,sal from emp;
  pename emp.ename%type;
  psal emp.sal%type;
begin
  open cemp;
  loop
    --从集合中取值
    fetch cemp into pename,psal;
    exit when cemp%notfound;
    dbms_output.put_line(pename||'的工资为'||psal);
  end loop;
  close cemp;
end;
/

结果:

不使用光标的话的方法为:

declare
  employee emp%rowtype;
begin
  for employee in (select * from emp)
  loop
    dbms_output.put_line(employee.ename||'的工资为'||employee.sal);
  end loop;
end;
/

结果:

②示例操作

接下来我们来看一个例子:

我们这里要求给员工涨工资，主管1000元，会计800元，其它400元。

也就是根据员工的职位，执行相应的update语句来给其涨工资。

先不用PLSQL来写，我们用大家熟悉的Java来解决这个问题。

这里肯定是使用JDBC连接数据数，然后拿到Connection对象，请求数据库，

得到一个结果集，给结果集按照职位设置涨工资参数，示例伪代码如下:

ResultSet rs = "select empno,job from emp";
while(rs.next()){
    int eno = rs.getInt("empno");
    String job =  rs.getString("job");
    if(job.equels("主管")){
        update emp set sal=sal+1000 where empno=eno;
    } else if(job.equels("销售")){
        update emp set sal=sal+800 where empno=eno;
    }else{
        update emp set sal=sal+400 where empno=eno;
    }
}

使用PLSQL可以解决JDBC能解决的问题。

我们使用PLSQL来解决这个问题，结构和这个差不多，但是语法不一样。

但是我们把SQL语言的数据操纵能力与过程语言的数据处理能力结合起来，使

得PLSQL面向过程但又比过程语言简单、高效、灵活和实用。

我们使用PLSQL来实现这个例子:

首先注意，oracle默认一次性只能开启300个光标，我们可以通过

“show parameters cursor”指令来查看光标目前的设置信息:

使用Command窗口:

光标的开启数是可以调整的，但是现在我们的数据不到300，所以调整方法

等下一个总结我们再介绍。

编写PLSQL程序:

declare
  --光标代表员工
  cursor cemp is select empno,job from emp;
  pempno emp.empno%type;
  pjob emp.empjob%type;
begin
  open cemp;
  loop
    fetch cemp into pempno,pjob;
    exit when cemp%notfound;
    --判断
    if pjob='主管' then update emp set sal=sal+1000 where empno=pempno;
      elsif pjob='销售' then update emp set sal=sal+800 where empno=pempno;
      else update emp set sal=sal+400 where empno=pempno;
    end if;
  end loop;
  close cemp;
  dbms_output.put_line('完成');
end;
/

执行程序之前:

执行程序并commit之后，结果:

③带参数的光标

我们来查询某个部门的员工姓名

declare
  cursor cemp(pdno number) is select ename from emp where deptno=pdno;
  pename emp.ename%type;
begin
  open cemp(20);
  loop
    fetch cemp into pename;
    exit when cemp%notfound;
    dbms_output.put_line(pename);
  end loop;
end;
/

查询的是部门为20的所有员工的姓名，结果:

(2)例外

例外是程序设计语言提供的一种功能，用来增强程序的健壮性和容错性。

其实类似于Java的Exception。

Oracle的异常处理

A.系统定义的例外

--No_data_found(没有找到数据)

--Too_many_rows(select...into语句匹配多个行)

--Zero_Divide(被零除)

--Value_error(算术或转换错误)

--Timeout_on_resource(在等待资源时发生超时)

B.用户定义的例外

用户自己去定义的自定义例外。

例子：测试“被零除”的例外

declare
  pnum number;
begin
  pnum:=1/0;
exception
  when Zero_Divide then dbms_output.put_line('1:0不能做被除数！');
  when Value_error then dbms_output.put_line('2:算术或转换错误！');
  when others then dbms_output.put_line('3:其它错误！');
end;
/

结果:

用户自定义的例外，其实就是用户定义的一个变量

如

查询100号部门的员工姓名(100号部门是不存在的)

declare
  pename emp.ename%type;
  No_emp_found exception;  --自定义例外
  cursor cemp is select ename from emp where deptno=100;
begin
  open cemp;
  fetch cemp into pename;
  if cemp%notfound then
     raise No_emp_found;  --抛出自定义异常
  end if;
  close cemp;
exception
    when No_emp_found then dbms_output.put_line('1:没有找到员工！');
    when others then dbms_output.put_line('2:其它错误！');
end;
/

结果:

由于我们在close cemp;之前就raise了一个异常，oracle在抛出异常之后，就会

找没有关闭的光标，然后自动关闭掉。但有时候在复杂环境下，自动关闭往往是

不保险的，所以这里我们要自己手动关闭光标。

我们在exception的判断中，可以判断一下光标是否关闭，如果没有关闭就关闭它。

if cemp%isopen then
  close cemp;
endif;

​​​