第三节、PL/SQL编程

[declare]
 　　--声明部分：声明用到的变量、类型、游标，以及局部的存储过程和函数
begin
    --执行部分：过程sql语句
[exception]
　　--执行异常部分
end;
执行部分不能省略

if  <表达式> then
    --执行部分
end if;

if  <表达式> then
    --执行部分
elsif <表达式> then
    --执行部分
end if;

case  
    when <表达式1> then
        --
    when <表达式2> then
       --
    [else]
end;

case  <表达式>
    when <表达式结果1> then
        --
    when <表达式结果2> then
       --
    [else]
end;

--循环
loop
    --执行的语句
exit when <条件语句> --满足条件退出循环
end loop;

for 循环计数器  in  【reverse】 下限 ... 上限 loop
    --
end loop;
--例子：
1. for in loop形式

　　DECLARE
   　　CURSOR c_sal IS SELECT employee_id, first_name || last_name ename, salary
   　　FROM employees ;
　　BEGIN
   　　--隐含打开游标
   　　FOR v_sal IN c_sal LOOP
  　　 --隐含执行一个FETCH语句
      　　DBMS_OUTPUT.PUT_LINE(to_char(v_sal.employee_id)||‘---‘|| v_sal.ename||‘---‘||to_char(v_sal.salary)) ;
   　　--隐含监测c_sal%NOTFOUND
   　　END LOOP;
　　--隐含关闭游标
　　END;

2.普通的游标循环

　　declare
  --定义游标并且赋值(is 不能和cursor分开使用)
  cursor stus_cur is select * from students;
  --定义rowtype
  cur_stu students%rowtype;
  /*开始执行*/
  begin
  --开启游标
  open stus_cur;
   --loop循环
   loop
   --循环条件
   exit when stus_cur%notfound;
   --游标值赋值到rowtype
   fetch stus_cur into cur_stu;
   --输出
   dbms_output.put_line(cur_stu.name);
   --结束循环
   end loop;
  --关闭游标
  close stus_cur;
  /*结束执行*/
 end;
3.高效的游标循环
　　declare
　　cursor myemp_cur
　　is select * from myemp;
　　type myemp_tab is table of myemp%rowtype;
　　myemp_rd myemp_tab;
　　begin
　　 open myemp_cur;
　　 loop
　　 fetch myemp_cur bulk collect into myemp_rd limit 20;
　　 for i in 1..myemp_rd.count loop
　　  dbms_output.put_line(‘姓名：‘||myemp_rd(i).ename);
　　 end loop;
　　 exit when myemp_cur%notfound;
　　 end loop;
　　end;

--goto、null的使用
decllare
    v_counter number :=1;
begin
loop 
    dbms_output.put_line(v_counter);
    v_conuter := v_counter +1;
    if v_conuter >10 then
            goto labeloffloop;--跳转到标签为lableoffloop的行
    else
        null;--为了使语法变得有意义
    end if;
end loop;
<<labeloffloop>>
    dbms_output.put_line(v_counter);
end;

declare
    v_name emp.name%type;
    e_name_null exception;
begin
    if v_name is null then
        raise e_name_null;
    end if;
exception
    when e_name_null then 
        dbms_output.line (‘名字不能为空‘）;
end;
--注：raise_application_error存储过程，可以重新定义异常错误消息
--raise_application_error(error_number,error_message);