关闭

oracle读书笔记-----PL/SQL编程

230人阅读 评论(0) 收藏 举报
分类:

(一)之基本数据类型、程序结构   

 PL/SQL是一种高效的事物处理语言,它具有如下优点

             1、支持SQL

             2、支持面向对象的编程方法

             3、更好的性能和更高的效率

             4、编写方便

             5、与Oracle高度集成

             6、安全性好

         一、PL/SQL变量和基本数据类型

          1、PL/SQL变量的定义

          基本数据类型变量的定义方法如下:

          变量名   类型标识符  [:= ];

          如: Str  varchar2[100] := '中国';

          也可以使用关键字default来代替赋值符。

          str varchar2[100] default '中国';

          注意:赋值符合中的冒号和等号是不能分开的;

 

 

         2、基本数据类型

 

         三、PL/SQL程序的结构 

         首先看一个简单的例子:以下是一个完整的PL/SQL程序,用于求方程ax²+bx+c=0的根

[html] view plain copy
 print?
  1. declare  
  2.     a int :3;  
  3.     b int :8;  
  4.     c int :2;  
  5.     x1 number(8,2);  
  6.     x2 number(8,2);  
  7.     t number(8,2);  
  8.     error exception;  
  9. begin  
  10.   t :b**2-4*a*c;  
  11.   if t<0 then  
  12.      raise error;  
  13.   end if;  
  14.   x1 := (-b+sqrt(t)/(2*a));  
  15.   x2 := (b+sqrt(t)/(2*a));  
  16.   dbms_output.put_line('x1='||x1);  
  17.   dbms_output.put_line('x2='||x2);  
  18.  exception  
  19.    when error then dbms_output.put_line('此方程无解');  
  20. end;  

         从上面可以看出一个PL/SQL程序分为3个部分:

 

         1)、定义部分。PL/SQL程序中,所用到的常量、变量、游标等必须在这一部分中定义。                      

                 但是这个部分的变量定义不能使用逗号分隔的办法来同时声明多个变量。

                分号是每个变量声明和语句的结束符。

                如果一个PL/SQL程序中没有变量需要定义,那么这个部分是可以去掉的。

 

         2)、执行部分。这个部分是PL/SQL程序中的核心部分,包括赋值语句、对数据库的操作语句和流程控制语句等,构成 PL/SQL程序的基本块结构。

         执行部分至少有一个可执行语句。

 

         3)异常处理部分。当程序检测到错误情况时即产生异常。由exception标识的部分来处理程序过程产生的异常。

  

          所以一个PL/SQL程序的基本结构可以是以下结构:

         Declare

              定义部分

         Begin

              执行部分

         Exception

             异常处理部分

        End;

 (二)之程序流程

    一、PL/SQL程序流程控制

 

         上面的结构与其他的高级语言程序一样,就不做介绍了。

         下就条件结构和循环结构说明。

           1IF条件控制句            

             1.1 IF...THEN语句

                其语法是:

                IF  p THEN

                     基本语句段;

                END IF;

                例如:

[html] view plain copy
 print?
  1. declare   
  2.   flag1 integer :1;  
  3.   flag2 integer :2;  
  4. begin  
  5.   if flag1 < flag 2 then  
  6.     dbms_output.put_line('Flag1<flag2');  
  7.    end if;  
  8. end;  

               注意:上面的IF END IF必须成对出现

 

              1.2  IF...THEN...ELSE语句

                  该语句用于需要在两个语句段之间做出选择时。其语法如下:

                  IF  P  THEN

                       语句段1;

                  ELSE

                      语句段2;

                  EDN IF;

                  在该语句中,如果p的值为true,则执行语句段1,否则执行语句段2;实例:

[html] view plain copy
 print?
  1. declare  
  2.    flag1 integer :5;  
  3.    flag2 integer :8;  
  4. begin  
  5.   if flag1 <flag2 then  
  6.     dbms_output.put_line('flag1<flag2');  
  7.   else  
  8.     dbms_output.put_line('flag1>flag2');  
  9.   end if;  
  10. end;  

 

              1.3 IF...THEN...ELSIF语句

                    该语句用于在三个或者三个以上的语句段之间做出选择。其语法段为:

                    IF   P1  THEN

                        语句段1;

                    ELSIF P2 THEN

                        语句段2;  

                    ELSE

                       语句段3;

                   END IF;

                    实例:

[html] view plain copy
 print?
  1. declare  
  2.   grade number :98;  
  3.   results varchar2(10);  
  4. begin  
  5.   if grade >=90 then  
  6.     results :'优';  
  7.   elsif grade >= 80 then  
  8.      results :='良';  
  9.   elsif grade >=70 then  
  10.      results :='中';  
  11.   elsif grade >= 60 then  
  12.      results :='及格';  
  13.   else  
  14.     results :='差';  
  15.   end if;  
  16.   dbms_output.put_line(results);  
  17. end;  

 

             1.4 CASE选择控制

                   该语句用于控制多分支选择功能。其实 IF...THEN...ELSIF语句也可以实现这个功能,但是非常的麻烦。其语法结构为:

                   CASE E

                            WHEN e1: THEN  语句段1;

                           WHEN e2: THEN  语句段2 ;

                           WHEN e3: THEN  语句段3;

                           ....................

                           WHEN en: THEN  语句段n ;

                  END CASE;

                   实例:

[html] view plain copy
 print?
  1. declare   
  2.    results varchar2(20) :'B';  
  3.    grade varchar2(20);  
  4. begin  
  5.   case results  
  6.      when 'A' then grade :'90-100';  
  7.      when 'B' then grade :'80-89';  
  8.      when 'C' then grade :'70-79';  
  9.      when 'D' then grade :'60-69';  
  10.      when 'E' then grade :'<60';  
  11.      else grade :'不存在这个成绩等级';  
  12.   end case;  
  13.   dbms_output.put_line(grade);  
  14. end;  

 

          2)、循环控制

               2.1 FOR...LOOP语句

               该形式如下:

                FOR I [REVERSE]IN lb..hb LOOP

                     语句段;

                END LOOP;

                其中,i为整型变量,一般称为循环计算器,lbhb均为整型常量,分别代表了i的下限和上限,..为范围操作符。当没有使用参数REVERSE时,i的初值被设置为lb实例:

[html] view plain copy
 print?
  1. declare   
  2.    i int :0;  
  3. begin  
  4.   for i in 1..3 loop  
  5.     dbms_output.put_line('循环第'||to_char(i)||'次时'||to_char(i));  
  6.   end loop;  
  7. end;  


               2.2 LOOP...EXIT循环控制

                   该语句用于控制死循环的。一般对于死循环的控制,有如下三种方式:

                  2.2.1 利用if语句

                  LOOP 

                      语句段;

                      IF P THEN

                          EXIT

                     END IF;

                  END LOOP;

                  实例:

  1. declare  
  2.    i int := 0;  
  3.    results integer := 0;  
  4. begin  
  5.   loop  
  6.     results := results + i;  
  7.     if i = 10 then  
  8.       exit;  
  9.     end if;  
  10.     i : i+1;  
  11.   end loop;  
  12.   dbms_output.put_line('累加结果为:'||to_char(results));  
  13. end;  


 

                2.2.2 利用EXIT...WHEN

                   LOOP

                       .........

                  EXIT WHEN e;

                       .............

                 END LOOP;

                其中e为布尔表达式,如果e的值为true则循环退出,否则继续执行循环语句。实例:

  1. declare   
  2.    i int := 1;  
  3.    results integer := 0;  
  4. begin  
  5.   loop   
  6.     results :=  results+i;  
  7.     exit when i = 10;  
  8.     i := i+1;  
  9.   end loop;  
  10.   dbms_output.put_line('累加结果为:'||to_char(results));  
  11. end;  

 

                2.2.3: 利用标签

                该语句的格式如下:

                <<标签名>>

                LOOP 

                      .......

                 EXIT  标签名 WHEN e;

                      ........

                END LOOP;

                etrue时退出。注意,标签名必须在loop语句之前用“<<>>”定义实例:

  1. declare  
  2.    i integer := 1;  
  3.    results integer := 0;  
  4. begin  
  5.   <<my_label>>  
  6.   loop  
  7.     results := results + i;  
  8.     exit my_label when i = 10;  
  9.     i := i+1;  
  10.   end loop;  
  11.   dbms_output.put_line('累加的结果为:'||to_char(results));  
  12. end;   

 

                2.3 WHILE...LOOP循环控制

                WHILE e LOOP

                     语句段;

                END LOOP;

                E为循环条件,当e的值为true时则执行循环体,否则退出循环。

                实例:

  1. declare  
  2.    m integer := 100;  
  3.    n integer := 7;  
  4.    results integer;  
  5. begin  
  6.   results := m;  
  7.   while results >=n loop  
  8.     results := results - n;  
  9.   end loop;  
  10.   dbms_output.put_line(to_char(m)||'除以'||to_char(n)||'的余数'||to_char(results));  
  11. end;  


         二、在PL/SQL程序中调用SQL语句

          实际上在PL/SQL程序中i调用SQL语句,对于不同的SQL语句调用的方法是不一样的。在这里介绍常用的 几种语句的调用方法。

 

          2.1调用SELECT语句

          在调用这个语句之间,应该定义一个变量用来存储SELECT语句产生的结果,而且 这个变量的结果要与SELECT之后的字段列表相一致。实例:

  1. declare  
  2.   temp_emp scott.emp%rowtype;  
  3. begin  
  4.   select * into temp_emp from emp where empno=7369;  
  5.   dbms_output.put_line(to_char(temp_emp.empno||','||temp_emp.ename));  
  6. end;  

         注意:这种变量只能是一条记录,否则就会出错。而且如果SELECT语句无返回结果,同样会报错。

 

          2.2调用INSERT语句

          这条语句可以直接调用。实例:

  1. declare  
  2.   empno emp.empno%type;  
  3.   ename emp.ename%type;  
  4.   job emp.job%type;  
  5.   mgr emp.mgr%type;  
  6.   hiredate emp.hiredate%type;  
  7.   sal emp.sal%type;  
  8.   comm emp.comm%type;  
  9.   deptno emp.deptno%type;  
  10. begin  
  11.   empno := 6676;  
  12.   ename := 'LILY';  
  13.   job := 'CLERK';  
  14.   mgr := 7899;  
  15.   hiredate := to_date('1981-12-12','yyyy-mm-dd');  
  16.   sal := 999.00;  
  17.   comm := 433.00;  
  18.   deptno := 20;  
  19.   insert into emp values(empno,ename,job,mgr,hiredate,sal,comm,deptno);  
  20. end;  

 

         2.3调用UPDATE语句

          同样可以之间调用。实例:

  1. declare  
  2.   tempno scott.emp.empno%type;  
  3. begin  
  4.   tempno := 7677;  
  5.   update emp set ename='AAA' where empno = tempno;  
  6. end;  

         

          2.4调用DELETE语句

         直接调用。实例:

  1. declare  
  2.   tempno scott.emp.empno%type;  
  3. begin  
  4.   tempno := 7677;  
  5.   delete form emp where empno = tempno;  
  6. end;  
  7.     

 

(三)之游标

 游标是从数据库中提取出来一临时表的形式存放在内存中的数据。可以把游标看作是内存的SQL工作区域,游标名称相当于该区域的句柄。通过该句柄可以有效地控制游标,从而实现对数据的操作。所以对游标的操作实际上就是对数据库库的间接操作。

 

          1.1游标的定义

          定义游标的格式如下:

              CURSOR 游标 IS SELECT 语句;

          例如:把数据表中emp中部门号为20的员工定义为游标:

[html] view plain copy
 print?
  1. CURSOR exce_emp is select * from scott.emp where deptno=20;  

          定义游标后,我们就可以使用游标了。但是要对游标进行操作我们必须先打开游标:

          Open 游标名;

          打开游标实际上是从数据表中读取数据的过程,在这个过程中主要完成两件事:

             1、把select查询结果读入内存工作区中。

             2、将游标指针定位在第一条记录。

          游标在使用后,要关闭:close 游标名;

 

          1.2利用fetch命令从游标中提取数据

              我们定义游标并且打开游标后,就可以利用fetch命令从游标中提取数据。

              FETCH 游标名 INTO变量名1,变量名2......

              或者

              FFETCJ 游标名 INTO 纪录型变量名;

              FETCH命令首先将当前游标指针所指的行读出来并且置于相应的变量中,然后把游标指针移到下一行。所以FETCH命令每一个执行的时候,只能提取一行或者部分的数据。

              实例:

  1. declare  
  2.    cursor exce_emp is select * from emp where empno=6676;            --定义游标  
  3.    var_exce_emp exce_emp%rowtype;          --定义变量  
  4. begin  
  5.   open exce_emp;         --打开游标  
  6.   fetch exce_emp into var_exce_emp;            --fetch提取数据  
  7.   dbms_output.put_line('提取的数据为:员工的姓名:'||var_exce_emp.ename||',员工的工作为:'||var_exce_emp.job);  
  8.   close exce_emp;  
  9. end;  

              存在这样一种情况,如果游标指针已经指到了游标的末尾,那么FETCH命令将读不到数据了,所以应该有这样一种机制,这种机制可以测出游标是否已经指到了游标的末尾。这种机制就是游标的属性。

 

          1.3游标的属性

              游标有四个属性:%FOUND%ISOPEN%NOTFOUND%ROWCOUNT

              下面就分别这四个属性介绍:

             1.3.1%FOUND

              该属性用于测试在自己所在语句之前的最后一个FETCH命令是否提取到了数据。如果能够提取到数据就返回true,否则返回false。但是如果一个游标还没有被打开就运用%FOUND,那么将会产生INVALID_CURSOR异常。

              实例:

  1. declare  
  2.    cursor exce_emp is select empno,ename from emp where deptno=20;  
  3.    var_exce_emp exce_emp%rowtype;  
  4.    i int := 1;  
  5. begin  
  6.   open exce_emp;  
  7.   loop  
  8.     fetch exce_emp into var_exce_emp;  
  9.     if exce_emp %found then        --利用%found属性检测是否提取到了数据  
  10.       dbms_output.put_line('第'||to_char(i)||'个员工的信息-------编号:'||var_exce_emp.empno||'员工姓名:'||var_exce_emp.ename);  
  11.       i := i+1;  
  12.     else  
  13.       exit;  
  14.     end if;  
  15.   end loop;  
  16.   close exce_emp;  
  17. end;  


             1.3.2%ISOPEN

              该属性主要用于测试游标是否已经打开。

              实例:

  1. declare  
  2.    cursor exce_emp is select empno,ename from emp;  
  3.    var_exce_emp exce_emp%rowtype;  
  4. begin  
  5.   if not exce_emp%isopen then        --检测游标是否已经打开  
  6.     dbms_output.put_line('游标没有打开');  
  7.     open exce_emp;  
  8.   else  
  9.     dbms_output.put_line('游标已经打开了');  
  10.   end if;  
  11. end;  


             1.3.3%NOFOUND

             该属性与%FOUND相反。这里就不做介绍了。

             1.3.4%ROWCOUNT

             当刚刚打开游标时,%ROWCOUNT的值为0。每运行一次FETCH命令,%ROWCOUNT的值就会自增1。因此%ROWCOUNT的值可以看着是游标中当前被读取了的记录的条数,即游标循环中处理的当前行数。如果一个有游标在打开之前调用%ROWCOUNT属性,就会产生异常INVALID_CURSOR

             实例:

  1. declare  
  2.   cursor exce_emp is empno,ename from emp where deptno=20;  
  3.   var_exce_emp exce_emp%rowtype;  
  4.   n int := 5;  
  5. begin  
  6.   open exce_emp;  
  7.   loop  
  8.     fetch exce_emp into var_exce_emp;  
  9.     exit when exce_emp%notfound;  
  10.     dbms_output.put_line('员工号:'||var_exce_emp.empno||',员工姓名:'||var_exce_emp.ename);  
  11.     exit when exce_emp%rowcount=n;  
  12.   end loop;  
  13.   close exce_emp;  
  14. end;  


         1.4隐式游标

          上面介绍的都是显示游标。其实Oracle还默认了一种游标,这个游标就是隐式游标。其被定义为SQL。它同时也具有4个属性。如下:

  1. declare  
  2.   tempdeptno := 20;  
  3.   counts int := 0;  
  4. begin  
  5.   update emp set job='CLERK' where deptno = tempdeptno;  
  6.   if sql%found then  
  7.     counts := sql%rowcount;  
  8.   end if;  
  9.   dbms_output.put_line('对'||to_char(counts)||'行语句做了修改');  
  10. end;  


         注意:隐式游标时不需要打开和关闭的。

         下面就显示游标和隐式游标做一个比较


0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:166877次
    • 积分:4576
    • 等级:
    • 排名:第6680名
    • 原创:287篇
    • 转载:36篇
    • 译文:0篇
    • 评论:11条
    最新评论