oracle 学习笔记 - PL/SQL基本语法

　　PL/SQL是oracle对SQL语言的过程化扩展，添加了过程化语句（如：分支，循环），使得SQL具有过程处理能力。

开启输出功能

SQL> set serveroutput on

基本语法

declare
    -- 声明部分 (变量说明、游标说明、异常说明)    
begin
    --语句部分 （DML语句）
exception
    --例外处理语句
end;

以hello word为例。

declare
  --说明部分
begin
  --程序
  dbms_output.put_line('Hello World');
end;

-- 结果  
hello word

PL/SQL 过程已成功完成。

变量和常量

说明变量 （char,varchar2,date,number,boolean,long）

例如：

var1 char(15);  #说明变量名，数据类型和长度，并以分号结束

married boolean := true;    #赋值的一种写法

psal number(7,2);

name emp.ename%tyoe;    #引用型变量，和empty表中的ename列的类型一样。

rec emp%rowtype;    #记录型变量，类似数组。
rec.ename:='abc';

记录型变量的使用。

-- 查询并打印7839的姓名和薪水
declare 
  -- 定义记录型变量：代表一行
  emp_rec emp%rowtype;
begin
  select * into emp_rec from emp where empno=7839;  

  dbms_output.put_line(emp_rec.ename||'的薪水是'||emp_rec.sal);  
end;

if语句

if 条件 then 语句1；

    语句2；

end if;

if 条件 then 语句1;

    else 语句2;

end if;

if 条件 then 语句1;

    elsif 语句2;

    else 语句3;

end if;

– 判断用户从键盘输入的数字

--接受键盘输入
--num: 地址值，在该地址上保存了输入的值
accept num prompt '请输入一个数字:';

declare 
  -- 定义变量保存数字
  pnum number := # # 得到键盘上的输入值
begin
  if pnum = 0 then dbms_output.put_line('您输入的是0');
     elsif pnum = 1 then dbms_output.put_line('您输入的是1');
     elsif pnum = 2 then dbms_output.put_line('您输入的是2');
     else dbms_output.put_line('其他数字');
  end if;
end;

循环

when toal<=100
loop 
    ...
    total:=total+salary;
end loop;

loop
    exit [when 条件]
    ...
end log

for i int 1..3
loop
    语句;
end loop;

简单的例子，输出1-10。

declare 
  pnum number := 1;
begin
  loop
       --循环
       --退出条件
       exit when pnum > 10;

       dbms_output.put_line(pnum);
       --加一
       pnum := pnum + 1;
  end loop;
end;

exception

这里的when相当于java里面的catch { } 花括号内可以写多条语句；

系统异常

-- 被0除
declare 
  pnum number;
begin
  pnum := 1/0; 

exception
  when zero_divide then dbms_output.put_line('1:0不能做分母');
                        dbms_output.put_line('2:0不能做分母');
  when value_error then dbms_output.put_line('算术或者转换错误');
  when others then dbms_output.put_line('其他例外');
end;

自定义异常

-- 查询50号部门的员工姓名
declare 
  --定义光标：代表50号部门的员工
  cursor cemp is select ename from emp where deptno=50;
  pename emp.ename%type;

  --自定义例外
  no_emp_found exception;
begin
  open cemp;

  --取第一条记录
  fetch cemp into pename;

  if cemp%notfound then