plsql匿名块

来源：互联网发布：《算法统宗》3个和尚编辑：程序博客网时间：2024/06/09 20:00

PL/SQL匿名块详解

摘要：

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

PL/SQL单行注释使用--，多行注释使用/**/。PL/SQL中的变量类型主要有一下几种：binary_integer: 整数，主要用来技数而不是用来表示字段类型number: 数字类型char: 定长字符串varchar2: 变长字符串date: 日期long:长字符串，最长2GBboolean: 布尔类型，可以取值为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_validboolean :=false;
  v_name varchar2(20) notnull :='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_validboolean := 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');
  endif;
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
  whilej<11 loop
    dbms_output.put_line('=='|| j);
    j := j+1;
  end loop;
end;
/
 
 
--循环语句
begin
  fork in 1..10loop
    dbms_output.put_line('=='|| k);
  end loop;
  fork in reverse 1..10loop
    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
  forv_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');
  forv_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 emp2for update;
  --v_temp c%rowtype;
begin 
  forv_temp in c loop
    if(v_temp.sal <2000)then
      update emp2 set sal=sal*2where current of c;
    elsif(v_temp.sal =5000)then
      delete from emp2 where current of c;
    endif;
  end loop;
  commit;
end;
/

阅读全文

0 0