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 ;