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

本文转自pimg200551CTO博客，原文链接： http://blog.51cto.com/pimg2005/880492，如需转载请自行联系原作者