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

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; 

感谢阅读,希望能帮助到大家,谢谢大家对本站的支持!

(0)
上一篇 2022年3月21日
下一篇 2022年3月21日

相关推荐