接触 PL/SQL 第一天

接触 PL/SQL 第一天


PL/SQL是什么呢?
书上说PL/SQL是建立在标准SQL语言之上的过程性拓展
那么PL/SQL有什么好处呢?
1.提高应用程序的运行性能
2.提供模块化的程序设计功能
3.允许定义标识符
4.具有过程语言控制结构
5.具有良好的兼容性
6.处理运行错误

PL/SQL的基本单元是块(Block),PL/SQL块又由三部分组成

declare  -- 定义部分
-- 这里定义一些变量、常量、游标、复杂数据类型等
begin     --执行部分
-- 这里执行PL/SQL语句和SQL语句
exception  -- 异常部分
-- 在这里处理异常
end;  -- 这是块结束标记

其中 begin、end两部分是必须有的，declare、exception两部分可以不写

下面写两个简单的PL/SQL
只包含 begin、end两部分的PL/SQL：

set serveroutput on -- 开启控制台输出功能
begin    -- 执行模块
   dbms_output.put_line('hello,everybody');  -- 输出 hello,everybody
end;  -- 结果标记

包含四个部分的PL/SQL:

declare  -- 定义部分
   v_ename varchar2(10);
begin   -- 执行部分
   select ename into v_ename from emp where empno=&no; //输入员工号，查询该员工姓名
   dbms_output.put_line('员工名字:'||v_ename);
exception   -- 异常部分

   when NO_DATA_FOUND then
   dbms_output.put_line('员工号不存在');
end;  -- 结束标记

PL/SQL又可以分为四大类:
1.匿名块
如上面例子，没有名字的块
2.命名块
在匿名块之前加 <<name>> 就是命名块了，块与块之间是可以多层嵌套的，有了名字就好区分了
3.子程序
子程序又可以分为 过程、函数、包 三个对象
创建过程:

create or replace procedure insert_dept(no number,name varchar2)
is
begin
   insert into dept (deptno,dname) values(no,name);
end;
call insert_dept('5','财务部'); -- 调用过程

创建函数:

create or replace function select_sal_year(no number)
return number is
   sal_year(8,2);
begin
   select sal*12 into sal_year from emp where empno=no;
   return sal_year;
exception

   when NO_DATA_FOUND then
   dbms_output.put_line('员工号不存在');
end;
var sal number; -- 声明变量sal
execute :sal:=select_sal_year(3); -- 用变量接收返回值
print sal; -- 查看员工年薪

包:

create package emp_pkg
is
procedure insert_dept(no number,name varchar2);
function select_sal_year(no number) return number;
end emp_pkg;

实现包体:

create or replace package body emp_pkg 
is
  procedure update_sal(na varchar2,newsal number)
  is
  begin
    update emps set sal=newsal where ename=na;
  end;
  function sal_year(name varchar)
  return number is
    sal_year number(9,2);
  begin
    select sal*12+nvl(comm,0) into sal_year from emps
    where ename=name;
    return sal_year;
  end;
end emp_pkg;

4.触发器:
不知为何我的触发器并不能创建成功
代码贴出来

create or replace trigger update_emp
  after update of deptno on depts
  for each row
begin
  update emps set deptno=:new.deptno
  where deptno=:old.deptno;
end;

错误报告:

ORA-04089: cannot create triggers on objects owned by SYS
04089. 00000 -  "cannot create triggers on objects owned by SYS"
*Cause:    An attempt was made to create a trigger on an object owned by SYS.
*Action:   Do not create triggers on objects owned by SYS.

总结: 总体上感觉PL/SQL跟Java中的方法有点像，包又与接口有点类似