PL/SQL里面执行DDL语句 begin execute immediate ‘create table T(nnn varchar2(20) default ‘‘aaa‘‘)‘; end; PL/SQL的分支语句： 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; 
pL/Sql循环 declare    i binary_integer:=1;
 begin    loop       dbms_output.put_line(i);    
   i:=i+1;       exit when(i>=11);  
  end loop;
 end; 
PL/SQL for循环
 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; exception 捕获异常 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 deptno=2222; exception    when no_data_found then    dbms_output.put_line(‘没数据‘);
   when others then    dbms_output.put_line(‘error‘); 

end; / 错误处理 create table errorlog ( id number primary key, errcode number, errmsg varchar2(1024), errdate date );  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; exception when others then     rollback;     v_errcode:=SQLCODE;     v_errmsg:=SQLERRN;     insert into errorlog values(seq_errorlog_id.nextval,v_errcode,v_errmsg,sysdate); 
    commit;

 end; 

游标 declare    cursor c is           select * from emp; 
            v_emp c%rowtype; 
   begin       open c;       fetch c into v_emp;           --(取游标的第一个值插入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; 
begin    for v_temp in c(30,‘chick‘) loop         dbms_output.put_line(v_temp.ename);  
  end loop;
 end; 可更新的游标

exec p执行存储过程  begin 
p:
 end; 带参数的存储过程 create or replace procedure p (v_a in number,v_b number,v_ret out number, v_temp in out number) 
is 
begin if(v_a>v_b) then     v_ret:=v_a; 
   else     v_ret:=v_b; 
end 
if;     v_temp:=v_temp+1;
 end; 调用存储过程 declare v_a number:=3;
 v_b number:=4;
 v_ret number; v_temp number:=5;
begin    p(v_a,v_b,v_ret,v_temp); 
   dbms_output.put_line(v_ret);  
  dbms_output.put_line(v_temp);
 end; show error返回错误信息 删除存储过程 存储过程中的函数 create or replace function sal_tax      (v_sal number)    
  return number is
 begin if(v_sal<2000) then     
return 0.10; elsif(v_sal<2750) then     
return 0.5; 
else     return 0.20;
 end if; 
end; 触发器  create or replace trigger trig
 after update on dept 
   for each row 
    begin  
       update emp set deptno=:NEW.deptno where deptno=:OLD.deptno; 
     end; /