oracle学习笔记(第七章:匿名块)

创建语法格式：
Declare
-- 申明变量;
Begin
-- 语句块;
End ;

常用语句：
1，if 语句：
If exp then
…
Elsif
…
Else
  …
End if ;
2，loop  end loop语句：
Loop
…
Exit when exp; (或用exit无条件退出,必须有退出条件，否则死循环)
End loop;
3，for  loop 语句：
For  v_var  in  范围  loop – 这里的 v_var 变量无须定义
…
End  loop; 
4，while exp loop  语句：
While exp loop
…
End  loop;

使用标签 <<label>> 和 goto 语句,可以实现语句的跳转

例子：
DECLARE
v_no empm.emp_no%TYPE;
v_nm empm.emp_nm%TYPE;
v_age empm.age%TYPE;
v_count INT;
BEGIN
   SELECT count(*) INTO v_count FROM empm ;
   FOR i IN 1..v_count LOOP  
      dbms_output.put_line('no-----name------age');
      SELECT emp_no,emp_nm,age INTO v_no,v_nm,v_age FROM empm WHERE emp_no = lpad(to_char(i),3,'0');
      dbms_output.put_line(v_no||'----'||v_nm||'------'||to_char(v_age));
   END LOOP;
END ;
---goto 语句的使用
DECLARE
v_emp_no empm.emp_no%TYPE;
v_dept_no empd.dept_no%TYPE;
v_count INTEGER;
CURSOR cur IS SELECT emp_no FROM empm;
BEGIN
     OPEN cur;
     LOOP
       <<lab_t>>
       FETCH cur INTO v_emp_no;
       EXIT WHEN cur%NOTFOUND;
       SELECT COUNT(*) INTO v_count FROM empd WHERE emp_no = v_emp_no;
       IF v_count = 0 THEN
          dbms_output.put_line('v_emp_no'||v_emp_no);
          GOTO lab_t;
       ELSE
          SELECT dept_no   INTO v_dept_no  FROM empd WHERE emp_no=v_emp_no;
          dbms_output.put_line('v_dept_no '||v_dept_no );
       END IF;
     END LOOP;
END;

Record 数据类型--很像结构
Declare
type test_record is record
(
  vemp_no char(10),
  vemp_name char(10)
);
t1 test_record;
Begin
t1.vemp_no:='70255';
t1.vemp_name:='aaa';
update empm set emp_nm=t1.vemp_name where emp_no=t1.vemp_no;
End;

Table数据类型  --很像数组   下标从0开始，tab.count table的大小，tab.extend(n) 扩展table的大小，tab.delete 删除table的内容

Declare
type test_table is table of varchar2(10) index by binary_integer;
tb test_table;
Begin
tb(1):='aaaa';
    tb(2):='bbbb';
    tb(3):='cccc';
dbms_output.put_line('tb(1)='||tb(1)||',tab(2)='||tb(2)||',tb(3)='||tb(3));
End;

DECLARE
TYPE tab IS TABLE OF NUMBER;
v_tab tab := tab(1,2,3,4,5);
BEGIN
  dbms_output.put_line(v_tab.count);-- table的大小
  FOR i IN 1..5 LOOP
      dbms_output.put_line(v_tab(i));
  END LOOP;
  v_tab.delete;
  dbms_output.put_line(v_tab.count);
  v_tab.extend(2);--扩展 table 的容量,扩展 2 个
  v_tab(6) := 6;
  v_tab(7) := 7;
  dbms_output.put_line(v_tab(6));
  dbms_output.put_line(v_tab(7));
  v_tab.delete;
  dbms_output.put_line(v_tab.count);
  v_tab.delete;-- 删除table的内容
  dbms_output.put_line(v_tab.count);    
END;

Record与Table 结合使用：
Declare
type test_record is record(
vemp_no varchar2(10),
vemp_name varchar2(10),
vemp_sex varchar2(2));
type test_table is table of test_record index by binary_integer;
tb test_table;
i integer:=0;
n integer:=0; --table坐标从0开始
Begin
for rec_1 in (select emp_no,emp_nm,sex from empm) loop   
tb(i).vemp_no:=rec_1.emp_no; --注意此处的语法
tb(i).vemp_name:=rec_1.emp_name;
tb(i).vemp_sex:=rec_1.emp_sex;
i:=i+1;
end loop;
for j in 1..i loop
dbms_output.put_line('tb('||to_char(n)||')='||tb(j).vemp_no);
dbms_output.put_line('tb('||to_char(n)||')='||tb(j).vemp_name);
dbms_output.put_line('tb('||to_char(n)||')='||tb(j).vemp_sex);
dbms_output.put_line('----------------------------');
n:=n+1;
end loop;
End;
-- subtype 给用户定义的子类型命名
declare
   subtype sub_empm is empm%rowtype;
   v_empm sub_empm;
begin
   select * into v_empm from empm where emp_no = '001';
   dbms_output.put_line( v_empm.emp_nm);
end ;