小小编
简单的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;
