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 
  eno emp.empno%TYPE ;  
  en emp.ename%TYPE ;  
  mn emp.ename%TYPE ;  
  dn dept.dname%TYPE ;  
  dept dept %rowtype ;  
BEGIN 
  -- 输入的信息保存在 eno 里 
  eno := &no ; 
  -- 之后根据 eno 的值，对数据库进行查询操作 
  SELECT e.ename,m.ename,d.dname INTO en,mn,dn  
  FROM emp e,dept d,emp m  
  WHERE e.empno=7369 AND e.mgr=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 一种异常类型：没有发现数据
• emp.empno%TYPE ; ：表示以 emp 表中的 empno 字段的类型定义变量
• e.ename,m.ename,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结束循环

阅读剩余部分