oracle PL/SQL 流程控制

wocaosinima

　　使用IF语句按条件判断,控制PL/SQL执行流程:
　　if-then-end if
　　if-then-else-end if
　　if-then-elsif-then-else-end if
　　set serveroutput on
　　declare
　　v_hire_date date := to_date('1995-01-15','yyyy-mm-dd');
　　v_five_years boolean;
　　begin
　　if months_between(sysdate,v_hire_date)/12 > 5 then
　　v_five_years := true;
　　dbms_output.put_line('true');
　　else
　　v_five_years := false;
　　dbms_output.put_line('false');
　　end if;
　　end;
　　/
　　declare
　　v_year date := to_date('2000-10-10','yyyy-mm-dd');
　　v_five_years boolean;
　　begin
　　if months_between(sysdate,v_year)/12 > 5
　　then
　　v_five_years := true;
　　else
　　v_five_years := false;
　　end if;
　　if v_five_years then
　　dbms_output.put_line('yes');
　　else
　　dbms_output.put_line('no');
　　end if;
　　end;
　　/
　　使用CASE表达式:
　　set serveroutput on
　　define p_grade='a'
　　declare
　　v_grade char(1) := upper('&p_grade');
　　v_appraisal varchar2(20);
　　begin
　　v_appraisal :=
　　case v_grade
　　when 'A' then 'excellent'
　　when 'B' then 'very good'
　　when 'C' then 'good'
　　else 'no such grade!'
　　end;
　　dbms_output.put_line ('grade: '|| v_grade || ' appraisal ' || v_appraisal);
　　end;
　　/
　　DECLARE
　　v_grade CHAR(1) := UPPER('&p_grade');
　　v_appraisal VARCHAR2(20);
　　BEGIN
　　v_appraisal :=
　　CASE --省略
　　WHEN v_grade='A' THEN 'Excellent'
　　WHEN v_grade='B' THEN 'Very Good'
　　WHEN v_grade='C' THEN 'Good'
　　ELSE 'No such grade'
　　END;
　　DBMS_OUTPUT.PUT_LINE ('Grade: '|| v_grade || ' Appraisal ' || v_appraisal);
　　END;
　　/
　　set serveroutput on
　　declare
　　v_score number := &score;
　　v_grade VARCHAR2(10) := 'no grade';
　　begin
　　v_grade :=
　　case to_char(trunc(v_score,-1))
　　when '90' then 'A'
　　when '80' then 'B'
　　when '70' then 'C'
　　else 'D'
　　end;
　　dbms_output.put_line(v_grade);
　　end;
　　循环遍历控制:
　　loop
　　...
　　end loop;
　　while ... loop
　　....
　　end loop;
　　for ... loop
　　...
　　end loop;
　　1.基本LOOP循环:
　　set serveroutput on
　　declare
　　i integer :=1;
　　begin
　　loop
　　dbms_output.put_line(i);
　　i := i+1;
　　exit when i>10;
　　end loop;
　　end;
　　/
　　while循环:
　　declare
　　i integer :=1;
　　begin
　　while i15;
　　dbms_output.put_line(v_plus);
　　end loop inner_loop;
　　end loop outer_loop;
　　end;
　　/
　　标号和goto:
　　declare
　　v_counter number := 1;
　　begin
　　loop
　　dbms_output.put_line('in loop V_counter current value:'||V_counter);
　　v_counter := v_counter + 1;
　　if v_counter > 10 then
　　goto l_ENDofLOOP;
　　end if;
　　end loop;
　　
　　dbms_output.put_line('end loop V_counter current value:'||V_counter);
　　end;
　　/
　　写一个PL/SQL块
　　向dept表中循环插入5条记录
　　每一条记录的deptno 值比表中最大的deptno 值增加1
　　dname分别为"Test1" "Test2"..."Test5"
　　loc列的值都为空。
　　sys>create table hr.dept as select * from scott.dept;
　　hr>
　　declare
　　v_deptno hr.dept.deptno%type;
　　begin
　　select max(deptno) into v_deptno from hr.dept;
　　for i in 1..5 loop
　　insert into hr.dept values(v_deptno+i,'Test'||to_char(i),null);
　　end loop;
　　end;
　　事务处理控制语句(COMMIT 和 ROLLBACK):
　　CREATE TABLE T1(ID INT);
　　(*批量提交，减少log file sync提高效率!)
　　DECLARE
　　V_NUM NUMBER := 0;
　　BEGIN
　　FOR V_LOOPCOUNTER IN 1..500 LOOP
　　INSERT INTO T1 VALUES (V_LOOPCOUNTER);
　　V_NUM := V_NUM + 1;
　　IF V_NUM = 50 THEN
　　COMMIT;
　　V_NUM := 0;
　　END IF;
　　END LOOP;
　　COMMIT;
　　END;
　　/
　　*********
　　drop table t1 purge;
　　create table t1 (id number);
　　begin
　　for i  in 1..1000 loop
　　insert into t1 values(i);
　　if i mod 50 = 0
　　then
　　commit;
　　end if;
　　end loop;
　　end;
　　Plsql table+record+循环打印结果集(dept表的所有行所有列)
　　declare
　　TYPE CharacterTab IS TABLE OF dept%rowtype
　　index by binary_integer;
　　v_Character CharacterTab;
　　v_max number;
　　v_deptno number;
　　begin
　　select count(*) into v_max from dept;
　　for i in 1..v_max loop
　　select deptno
　　into v_deptno
　　from
　　(select rownum rn,d.* from dept d)
　　where rn=i;
　　select *
　　into v_Character(i)
　　from dept
　　where deptno=v_deptno;
　　end loop;
　　for i in 1..v_max loop
　　dbms_output.put_line(v_Character(i).deptno||' '||v_Character(i).dname||' '||v_Character(i).loc);
　　end loop;
　　end;
　　/
　　declare
　　v_deptno hr.dept.deptno%type;
　　v_dname hr.dept.dname%type;
　　v_loc hr.dept.loc%type;
　　v_max number;
　　begin
　　select count(*) into v_max from hr.dept;
　　for i in 1..v_max loop
　　select deptno,dname,loc into v_deptno,v_dname,v_loc
　　from (select rownum rn,d.* from hr.dept d)
　　where rn=i;
　　dbms_output.put_line(v_deptno||' '||v_dname||' '||v_loc);
　　end loop;
　　end;
　　/