码迷,mamicode.com
首页 > 数据库 > 详细

PLSQL程序设计(Oracle)

时间:2016-06-20 10:03:19      阅读:384      评论:0      收藏:0      [点我收藏+]

标签:

Hello World

set serveroutput on;

declare
  --说明部分
  begin
  --程序
  dbms_output.put_line(Hello World);
end;
/
什么是PL/SQL?
  • PL/SQL是Oracle对sql语言的过程化扩展
  • 指在SQL命令语言中增加了过程处理语句(如分子、循环等),使SQL语言具有过程处理能力
 
把SQL语言的数据操纵能力与过程语言的数据处理能力结合起来,PLSQL面向过程但比过程语言简单、高效、灵活和实用。
 
PL/SQL程序结构
declare
       说明部分   (变量说明,光标申明,例外说明)
begin
       语句序列   (DML语句)...
exception
       例外处理语句
end/

 

变量说明(char,varchar2,date,number,boolean,long)
varl                char(15); //说明变量名,数据类型和长度后用分号结束说明语句
married         boolean :=true;
psal               number(7,2);
my_name      emp.ename%type; //引用型变量,即my_name的类型与emp表中ename列的类型一样
emp_rec        emp%rowtype; //记录型变量
 
引用型变量:
--查询7839姓名和薪水
set serveroutput on 
declare
  --定义变量保存姓名和薪水
  --pname varcher2(20);
  --psal   number;
  pname emp.ename%type;
  psal  emp.sal%type;
begin 
    --into 赋值   注意查询与赋值顺序
    select ename,sal into pname,psal from emp where empno=7839;

    --打印
    dbms_output.put_line(pname||的薪水是:||psal);
end;
/

记录型变量

--查询7839姓名和薪水
set serveroutput on 
declare
  --定义记录型变量,代表一行
  emp_rec emp%rowtype;
begin 
    select * into emp_rec from emp where empno=7839;
    --打印
    dbms_output.put_line(emp_rec.ename||的薪水是:||emp_rec.sal);
end;
/

if语句

if 条件 then 语句;
elsif 语句 then 语句;
end if
判断用户从键盘输入的数字:

 

--接收键盘输入
set serveroutput on
--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);
      else dbms_output.put_line(其他数字);
    end if;
end;
/

循环

loop
exit[when 条件]
...
end loop;
for i in 1..3
loop
语句序列;
end loop;

打印1~10

--打印1~10
set serveroutput on

declare
    pnum number :=1;
begin
  loop
      exit when pnum>10;
      SYS.dbms_output.put_line(pnum);
      --pnum 每次+1   不能使用++
      pnum := pnum + 1 ;
  end loop;
end;
/
光标(cursor)==resultset
说明光标语法:
cursor 光标[ (参数名 数据类型[,参数名 数据类型]...)]
    is select 语句 ;
 
用于存储一个查询返回的多行数据
    cursor c1 is select ename from emp ;
 
打开光标: open c1 ;(打开光标执行查询)
取一行光标的值: fetch c1 into pename;(取一行到变量中)
关闭光标:close c1;(关闭光标释放资源)
注意:上面的pename必须与emp表中的ename列类型一致;
--查询并打印员工的姓名和薪水
/*
  1、光标属性
    %isopen   %rowcount(影响的行数)
    %found    %notfound
*/
set serveroutput on

declare
  --定义光标
  cursor cemp is select ename,sal from emp;
  pename emp.ename%type;
  psal   emp.sal%type;

begin
  open cemp;
  loop
      --取一条记录
      fetch cemp into pename,psal;
      --退出条件
      exit when cemp%notfound;
      SYS.dbms_output.put_line(pename||的薪水是:||psal);
  end loop;
  close cemp;
end;
/

给员工涨薪水:总裁PRESIDENT 涨1000,经理MANAGER涨800,普通员工涨400

--给员工涨薪水:总裁PRESIDENT 涨1000,经理MANAGER涨800,普通员工涨400

set serveroutput on

declare
  cursor cemp is select empno,empjob from emp;
  pempno emp.empno%type;
  pjob   emp.empjob%type;

begin
  open cemp;
  loop
    --取出一条记录
    fetch cemp into pempno,pjob;
    exit when cemp%notfound;

    if pjob = PRESIDENT then update emp set sal = sal+1000 where empno=pempno;
      elsif pjob = MANAGER then update emp set sal = sal+800 where empno=pempno;
      else update emp set sal = sal+400 where empno=pempno;
      end if;
  end loop;
  --事务提交
  close cemp;

end;
/

查询某个部门的员工

--查找某个部门员工
set serveroutput on

declare
  --定义光标保存某个部门的员工姓名
  cursor cemp(dno number) is select ename from emp where deptno=dno;
  pname emp.ename%type;

begin
  --光标传实参部门id为10
  open cemp(10);
  loop
    fetch cemp into pname;
    exit when cemp%notfound;

    SYS.dbms_output.put_line(pname);
  end loop;
  close cemp;

end;
/
例外:
java例外机制:向上抛,不处理,最终抛给虚拟机。
 
Oracel 的异常处理
系统定义例外
no_data_found :没有找到数据
too_many_rows :select ...into语句匹配多个行
zero_divide:算术或转换错误
timeout_on_resource:在等待资源时,发生超时
 
PLSQL中应该处理所有例外
--被0除
set serveroutput on

declare
  pnum number;

begin 
  pnum :=1/0;

exception
  when zero_divide then dbms_output.put_line(0不能被整除);
  when others then dbms_output.put_line(其他例外);
end;
/

自定义例外

--查询50号部门的员工姓名

set serveroutput on

declare
  cursor cemp is select ename from emp where deptno=50;
  pname emp.ename%type;
  --自定义例外
  no_emp_found exception;

begin
  open cemp;
  fetch cemp into pname;
  if cemp%notfound then
    --抛出异常
    raise no_emp_found;
  end if;
  close cemp;

exception
  when no_emp_found then dbms_output.put_line(没有找到员工信息);
  when others then dbms_output.put_line(其他例外);
end;
/


统计每年入职的员工人数

--使用PLSQL统计每年入职的员工
/*
SQL语句:select to_char(hiredate,‘yyyy‘) from emp
--> 光标--->循环  --->退出条件,notfound

变量:1、初始值;2、如何得到?
count80 number :=0;
....
*/

set serveroutput on 

declare
  cursor cemp is select to_char(hiredate,yyyy) from emp;
  phiredate varchar2(4);
  count80 number :=0;
  count81 number :=0;
  count82 number :=0;
  count87 number :=0;

begin
  open cemp;
  loop
      --取出一个员工信息
      fetch cemp into phiredate;
      exit when cemp%notfound;
      --判断
      if phiredate=1980 then count80 := count80+1;
        elsif phiredate=1981 then count81 := count81+1;
        elsif phiredate=1982 then count81 := count82+1;
        else count87 := count87+1;
      end if;
  end loop;
  close cemp;
  --输出
  SYS.dbms_output.put_line(1980:||count80);
  SYS.dbms_output.put_line(1981:||count81);
  SYS.dbms_output.put_line(1982:||count82);
  SYS.dbms_output.put_line(1987:||count87);
end;
/

 

使用PLSQL根据部门号统计各个部门员工薪水在3000以下、3000~6000、6000以上的人数,并计算各部门工资总额。将结果存入msg表中。

 

/*
SQL语句
部门:select deptno from dept;  --> 光标
部门中员工的薪水: select sal from emp where deptno=??  --> 带参数的光标

变量:1. 初始值  2. 如何得到
每个段的人数
count1 number; count2 number; count3 number;

部门的工资总额: salTotal number;
1. select sum(sal) into salTotal from emp where deptno=??  
2. 累加
*/
set serveroutput on
declare
  --部门
  cursor cdept is select deptno from dept; 
  pdeptno dept.deptno%type;

  --部门中员工的薪水
  cursor cemp(dno number) is select sal from emp where deptno=dno;
  psal emp.sal%type;
  --每个段的人数
  count1 number; count2 number; count3 number;
  --部门的工资总额: 
  salTotal number;
begin
  open cdept;
  loop
    --取一个部门
    fetch cdept into pdeptno;
    exit when cdept%notfound;

    --初始化
    count1:=0;count2:=0;count3:=0;
    --得到部门的工资总额
    select sum(sal) into salTotal from emp where deptno=pdeptno;

    --取部门中员工的薪水
    open cemp(pdeptno);
    loop
      --取一个员工的薪水
      fetch cemp into psal;
      exit when cemp%notfound;

      --判断薪水的范围
      if psal < 3000 then count1:=count1+1;
        elsif psal>=3000 and psal<6000 then count2:=count2+1;
        else count3:=count3+1;
      end if;

    end loop;
    close cemp;

    --保存结果
    insert into msg values(pdeptno,count1,count2,count3,nvl(salTotal,0));

  end loop;
  close cdept;

  commit;
  dbms_output.put_line(完成);

end;
/

 

 
 
 
 
 

PLSQL程序设计(Oracle)

标签:

原文地址:http://www.cnblogs.com/dooor/p/5599712.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!