Oracle基本PLSQL的使用

刺骨的言语ヽ痛彻心扉 2022-07-14 14:55 254阅读 0赞

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结束循环  
**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 ;

此语句，是先判断，如果满足条件则继续执行循环体，执行结果到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 ;

多重判断语句，满足条件执行对应的跳转  
**10.goto语句**  
无条件跳转语句  
用于程序控制非条件跳至指定标签<<???>>。不易控制和维护，慎用！

DECLARE
    	eno emp.empno%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;