plsql匿名块

PL/SQL匿名块详解

摘要：

PL/SQL是Oracle下的脚本开发语言，是为了解决数据下一些复杂的应用而设计的。一些复杂的应用，仅靠一条SQL语句并不能完成，为了解决这个问题，各个数据库产品都设计了自己的脚本编程语言，Oracle下叫做PL/SQL，SQL Server下叫做Transact SQL。

PL/SQL单行注释使用--，多行注释使用/**/。 PL/SQL中的变量类型主要有一下几种： binary_integer: 整数，主要用来技数而不是用来表示字段类型 number: 数字类型 char: 定长字符串 varchar2: 变长字符串 date: 日期 long:长字符串，最长2GB boolean: 布尔类型，可以取值为true,false和null值。  匿名块是能够动态地创建和执行过程代码的PL/SQL结构，而不需要以持久化的方式将代码作为数据库对象储存在系统目录中。

--HelloWorld开始 set serveroutput on;   begin     dbms_output.put_line( 'Hello World!!!' ); end; /     --最简单的语句块 declare    v_word varchar( 20 ); begin    v_word:= 'Hello World!!!' ;    dbms_output.put_line(v_word); end; /     --语句块的组成 declare     v_num number:= 0 ; begin     v_num:= 2 /v_num;     dbms_output.put_line(v_num); exception     when others then        dbms_output.put_line( 'error' ); end; /     --变量的声明 declare    v_temp number( 1 );    v_count binary_integer := 0 ;    v_sal number( 7 , 2 ):= 3000.00 ;    v_date date:=sysdate;    v_pi_constrant number( 3 , 2 ):= 3.14 ;    v_valid boolean := false ;    v_name varchar2( 20 ) not null := 'My Name' ; begin    dbms_output.put_line( 'v_temp value:' || v_temp); end; /     --变量声明,使用%type属性 declare    v_empno number( 4 );    v_empno2 emp.empno%type;    v_empno3 v_empno2%type; begin    dbms_output.put_line( 'test...' ); end; /     --简单变量赋值 declare    v_name varchar2( 20 );    v_sal number( 7 , 2 );    v_sal2 number( 7 , 2 );    v_valid boolean := false ;    v_date date; begin    v_name := 'My Name' ;    v_sal := 23.77 ;    v_sal2 := 23.77 ;    v_valid := (v_sal=v_sal2);    v_date := to_date( '2010-08-04 22:58:58' , 'YYYY-MM-DD HH24-MI-SS' ); end; /     --table变量类型 declare    type  type_table_emp_empno  is table of  emp.empno%type  index by  binary_integer;    v_empnos type_table_emp_empno; begin    v_empnos( 0 ) := 7369 ;    v_empnos( 1 ) := 7839 ;    v_empnos(- 1 ) := 9999 ;    dbms_output.put_line(v_empnos(- 1 )); end; /     --Record变量类型 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 := 'dname' ;    v_temp.loc := 'BJ' ;    dbms_output.put_line(v_temp.deptno || ' ' || v_temp.dname); end; /     --使用%rowtype 声明record变量 declare    v_temp dept%rowtype; begin    v_temp.deptno := 50 ;    v_temp.dname := 'dname' ;    v_temp.loc := 'BJ' ;    dbms_output.put_line(v_temp.deptno || ' ' || v_temp.dname); end; /     --SQL语句应用 declare    v_ename emp.ename%type;    v_sal emp.sal%type; begin    select ename,sal into v_ename,v_sal from emp where empno= 7900 ;    --select ename,sal into v_ename,v_sal from emp where deptno= 30 ;    dbms_output.put_line(v_ename || ' ' || v_sal); end; /     --SQL语句应用 declare    v_emp emp%rowtype; begin    select * into v_emp from emp where empno= 7369 ;    dbms_output.put_line(v_emp.ename); end; /     --SQL语句应用 create table dept2(    deptno number,    dname varchar2( 50 ),    loc varchar2( 50 ) ); declare    v_deptno dept.deptno%type := 50 ;    v_dname dept.dname%type := 'My Name' ;    v_loc dept.loc%type := 'BJ' ; begin    insert into dept2 values(v_deptno,v_dname,v_loc); end; / select * from dept2; --drop table dept2;     --SQL语句应用 declare    v_deptno dept2.deptno%type := 30 ;    v_count number; begin    select deptno into v_deptno from dept2 where deptno= 50 ;    select count(*) into v_count from dept2;    dbms_output.put_line( 'deptno:' || v_deptno);    dbms_output.put_line( 'count:' || v_count);    dbms_output.put_line(sql%rowcount || '条记录被影响...' ); end; /     --使用DDL语句 begin execute immediate 'create table T(nnn varchar2(20))' ; end; / drop table T;     --选择语句 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; /     --循环语句 declare    i binary_integer := 1 ; begin    loop      dbms_output.put_line( '==' || i);      i := i+ 1 ;      exit when(i>= 11 );    end loop; end; /     --循环语句 declare    j binary_integer := 1 ; begin    while j< 11 loop      dbms_output.put_line( '==' || j);      j := j+ 1 ;    end loop; end; /     --循环语句 begin    for k in 1 .. 10 loop      dbms_output.put_line( '==' || k);    end loop;    for k in reverse 1 .. 10 loop      dbms_output.put_line( '==' || k);    end loop; end; /     --错误处理 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( '没有数据...' );    when others then      dbms_output.put_line( 'error...' ); end; /     --游标 declare    cursor c is select * from emp;    v_emp c%rowtype; begin    open c;    fetch c into v_emp;    dbms_output.put_line(v_emp.ename);    close c; end; /     --游标 declare    cursor c is select * from emp;    v_emp c%rowtype; begin    open c;    loop      fetch c into v_emp;      exit when(c%notfound);        dbms_output.put_line(v_emp.ename);    end loop;    close c; end; /     --游标 declare    cursor c is select * from emp;    v_emp c%rowtype; begin    open c;    fetch c into v_emp;    while (c%found)loop      dbms_output.put_line(v_emp.ename);      fetch c into v_emp;    end loop;    close c; end; /     --游标 declare    cursor c is select * from emp; begin    for v_emp in c loop     dbms_output.put_line(v_emp.ename);    end loop; end; /     --带参数的游标 declare    cursor c(v_deptno emp.deptno%type, v_job emp.job%type) is      select ename,sal from emp where deptno=v_deptno and job=v_job;    --v_temp c%rowtype; begin    --open c( 30 , 'clerk' );    for v_temp in c( 30 , 'CLERK' ) loop      dbms_output.put_line(v_temp.ename || ' ' || v_temp.sal);    end loop; end; /     --可以更新的游标 create table emp2 as(     select * from emp ); drop table emp2; declare    cursor c is select * from emp2 for update;    --v_temp c%rowtype; begin    for v_temp in c loop      if (v_temp.sal < 2000 )then        update emp2 set sal=sal* 2 where current of c;      elsif(v_temp.sal = 5000 )then        delete from emp2 where current of c;      end if ;    end loop;    commit; end; /