PL/SQL笔记

plsql :procedure language
sql :structure query language
 
以下为一个简单的plsql：

declare
              v_i number := 0   注：赋值符号为：= 或default
              v_name varchar2(10) default 'a'
begin 
              insert into t  values(v_i,v_name)
              commit
end

条件语句：
1.  if  .... then
              .....;
       else
              ......;
       end    if ;
示例：
DECLARE
    a number;
    b varchar2(10);
BEGIN
    a:=2;
    if a = 1 then
     b:='i am a';
    elsif a =2 then
     b:='i am b';
    else
      b:='i am c';
     end if ;
     dbms_output.put_line('b的值为：'||b)；
END;

2. case
    ...
    end case
示例：
DECLARE
    a number;
    b varchar2(10);
BEGIN
    a:=2;
    case
         when a=1 then b:='A';
          when a=2 then b:='B';
          when a=3  then b:='C';
      else
           b:='others';
     end case ;
     dbms_output.put_line('b的值为：'||b)；
END;

三种循环方式：
 1、基本循环：
        loop
       end loop
示例：
DECLARE
    x number;
BEGIN
    x:=0;
   loop
            x:=x+1;
       if x>=3 then
            exit;
       end if ;
          dbms_output.put_line('内：x='||x);
    end loop;
          dbms_output.put_line('外：x='||x);
END;

示例2：
DECLARE
    x number;
BEGIN
    x:=0;
   loop
            x:=x+1;
       exit when x>=3
          dbms_output.put_line('内：x='||x);
    end loop;
          dbms_output.put_line('外：x='||x);
END;

2、while   条件  loop
         ...
          end loop;
示例：
DECLARE
    x number;
BEGIN
    x:=0;
   while x<=3
   loop
     x:=x+1;  
          dbms_output.put_line('内：x='||x);
    end loop;
          dbms_output.put_line('外：x='||x);
END;
     
3、for 循环
示例：
BEGIN
           for  i IN reverse 1 .. 5   (从大到小递增reverse，默认为从小到大)
     loop       
           dbms_output.put_line('i='||i);
     end loop;
           dbms_output.put_line('end of for loop');
END;

SQL/PLS异常处理：
EXCEPTION  + 系统、自定义异常
示例：
DECLARE
    tname varchar2(10);
    e exception ;
BEGIN
     select dname INTO tname from dept where deptno='10';
if tname<>'B部门'  then
RAISE e;
END IF;
      DBMS_OUTPUT.PUT_LINE(tname);
EXCEPTION
WHEN e THEN
DBMS_OUTPUT.PUT_LINE('错误，不是需要的B部门')；
END;

复合变量定义：
示例1：
DECLARE
      type myrecord IS RECORD(
          id varchar2(10),
           name varchar2(10)
           );
       real_record myrecord;
BEGIN
       select empno,ename INTO read_record FROM　emp where empno = 001;
       DBMS_OUTPUT.PUT_LINE(real_record.id||','||real_record.name)
;
END;

示例2：指定定义的变量类型与原表一样
DECLARE
      type myrecord IS RECORD(
          id varchar2(10),
           name emp.ename%type  申明与对应表的字段一样
           );
       real_record myrecord;
BEGIN
       select empno,ename INTO read_record FROM　emp where empno = 001;
       DBMS_OUTPUT.PUT_LINE(real_record.id||','||real_record.name)
;
END;

示例3：指定定义的的变量与整个表的字段及类型都一样ROWTYEP
DECLARE
      myrec emp%ROWTYEP
BEGIN
       select * INTO myrec FROM　emp where empno = 001;
       DBMS_OUTPUT.PUT_LINE(myrec.id||','||myrec.name);
END;

高级plsql应用：
游标(CURSOR)：
示例1,显示游标：
DECLARE
   cursor mycur is
      select * from emp;
      myrecord emp%ROWTYPE;
BEGIN
    open mycur;
          fetch mycur into myrecord;
          while mycur%FOUND
       loop
           dbms_output.putline(myrecord.empno||','||myrecord.ename);
           fetch mycur INTO myrecord;
        end loop;
     close mycur;
END;

示例2，带参数游标：
DECLARE
    cursor cur_para(id varchar2) is  参数只需给类型，不给精度
     select ename from emp where empno=id ;
    t_name emp.ename%type;
BEGIN
     open cur_para('0001');
        loop
             fitch cur_para into t_name;
             exit when cur_para%NOTFOUND;
                  dbms_output.put_line(t_name);
         end loop;
      close cur_para;
END;

示例3，带参数游标2,for 循环：
DECLARE
      cursor cur_para(id varchar2) is
       select ename from emp where empno=id;
BEGIN
        dbms_output.put_line('×××××结果集为：××××')；
for cur in cur_para('001')
       loop
       dbms_output.put_line(cur.ename);
       end loop;
END;

示例4，游标属性ISOPEN：
DECLARE
    t_name emp.ename%type;
    cursor cur(id varchar2) is
    select ename from emp where empno=id;
BEGIN
     if cur%isopen then
        dbms_output.put_line('游标已经被打开');
      else
          open cur('0003');
      end if ;
       fetch cur into t_name;
       close cur;
       dbms_output.put_line(t_name);
END;

示例5，游标属性ROWCOUNT：
DECLARE
     t_name varchar2(10);
     cursor mycur is
     select dname from dept;
BEGIN
      open mycur
       loop
       fetch mycur into t_name;
       exit when mycur%NOTFOUND or mycur%NOTFOUND is NUll;
       dbms_output.put_line ('记录数为：'||mycur%ROWCOUTN);
       end loop;
       close mycur;
END;

示例6，使用游标修改数据：
DECLARE
    cursor cur is
     select dname from dept for update;  注意更改需添加for update
     text varchar2(10);
BEGIN
      open mycur
       fetch cur into text;
        while cur%FOUND
       loop
       update dept set dname=dname||'_t' where current of cur;
       end loop;
       close cur;
END;

存储过程（procedure）：
示例1，创建一个简单的过程
CREATE or replace procedure myproc(id in varchar2)
    is
  name varchar2(10);
BEGIN
   select ename into name from emp where empno=id;
   dbms_output.put_line(name);
END　myproc;

示例2,执行一个过程,带参数的存储过程:
DECLARE
    tid varchar2(10);
BEGIN
    tid:='0001';
myproc(tid);
END;
 
或：
BEGIN
    myproc('0001');
END;

或
EXECUTE myproc('00001');

    
glogin 初始化文件：
set serveroutput on