Oracle基本PLSQL的使⽤实例详解
Oracle基本PLSQL的使⽤实例详解
PL/SQL 块是在 SQL 语⾔之上发展起来的⼀种应⽤，可以集中的处理各种复杂的 SQL 操作。
组成：
DECLARE：声明部分
BEGIN
编写主题
EXCEPTION 捕获异常
END;
1.⼀个简单的PL/SQL块
DECLARE
i number;
BEGIN
I:=30;
DBMS_OUTPUT.put_line('I的内容为:'||i);
END;
此时，直接执⾏程序即可。
执⾏之后发现没有任何的输出。因为 Oracle 在系统设置中默认设置了输出不显⽰，如果要显⽰的话，输⼊以下命令：
set serveroutput on；如果是使⽤Toad，则可以在Desktop中选择PLSQL，并打开DBMS OUTPUT。
带异常的语句块
DECLARE
i number;
BEGIN
i:=1/0;
EXCEPTION
when ZERO_DIVIDE then
DBMS_OUTPUT.put_line("There is a Exception");
END;
注意：输出字符串应该使⽤单引号''。
2.PL/SQL块还可以接收⽤户的输⼊信息，例如：现在要求⽤户输⼊⼀个雇员编号，之后根据输⼊的内容进⾏查询，查询雇员的姓名。
⽤户的输⼊信息使⽤“&”完成
DECLARE
eno number;
en varchar(20);
BEGIN
--输⼊的信息保存在eno⾥
eno:=&no;
--之后根据eno的值，对数据库进⾏查询操作。
select ename into en from emp where empno = eno;
DBMS_OUTPUT.put_line('编号为:'||eno||'雇员的姓名为:'||en);
EXCEPTION
WHEN no_data_found THEN
DBMS_OUTPUT.put_line('没有此雇员');
END;
3.在以上的查询中再进⼀步：可以根据雇员的编号查出姓名及其领导的姓名和所在的部门，进⾏显⽰。
DECLARE
pno%TYPE ;
ame%TYPE ;
ame%TYPE ;
dn dept.dname%TYPE ;
dept dept %rowtype ;
BEGIN
-- 输⼊的信息保存在 eno ⾥
eno := &no ;
-- 之后根据 eno 的值，对数据库进⾏查询操作
ame,d.dname INTO en,mn,dn
FROM emp e,dept d,emp m
pno=7369 =m.empno AND e.deptno=d.deptno ;
DBMS_OUTPUT.put_line('编号为：'||eno||'雇员的姓名为：'||en) ;
DBMS_OUTPUT.put_line('编号为：'||eno||'雇员的上级姓名为：'||mn) ;
DBMS_OUTPUT.put_line('编号为：'||eno||'雇员所在的部门：'||dn) ;
DBMS_OUTPUT.put_line(dept.deptno) ;
EXCEPTION
WHEN no_data_found THEN
DBMS_OUTPUT.put_line('没有此雇员') ;
END ;
说明：
• no_data_found ⼀种异常类型：没有发现数据
• pno%TYPE ; ：表⽰以 emp 表中的 empno 字段的类型定义变量• e.ame,d.dname INTO en,mn,dn：⼀次可以同时放进去多个值dept dept %rowtype ;  表⽰ dept 是⼀⾏数据
PL/SQL 之中也包含了：循环、分⽀等条件控制语句
4.Loop 循环（类似do…while）
格式：
LOOP
循环的语句 ;
EXIT WHEN 终⽌条件 ;
循环条件必须更改 ; END LOOP ;
例如：循环输出 1~10。
DECLARE
countNum NUMBER ;
BEGIN
--必须赋初值
countNum := 1 ;
LOOP
DBMS_OUTPUT.put_line('countNum = '||countNum) ;
EXIT WHEN countNum>10 ;
countNum := countNum + 1 ;
END LOOP ;
END ;
注意：count关键字只能在sql语句中使⽤
此循环是先执⾏⼀次之后再进⾏判断，执⾏结果到11结束循环
5.while 循环
格式：
WHILE(判断循环的条件)
LOOP 循环的语句 ;
循环条件的改变 ;
END LOOP ;
使⽤此语句修改上⾯的程序：
DECLARE
countNum NUMBER ;
BEGIN
--必须赋初值
countNum := 1 ;
WHILE(countNum<10)
LOOP
DBMS_OUTPUT.put_line('countNum = '||countNum) ;
countNum := countNum + 1 ;
END LOOP ;
END ;
sqldeveloper安装步骤此语句，是先判断，如果满⾜条件则继续执⾏循环体，执⾏结果到9结束循环6.for 循环
格式：
FOR 变量名称 in 变量的初始值..结束值
LOOP
循环语句 ;
END LOOP ;
修改上例：
DECLARE
countNum NUMBER ;
BEGIN
FOR countNum IN 1..10
LOOP
DBMS_OUTPUT.put_line('countNum = '||countNum) ;
END LOOP ;
END ;
此语句countNum⼤于等于1⼩于等于10，最后输出1-10 7.if语句
条件判断
格式：
IF 条件 THEN
满⾜条件时，执⾏此语句
END IF ;
例：
DECLARE
countNum NUMBER ;
BEGIN
countNum := 11 ;
IF countNum>10 THEN
DBMS_OUTPUT.put_line('countNum = '||countNum) ;
END IF ;
END ;
条件语句，满⾜条件，执⾏⼀次
8.IF…ELSE 语句
如果 IF 满⾜了，则执⾏，否则执⾏ ELSE
例：
DECLARE
countNum NUMBER ;
BEGIN
countNum := 1 ;
IF countNum>10 THEN
DBMS_OUTPUT.put_line('countNum = '||countNum) ;
ELSE
DBMS_OUTPUT.put_line('条件不不成⽴') ;
END IF ;
END ;
条件不满⾜执⾏else后⾯的语句
9.if…elsif…else 语句
例：
DECLARE
countNum NUMBER ;
BEGIN
countNum := 1 ;
IF countNum>10 THEN
DBMS_OUTPUT.put_line('countNum = '||countNum);
ELSIF countNum<5 THEN
DBMS_OUTPUT.put_line('值⼩于 5');
ELSE
DBMS_OUTPUT.put_line('条件不满⾜');
END IF ;
END ;
多重判断语句，满⾜条件执⾏对应的跳转
<语句
⽆条件跳转语句
⽤于程序控制⾮条件跳⾄指定标签<<>>。不易控制和维护，慎⽤！DECLARE
pno%TYPE ;
sal emp.sal%TYPE ;
BEGIN
eno := &en ;
SELECT sal INTO sal FROM emp WHERE empno=eno ;
IF sal>3500 THEN
goto po1 ;
ELSIF sal>2000 THEN
goto po2 ;
ELSE
goto po3 ;
END IF;
--标签
<<po1>> DBMS_OUTPUT.put_line('⾼⼯资。。。') ;
<<po2>> DBMS_OUTPUT.put_line('中等⼯资。。') ;
<<po3>> DBMS_OUTPUT.put_line('低⼯资。。。') ;
END;
感谢阅读，希望能帮助到⼤家，谢谢⼤家对本站的⽀持！