oracle pl/sql程序

简单的pl/sql程序

declare
begin
dbms_output.put_line('hello world');
end;

什么是PL/SQL？
pl/sql(Procedure language/SQL)
plsql是oracle对sql语言的过程化扩展
指在sql命令语方中增加了过程处理语句(如分支、循环等)，使sql语言具有过程处理能力。

PL/SQL程序结构

declare
说明部分（变量说明，光标申明，例外说明）
begin
语句序列(DML语句)...
exception
例外处理语句
end;
/

变量和常量说明

说明变量(char, varchar2, date, number, boolean, long)
例如:

a char(15);
b boolean:=true;
c number(8,2);
--myName的类型与emp表中的ename列类型一样
myName emp.ename%type;
--记录型变量
myRec emp%rowtype;

IF语句

IF 条件 THEN 语句1;
语句2;
END IF;

IF 条件 THEN 语句序列1;
ELSE 语句序列2;
END IF;

IF 条件 THEN 语句;
ELSIF 语句 THEN 语句;
ELSE 语句;
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;
/

循环语句

WHILE total<100
LOOP
...
total:=total+1;
END LOOP;

LOOP
EXIT [when 条件];
...
END LOOP;

FOR I IN 1..3
LOOP
语句序列;
END LOOP;

--输出从1-10
declare
num number(10) := 1;
begin
while num <= 10 loop
dbms_output.put_line(num);
num := num + 1;
end loop;
end;

--输出从1-10
declare
num number(10) := 1;
begin
loop
exit when num > 10;
dbms_output.put_line(num);
num := num + 1;
end loop;
end;
--输出从1-10
declare
num number(10) := 1;
begin
for num in 1 .. 10 loop
dbms_output.put_line(num);
end loop;
end;

光标(Cursor)==ResultSet
说明光标语法：

CURSOR 光标名 [(参数名 数据类型[,参数名 数据类型]...)]
IS SELECT 语句;

用于存储一个查询返回的多行数据

cursor cr is select ename from emp;

打开光标: open cr;
取一行光标值: fetch cr into pename;
关闭光标：close cr;

(*注意:pename必须与emp表中的ename类型一致。)

declare
--定义光标
cursor cr is select ename, sal from emp;
pname emp.ename%type;
psal  emp.sal%type;
begin
--打开光标
open cr;
loop
--退出条件，没有找到记录
exit when cr%notfound;
--取记录
fetch cr into pname, psal;
--打印数据
dbms_output.put_line(pname || '工资是' || psal);
end loop;
--关闭光标
close cr;
end;

带参数的光标

cursor cr(no varchar2)
is select ename,sal from emp where deptno=no;

declare
cursor cr(no number) is select ename,sal from emp where deptno=no;
pname emp.ename%type;
psal emp.sal%type;
begin
--打开光标
open cr(10);
loop
--退出条件，没有找到记录
exit when cr%notfound;
--取记录
fetch cr into pname, psal;
--打印数据
dbms_output.put_line(pname || '工资是' || psal || '涨工资' || (psal+1000));
end loop;
--关闭光标
close cr;
end;

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

1、系统定义例外
No_data_found 没有找到数据
Too_many_rows select ... into 语句匹配多个行
Zero_Divide 被零除
Value_error 算术或转换错误
Timeout_on_resource 等待资源发生超时

2、用户定义例外

在declare中定义例外
myExce exception;
在可执行语句中引起例外
raise myExce;
在Exception节处理例外
when myExce then ...

declare
cursor cr is select ename, comm from emp;
pname emp.ename%type;
pcomm emp.comm%type;
myexce exception;
begin
--打开光标
open cr;
loop
--退出条件，没有找到记录
exit when cr%notfound;
--取记录
fetch cr into pname, pcomm;
--引发例外
if pcomm is null then raise myexce;
end if;
dbms_output.put_line(pname || '的comm不是空');
end loop;
--关闭光标
close cr;
exception
--处理例外
when myexce then
dbms_output.put_line(pname || '的comm是空的');
end;