尚学堂马士兵oracle学习笔记38--46 PL语言（procedure language） 面向过程

原文地址：http://blog.sina.com.cn/s/blog_885b4ace0100y8kp.html

38_PL_SQL_1.avi

 PL/SQL 是在Oracle里面的一种编程语言，是一种新的编程语言，在Oracle内部使用的编程语言。

 每一种数据库都有这样的一种语言

 一种语言最重要的是：数据类型，语法。

 PL语言(procedure language 面向过程的语言)是为了补充SQL语言的，是带有了分支和循环的语言

 PL语言很简单，分四块，

 第一块：declare(可选)声明各种变量，游标。

 第二块：begin 程序从这开始执行

 第三块：exception

 第四块：end

 第一个简单的程序：

 begin

  dbms_output.put_line('HelloWorld');

 end;

 /

 必须先执行 set serveroutput on; 命令(因为serveroutput(内部环境变量)默认为off)，再执行上面的程序就能打印出结果

39_PL_SQL_2.avi

 第二个小例子：

 declare

  v_name varchar2(20);

 begin

  v_name := 'myname';

  dbms_output.put_line(v_name);

 end;

 /

 再来认识一下整个语句块的构成：

 declare

  v_num number := 0;   //PLSQL中约定变量名以V_开头

 begin

  v_num := 2/v_num;    // :=  代表赋值

  dbms_output.put_line(v_num);

 exception

  when others then  //其他的情况固定格式必须这样写

   dbms_output.put_line('error');

 end;

 /

40_PL_SQL_3.avi 简单的变量

 ----------变量声明规则----------

 变量名不能使用保留字，如from，select等

 第一个字符必须是字母

 变量名最多包含30个字符

 不要与数据库的表或者列同名

 每一行这能声明一个变量

 ----------变量的声明----------

 binary_integer:整数，主要用来计数而不是用来表示字段类型   比number效率高

 number:数字类型

 char:定长字符串

 varchar2：变长字符串

 date：日期

 long：长字符串，最长2GB

 boolean：布尔类型，可以取值true，false，null//最好给一初值,默认为null值

 在PL/SQL里面boolean类型变量在定义的时候一定要给初始值

 一个数据类型的例子：

 declare

  v_temp number(1);

  v_count binary_integer := 0;

  v_sal number(7,2) := 4000.00;

  v_date date := sysdate;

  v_pi constant number(3,2) := 3.14;

  v_valid boolean := false;

  v_name varchar2(20) not null := 'MyName';

 begin

  dbms_output.put_line('v_temp value:' || v_temp);  //  ||是字符串连接符

 end;

 /

 Oracle 里面的put_line()不能打印boolean类型的值

 dbms_output.put_line('v_temp value:' || v_valid);  //报错

oracle中的变量主要用来存储表中某些字段的值，如v_sal来存储 emp表中的 sal

 *查看当前用户：show  user

 ----------变量的声明，使用 '%type'属性---------

 declare

  v_empno number(4);

  v_empno2 emp.empno%type;//表示类型和emp这张表的empno字段类型相同，当empno类型改动时，不需要再到                         这里改动v_empno2，会自动变换

  v_empno3 v_empno2%type; //%type属性，可以用于变量身上

 begin

  dbms_output.put_line('Test');

 end;

 /

 //使用%type属性，可以使变量的声明根据表字段的类型自动变换，省去了维护的麻烦，而且% type属性，可以用于变量身上

 PL/SQL 里面--表示注释掉一行，/* */注释多行

41_PL_SQL_4.avi

 复杂的变量：

 复合变量有两种：

  第一种：table 相当于java里面的数组Array[]

   在PL/SQL里面要声明数组，也要指定它的类型，PL/SQL里比较复杂，

   必须重新定义新的类型，这里先声明类型，再用类型声明变量，下标允许有负值

 例子：

 declare

  type type_table_emp_empno is table of emp.empno%type index by        binary_integer;

  v_empnos type_table type_table_empno;

 begin

  v_empnos(0) := 7345;

  v_empnos(-1) :=9999;

  dbms_output.put_line(v_empnos(-1));

 end;

  /

  第二种：record  相当于java里面的类

42_PL_SQL_3.avi

 Record变量类型  相当于java里面的类

 例子：

 declare

  type type_record_dept is record

       (

   deptno dept.deptno%type,

   dname dept.dname%type,

   loc dept.loc%type

       );

       v_temp type_record_dept;

 begin

  v_temp.deptno := 50;

  v_temp.dname := 'aaaa';

  v_temp.loc := 'bj';

  dbms_output.put_line(v_temp.deptno || ' ' || v_temp.dname);

 end;

 /

 --record的缺陷：当dept这张表结构变化时，增加或删除一个字段时，type里面也需要改动。因此可以使用  %rowtype声明record变量，代表和表的字段同时变动

 declare

  v_temp dept%rowtype;

 begin

  v_temp.deptno := 50;

  v_temp.dname := 'aaaa';

  v_temp.loc := 'bj';

  dbms_output.put_line(v_temp.deptno || ' ' || v_temp.dname);

 end;

 /

43_PL_SQL_5.avi

 PL/SQL里面--SQL语句的运用

 用select语句，必须返回一条记录，并且只能返回一条记录。//如果返回太多，我变量装不了

 PL/SQL里面的select语句如果不用游标的话，必须和into语句一块用并且有且只有一条记录，没有不行，多了也不行。select语句必须能后返回一条记录。

 例子1：

 declare

  v_ename emp.ename%type;

  v_sal emp.sal%type;

 begin

  select ename, sal into v_ename, v_sal from emp where empno = 7369;

  dbms_output.put_line(v_ename || ' ' || v_sal);

 end;

 /

 例子2：select语句的应用（record）

 declare

  v_emp emp%rowtype;

 begin

  select * into v_emp from emp where empno = 7369;

  dbms_output.put_line(v_emp.ename);

 end;

 /

 其他语句的运用：

 例子3：

 declare

  v_deptno dept.deptno%type := 50;

  v_dname dept.dname%type := 'aaaa';

  v_loc dept.loc%type := 'bj';

 begin

  insert into dept2 values (v_deptno, v_dname, v_loc);

  commit;

 end;

 例子4：

 declare

  v_deptno emp2.deptno%type := 10;

  v_count number;

 begin

  --update emp2 set sal = sal/2 where deptno = v_deptno;

  --select deptno into v_deptno from emp2 where empno = 7369;

  select count(*) into v_count from emp2;

  dbms_output.put_line (sql%rowcount || '条记录被影响');

  commit;

 end;

 注：sql%rowcount 统计上一条sql语句更新的记录条数

44_PL_SQL_6.avi

 PL/SQL 里面的DDL语句，需要加execute immediate

 例子1：

 begin

  execute immediate 'create table T (nnn varchar2(20) default ''aaa'')';

 end;

 if语句：

 取出7369的薪水，如果<1200, 则输出'low',如果 <2000 则输出 'middle', 否则'high'

 declare

  v_sal emp.sal%type;

 begin

  select sal into v_sal from emp

   where empno = 7369;

  if(v_sal < 1200) then

   dbms_output.put_line('low');

  elsif(v_sal < 2000) then

   dbms_output.put_line('middle');

  else

   dbms_output.put_line('high');

  end if;

 end;

 

 

45_PL_SQL_7.avi

 --循环 1

 declare

  i binary_integer := 1;

 begin

  loop

   dbms_output.put_line(i);

   i := i+1;

   exit when ( i>=11);

  end loop;

 end;

 上面的循环相当于java里的 do-while 循环

 

 --循环 2

 declare

  j binary_integer := 1;

 begin

  while j < 11 loop

   dbms_output.put_line(j);、

   j := j + 1;

   end loop;

 end;

 以上循环相当于 java 里的 while 循环

 

 --循环 3

 begin

  for k in 1..10 loop

   dbms_output.put_line(k);

  end loop;

  for k in reverse 1..10 loop //reverse表示逆序

   dbms_output.put_line(k);

  end loop;

 end;

 以上循环相当于 java 里的 增强 for 循环

46_PL_SQL_8.avi

 --错误处理

 例子1：

 declare

  v_temp number(4);

 begin

  select empno into v_temp from emp where deptno = 10; --这条记录会返回很多值，所以产生异常

 exception

  when too_many_rows then

   dbms_output.put_line('太多记录了');

  when others then

   dbms_output.put_line('error');

 end;

 没有找着数据的异常：

 例子：

 declare

  v_temp number(4);

  begin

   select empno into v_temp from emp where empno = 2222;

  exception

   when no_data_found then

    dbms_output.put_line('没数据');

  end;

 DBA经常使用的一种用来记录错误的做法：

 例子：

 创建表

 create table errorlog

 (

  id number primary key,

  errcode number，

  errmsg varchar2(1024),

  errdate date

 );

 创建序列sequence

 create sequence seq_errorlog_id start with 1 increment by 1;

 写你的程序

 declare

  v_deptno dept.deptno%type := 10;

  v_errcode number;

  v_errmsg varchar2(1024);

 begin

  delete from dept where deptno = v_deptno;

  commit;

 exception

  when others then

  rollback;

  v_errcode := SQLCODE;//SQLCODE是关键字，代表出错的代码

  v_errmsg := SQLERRM;//SQLERRM是关键字，代表出错的信息

  insert into errorlog values (seq_errorlog_id.nextval, v_errcode, v_errmsg, sysdate);

  commit;

 end;

 执行

 select * from errorlog;

 报错误;

 delete from dept where detpno = 10;

 报错误

 查看具体的出错时间：

 select to_char (errdate, 'YYYY-MM-DD HH24:MI:SS') from errorlog;

 书：P44--P45页