pl/sql程序语言

pl/sql程序基础知识:

　　pl/sql(procedural language/sql)oracle在标准sql上面的扩展,不仅简单的sql语句,还具有一般语言的特性:变量,常量,流程控制和循环,错误处理机制.是一个功能完善强大的过程化语言.

　　它的编程基本单位是块,复杂的功能都是多个块组成

　　　　我们来看看它的实列代码:

块结构:
        declear --定义部分,可选
        /*定义部分--变量,常量,游标,异常,复杂数据类型*/
        begin --执行部分
        /*pl/sql语句和SQL语句;*/
        exception --异常处理部分,风险程度.可选
        /*异常处理部分*/
        end;
        /    --和java对比

　　pl/sql写的代码段实际上保存在数据库中的数据对象,根据功能不同分为过程,函数,触发器.这些代码端口,可以直接在java程序中直接调用

　　它的目的:将程序逻辑变为数据库逻辑,降低程序端复杂度,让更好的进行模块化编程

　　它的作用:作用:提高整个程序系统的性能,让模块化编程思想更简单实现,降低网络传输量.更安全

　　当然pl/sql也有缺点:它的移植性不好

　　我们来来说说原理:

　　　　执行特定的操作过程,有参数输入(in),有结果输出(out).,他们都在内部的传递过程要借助变量,把数据传递到执行部分,输出吧结果输出到调用部分

　　它是怎么增加的呢??请看下面代码

--=案例一
create or replace procedure mypro is  --这里的命名不要和你的表名重合,ORA-04044: procedure, function, package, or type is not allowed here
begin
--执行部分
insert into c##scott.emp(empno,ename) values(‘20‘,‘donghot‘);
end;
/  --完成并执行

--注意权限不足的问题insufficient privileges:每个用默认情况下只能在自己的方案下执行PLSQL
/*注意: 1 你的数据要你的表结构匹配,(数据的个数要够,数据类型也要匹配):ORA-00947: not enough values
        2 数据和你的约束匹配
*/    

通过上面的代码我们简单的认识了添加存储过程的代码;

　　函数:用于返回特定的数据,在建立函数时,其头部必须包含return子句,在函数体内部必须包含return语句返回数据　

　　案例:

-- 创建函数实例
create or replace function myfunction1(v_ename varchar2) return
number is v_Ysal number(9,2);
begin
  select sal*12+nvl(comm,0)*12 into v_Ysal from emp where ename=v_ename;
  return v_Ysal;
end;

--PLSQL中调用函数
var v_rev number;
call myfunction1(‘SCOTT‘) into:v_rev;
print v_rev;

--java中调用函数
select myfunction1(‘SCOTT‘) from dual;
rs.getInt(1);--获取返回值

　　逻辑上组合过程和函数,有规范和包体两部分组成

　　它是怎么调用的呢:

　　　　当调用包中的过程或是函数时,在过程和函数前面需要带有包名,如果是其他方案的包,还需要包前面带方案名;

　　来看看pl/sql增加包的案例吧!!!　　

--创建包实例
--创建包规范
create or replace package mypackage1 is
procedure update_sal(name varchar2, newsal number);
function annul_income(name varchar2) return number;
end;
/
--此规范字包含了过程和函数的说明,但是没有过程和函数的实现代码.
--所以需要重新建立包体,包体用于实现规范中的过程和函数
create or replace package body mypackage1 is
procedure update_sal(name varchar2,newsal number)
is
begin
    update c##scott.emp set sal = newsal where ename=name;
end;
--函数开始
function annul_income(name varchar2)
return number is
return_salary number;
begin
    select sal*12+nvl(comm,0) into return_salary from emp where ename=name;
    return return_salary;
end;
end;
/
--调用:
--call/exec:包名.过程名(参数);
call mypackage1.update_sal(‘SCOTT‘,199);
--调用函数
var v_rev number;
call mypackage1.annul_income(‘SCOTT‘) into:v_rev;--试验是call可以,exec不行
print v_rev;

触发器:

　　触发器是一个隐含执行的存储过程,当定义触发器是,必须要指定触发的事件和触发的操作,常用的触发事件包括insert,update,delete语句,触发操作对象实际是一个pl/sql块

　　怎么创建触发器??老样子,我们主要看代码:

create sequence seq01;
create or replace trigger trig01
  after insert or delete or update on dept
begin
  if inserting then
    insert into emp(empno,ename,hiredate) values (seq01.nextval,‘insert‘, sysdate);
  elsif updating then
    insert into emp(empno,ename,hiredate) values (seq01.nextval,‘update‘, sysdate);
  elsif deleting then
    insert into emp(empno,ename,hiredate) values (seq01.nextval,‘delete‘, sysdate);
  end if;
end;

　　标量类型:

　　　　标量类型的定义方式:　　　　

定义一个变长字符串
    v_name varchar(10);
定义一个小数,切默认值是3.14
    v_sal2 number(6,2):=3.14

定义一个小数
    v_sal number(6,2);
定义一个日期类型
    v_hiredate date;

定义一个特布尔变量,不能为空,初始值为false
    v_valid boolean not null default false

　　　　如以上,下面定义代码:

--通过员工编号,显示姓名,工资,个税
--税率为0.03
declare
--声明变量
c_tax_rate number(3,2):=0.03;
--v_name varchar2(5);--有可能小于查到的数据
v_name emp.ename%type;--和数据所在列的数据类型一样; 变量名 表名.列名%type
v_sal number(7,2);
v_tax_sal number(7,2);
begin
--执行
select ename,sal into v_name,v_sal from emp where empno=&no;
--计算所得税
v_tax_sal:=v_sal*c_tax_rate;
--输出
dbms_output.put_line(‘name:‘||v_name||‘  sal:‘||v_sal||‘  tax:‘||v_tax_sal);
end;

　　符合变量类型:

　　　　数据集合变量有数组和集合;

　　　　pl/sql是干么用的??是用来保存多个值的变量,类和结构体的,如下可见....

declare
type emp_record_type is record( --定义一个数据类型(记录类型):包含3个数据,有三个数据及其类型
    name emp.ename%type,
    salary emp.sal%type,
    job emp.job%type);
    v_record emp_record_type;  --定义一个变量,数据类型是emp_record_type
begin
    select ename,sal,job into v_record from emp where empno=7788;
    dbms_output.put_line(‘ename:‘||v_record.name);
    dbms_output.put_line(‘sal:‘||v_record.salary);
     dbms_output.put_line(‘job:‘||v_record.job);
end;

　　　　sql表:相当于数组.但是plsql下标可以为负数,并且元素下标没有限制

　　参照类型:

　　　　参照变量:是指用于存放数值指针的变量.通过使用参照变量,可以使得应用程序共享相同对象,从而降低占用空间

　　　　游标变量(ref cursor)(在我们工作中是用的最多的):

　　　　　　使用游标有声明和使用,声明时不需要指定相应的select语句,但是当使用游标时,需要指定select语句,从而和selct语句绑定

　　　　　　来个案例吧!!一看便知晓;条件:编写一个块,输入部门编号,显示部门所有员工和工资

　　　　对象类型变量(ref obj_type)

　　条件语句:

　　　　if...thien

　　　　if...thien...else

　　　　if...thien...elsif...else

create or replace procedure myProcedure08(sNo number) is
--create or replace procedure myProcedure
v_job emp.job%type;
begin
select job into v_job from emp where empno=sNo;
if v_job=‘PRESIDENT‘ then
update emp set sal=sal+1000 where empno=sNo;
--elseif v_job=‘MANAGER‘ then
--else if v_job=‘MANAGER‘ then
elsif v_job=‘MANAGER‘ then
update emp set sal=sal+500 where empno=sNo;
else
update emp set sal=sal+200 where empno=sNo;
end if;
end;
/

　　循环语句:

　　　　loop

　　　　while

　　　　for

　　这里我们就不代码举列了....

　　循序控制语句:

　　　　goto:goto语句(强烈建议不用),无用

　　　　null:null语句不会执行任何语句操作,并且会直接将执行传递到下一句;增加程序的可读性;

异常:

　　来看看处理Oracle常见的异常:　　

declare
v_ename emp.ename%type;
begin
  --
  select ename into v_ename from emp where empno=&eno;
  dbms_output.put_line(‘name: ‘|| v_ename);
  exception
    when no_data_found then
      dbms_output.put_line(‘no found a‘);
  end;

例外:

　　处理与Oracle无关的例外

create or replace procedure ex_test(nu number)
is
begin
  update emp set sal=sal+1000 where empno=nu;
  end;

create or replace procedure ex_test(nu number)
is
--定义一个例外
myex exception;
begin
  update emp set sal=sal+1000 where empno=nu;
  --sql%不表示没有update
  if sql%notfound then
    raise myex; --SQL> --raise myex:触发myex
    end if;
    exception
    when myex then
      dbms_output.put_line(‘m没用用户更新‘);

  end;

　　视图就是一张虚拟表其内容由查询定义(SQL查询定义).和真的数据表一样,包含一系列带有名称的列和行数据.但是,视图并不在数据库中,以储存的数据值集形式存在啊

　　视图特性:不需要占用磁盘空间,表的区别;视图不能添加索引;使用视图可以简化复杂查询(多表联查);有更高的安全性,不同级别看不同的视图;视图本质上一张内存缓存表,所以和表不能重名

　　增加视图:create view 视图名 as select 语句 with [read only]

　　修改视图:create or replace view 视图名 as select 语句 with [read only]

　　删除视图:drop view 名字

　　oracle特有的,产生唯一的不间断的数字序列,用作表的主键

　　下面就不啰嗦了,直接上代码实现:

--oracle分页:
  select * from emp;
  select t1.*,rownum rn from (select * from emp) t1;
  select t1.*,rownum rn from (select * from emp) t1 where rownum<=10;
  --分页模版
  select * from
  (select t1.*,rownum rn from (select * from emp) t1 where rownum<=10)
   where rn>=6;

create or replace procedure Paging
(
tableName in varchar2, --查询的表的名称
rowCount out number,   --查询到的总记录数
pageSize in number,    --每页显示数
pageCount out number,  --总页码数   := rowCount/pageSize;
pageNow in number,     --当前页码数
page_cursor out PackagePaging.page_cursor --返回数据的结果集,jav边遍历然后输出到html页面中
) is
--定义变量
v_sql varchar2(1000);
--定义两个整数,用于查询时候的起始数据行和结束数据行
v_begin number:=pageSize*(pageNow-1)+1;          --起始的那个rowCount,起始那个数据的下标
v_end number:=pageSize*pageNow;                 --当前页的最后一个数据
---------------------------------------------
begin
v_sql:=‘select * from (select t1.*,rownum rn from (select * from ‘||tableName||‘) t1 where rownum<=‘||v_end||‘)  where rn>=‘||v_begin;--||‘;‘;
--v_sql:=‘select * from emp‘;
--给当前SQL语句的结果集绑定一个游标
open page_cursor for v_sql;
--------------------------------------------
--查询一共有多少个结果
v_sql := ‘select count(*) from ‘|| tableName;
--执行SQL语句,把返回的值赋值给rowCount
execute immediate v_sql into rowCount;
--计算pageCount
if mod(rowCount,pageSize)=0 then
  pageCount:=rowCount/pageSize;
else
  pageCount:=rowCount/pageSize+1;
end if;
--关闭游标
--close page_cursor;
end;

　　如下:

drop table category;

--要点一:子类的pid必须是父类等于父类的id
create table category(
id number(10) primary key,
name varchar2(50),
pid number(10),
isleaf number(1),--0 代表非叶子节点,1代表叶子节点,
clevel number(2)
);

--cherub模拟数据
--要点二:模拟数据必须满足这个二维结构
insert into category values (1, ‘book1‘,0,0,0);
insert into category values (2, ‘book2‘,1,0,1);
insert into category values (3, ‘book3‘,2,1,2);
insert into category values (4, ‘book4‘,2,0,2);
insert into category values (5, ‘book5‘,4,1,3);
insert into category values (6, ‘book6‘,1,0,1);
insert into category values (7, ‘book7‘,6,1,2);
insert into category values (8, ‘book8‘,6,1,2);
insert into category values (9, ‘book9‘,2,0,2);
insert into category values (10, ‘book10‘,9,1,3);

create or replace procedure myProCat (
v_pid category.pid%type,
v_level binary_integer

) is
cursor c is select * from category where pid = v_pid; -- 要点:每次去满足这个条件,然后再把每条条数据中id传入到自己作为pid去查得下面的数据
v_preStr varchar2(1024) :=‘‘;
begin
for i in 0..v_level loop
v_preStr := v_preStr || ‘--‘;
end loop;

--要点三:递归函数的书写和调用
--要点四:pl/sql 增强for循环的问题
for v_category in c loop --就是一个增强的for循环,v_category的结果相当于是个集合
dbms_output.put_line( v_preStr||v_category.name);
if(v_category.isleaf=0) then
myProCat(v_category.id,v_level+1);
end if;
end loop;
end;

以上就是PL/SQL的基本原理与操作