原创：oracle PL/SQL编程基础 上<十一>
PL/SQL是oracle的专用语言,它对标准的SQL语言的扩展.SQL语句可以嵌套在PL/SQL语言中，并结合处理语句。 PL/SQL程序结构 使用了程序块的结构组织的代码.最简单的程序块是一种被称为”匿名块”的程序块,匿名块是指不会被oracle存储并且不能够重用程序块。PL/SQL程序通常包括3部分:Declare部分、exception部分、Begin和end部分.Begin和end是PL/SQL的必须部分,总是begin开始end结束. Declare部分包含定义变量、常量和游标等类型的代码. Begin与end之间可以嵌套begin与end及exception. //打开服务器的输出SQL> set serveroutput on;SQL> begin //开始 2 dbms_output.put_line('Hello World'); 3 end; 4 /变量与常量的声明： 变量名 类型(字符，日期，数字，布尔)[:=缺省值]; 常量名 constant 类型(字符，日期，数字，布尔) [:=缺省值]; 变量与常量的区别： 变量可以在任何部分进行赋值. 而常量在declare中声明并且赋值.注意：都是在declare中声明 正确的操作：declare pagesize constant number(2) :=10;begin dbms_output.put_line(pagesize);end;/ 作用域： 是能够引用变量名称这样的标识符的程序块。 declare pagesize number(2):=10; //在整个中都有效begin dbms_output.put_line(pagesize); declare pagesize number(2):=99; //只是在内容声明部分到end结束有效 begin dbms_output.put_line(pagesize); end;end;/ //声明一个整型的变量SQL> declare 2 age number(2); 3 begin 4 age:=90; 5 dbms_output.put_line(age); 6 end; 7 ///声明后直接赋值SQL> declare 2 age number(2) :=90; 3 begin 4 dbms_output.put_line(age); 5 end; 6 ///捕获异常处理SQL> declare 2 age number(2); 3 begin 4 age :='qwe' 5 ; 6 exception 7 when others then 8 dbms_output.put_line('赋值失败'); 9 end; 10 / 条件判断语句 有if与case语句 If语句If语法 If（expression1）then pl/sql_statement Else Pl/sql_statement; End if; If（expression1）then pl/sql_statement Else if（expression2） Pl/sql_statement; Else Pl/sql_statement; End if; Case语句 从oracle9i以后引入 Case <selector> When <expression1> then pl/sql_statement1; When <expression2> then pl/sql_statement2; ……. [else pl/sql_statement;] End;//案例SQL> declare score number(2) :=80; begin if score>70 then dbms_output.put_line('成绩合格'); end if; end; / SQL> declare score number(2) :=80; begin if score>90 then dbms_output.put_line('成绩合格'); else dbms_output.put_line('成绩不合格'); end if; end;/ 成绩不合格 SQL> declare score number(2):=8; begin case score when 9 then dbms_output.put_line('成绩优秀'); when 8 then dbms_output.put_line('成绩亮');end case;end; / 循环语句 最基本的循环称为无条件循环,如果没有指定exit语句,循环将无条件执行，这种循环称为死循环,死循环尽量避免。语法格式如下： Loop ---statement--- Exit when condition End loop; 案例：SQL> declare i number(2):=1; begin loop dbms_output.put_line(i); i:=i+1; exit when i>10; end loop; end; / While循环 语法： While condition Loop Statement; End loop; SQL> declare i number(2):=1; begin while i<10 loop dbms_output.put_line(i); i:=i+1; end loop; end; / For循环 For loop_control_variable in [reverse] lower upper loop Statement; End loop; SQL> begin for i in 1..10 loop dbms_output.put_line(i); end loop; end; / PL/SQL语句中的SQL语句declare countnum number(2); //声明变量begin select count(*) into countnum from emp; //into的作用把从数据中检测出的数据赋值给哪个变量 dbms_output.put_line(countnum);end;/注意：如果在select中没有into语句会出现bug declare empno number(4); ename varchar2(10); job varchar2(9);begin select empno,ename,job into empno,ename,job from emp; dbms_output.put_line(empno||'/'||ename||'/'||job);end;/以上代码中会出现bug bug原因是因为定义的变量只可以存储一个单独的值,而你返回的是多个值.所以应该为如下：SQL> declare 2 empno number(4); 3 ename varchar2(10); 4 job varchar2(9); 5 begin 6 select empno,ename,job into empno,ename,job from emp where empno='7369'; //在这加上where条件了 7 dbms_output.put_line(empno||'/'||ename||'/'||job); 8 end; 9 / 7369/SMITH/CLERK 是用%TYPE和%ROWTYPE类型的变量 在定义变量时处理可以使用oracle规定的数据类型外,还可以使用%TYPE和%ROWTYPE来定义变量. %TYPE类型的变量是专门为存储在数据列中检索到的值而创建的.对于使用%TYPE创建的变量，其数据类型由系统根据检索的数据列的数据类型决定. %ROWTYPE类型的变量,它可以一次存储从数据库检索的一行数据。 当你不知道表中的数据类型是什么时候?那你就考虑%TYPE来解决此问题。SQL> declare 2 empno emp.empno%TYPE; //声明的时候一定要加上表的中列 3 ename emp.ename%TYPE; 4 job emp.job%TYPE; 5 begin 6 select empno,ename,job into empno,ename,job from emp where empno='7369'; 7 dbms_output.put_line(empno||'/'||ename||'/'||job); 8 end; 9 / 7369/SMITH/CLERKemp.empno%TYPE;解析：首先它到emp表中去查找empno列 %TYPE返回其数据的数据类型。 %TYPE的好处：1、 可移植性高(当我们对表的数据类型发生改变时,用户不必考虑定义变量类型)2、 用户不必查看数据类型就可以定义变量能够存储检索的数据。 %ROWTYPE SQL> declare 2 row_data emp%ROWTYPE; 3 begin 4 select * into row_data from emp where empno='7369'; 5 dbms_output.put_line(row_data.empno||'/'||row_data.ename||'/'||row_data.job); 6 end; 7 /注意：如果定义了％rowtype类型的变量,该变量的结构与定义表的结构完全相同,查询时必须使用*或者列举全部的字段信息。 复合变量 复合变量可以将不同的数据类型的多个值存储在一个单元中.由于复合数据类型可以有用户根据需要定义其结构,所以复合数据类型也称为自定义数据类型。 PL/SQL提供了两种类型的复合数据类型:1、 记录类型在记录类型中可以存储多个标量值,与数据库中的行相似2、 记录表类型允许用户在程序代码中使用”表”,以便存储多个行的数据。它只在程序运行期间有效。类似于程序代码中集合|数组。 记录类型： 必须使用TYPE语句定义记录类型的语法声明如下：TYPE record_name is record(Field_name data_type[not null， :=default value]………)； 与%Rowtype不同之处是 1、%rowtype查询的是全部数据 2、记录类型必须使用type语法格式声明//案例SQL> declare 2 type empinfo is record( //声明一个记录类型 3 empno number(4), 4 ename varchar2(10), 5 job varchar2(9) 6 ); 7 8 emp_data empinfo; //声明一个记录类型的变量 9 begin 10 select empno,ename,job into emp_data from emp where empno=7369; //查询的结果赋值给定义的变量 11 dbms_output.put_line(emp_data.empno||'/'||emp_data.ename||'/'||emp_data.job); 12 end; 13 / 记录表类型 它可以处理多个记录或多个行记录。1、 为什么使用记录表类型呢? 因为我们查询的数据的往往需要返回多行记录,所以需要记录表类型。 2、 定义记录表类型TYPE table_name is table of data_type[not null] Index by binary_integer;//主键的索引declare type table_emp is table of emp%rowtype //创建一个表 此表的类型与emp表的类型一致 index by binary_integer; type table_text is table of varchar2(20) //创建一个表 此表具有一个varchar2列的简单表 index by binary_integer; empt table_emp; //声明记录表类型的变量 tabtext table_text;begin 案例：SQL> declare 2 type table_emp is table of emp%rowtype 3 index by binary_integer; 4 empt table_emp; 5 begin 6 empt(1).ename:='wangyi'; 7 dbms_output.put_line(empt(1).ename); 8 end; 9 / //返回总记录SQL> declare 2 type table_emp is table of emp%rowtype 3 index by binary_integer; 4 empt table_emp; 5 begin 6 dbms_output.put_line(empt.count); 7 end; 8 / 0 //没有记录 //删除的操作 表名.Delete(记录数); //检索记录变量First：获取第一个的索引Next：下一个的索引 但是必须有参数Last：最后一个的索引SQL> declare 2 type table_emp is table of emp%rowtype 3 index by binary_integer; 4 empt table_emp; 5 i number(2):=1; 6 begin 7 while i<10 8 loop 9 empt(i).ename:='wangyi'; 10 i:=i+1; 11 end loop; 12 13 dbms_output.put_line(empt.count); 14 15 empt.delete(2); 16 17 dbms_output.put_line(empt.count); 18 19 dbms_output.put_line(empt.first); 20 dbms_output.put_line(empt.next(2)); 21 dbms_output.put_line(empt.last); 22 end; 23 / 98139 //查询数据库的数据赋值给你创建的记录表类型分析一：SQL> declare 2 type table_emp is table of emp%rowtype 3 index by binary_integer; 4 empt table_emp; 5 i number(10):=0; 6 begin 7 8 for rec in (select * from emp) loop 9 i:=i+1; 10 empt(i).ename:=rec.ename; 11 end loop; 12 13 dbms_output.put_line(empt.count); 14 end; 15 / 15具体实现： //把查询的的数据全部赋值给记录表类型declare type table_emp is table of emp%rowtype index by binary_integer; empt table_emp; i number(10):=0; j number(10):=1;begin for rec in (select * from emp) loop i:=i+1; empt(i).empno:=rec.empno; empt(i).ename:=rec.ename; empt(i).job:=rec.job; empt(i).mgr:=rec.mgr; empt(i).hiredate:=rec.hiredate; empt(i).sal:=rec.sal; empt(i).comm:=rec.comm; empt(i).deptno:=rec.deptno; end loop; while j<=empt.count loop dbms_output.put_line(empt(j).empno||'/'||empt(j).ename||'/'||empt(j).job||'/'||empt(j).mgr||'/'||empt(j).hiredate||'/'||empt(j).sal||'/'||empt(j).comm||'/'||empt(j).deptno); j:=j+1; end loop;end;/ SQL> declare 2 type table_emp is table of emp%rowtype 3 index by binary_integer; 4 empt table_emp; 5 i number(10):=0; 6 j number(10):=1; 7 begin 8 9 for rec in (select * from emp) loop 10 i:=i+1; 11 empt(i).empno:=rec.empno; 12 empt(i).ename:=rec.ename; 13 empt(i).job:=rec.job; 14 empt(i).mgr:=rec.mgr; 15 empt(i).hiredate:=rec.hiredate; 16 empt(i).sal:=rec.sal; 17 empt(i).comm:=rec.comm; 18 empt(i).deptno:=rec.deptno; 19 end loop; 20 21 dbms_output.put_line(empt.count); 22 23 while j<=empt.count loop 24 dbms_output.put_line(empt(j).empno||'/'||empt(j).ename||'/'||empt 25 26 (j).job||'/'||empt(j).mgr||'/'||empt(j).hiredate||'/'||empt(j).sal||'/'||empt 27 28 (j).comm||'/'||empt(j).deptno); 29 j:=j+1; 30 end loop; 31 end; 32 / 以上内容归redarmy_chen所有,如需转载请附带出处,如有疑问请发送至redarmy_chen@qq.com