oracle procedure儲存過程(pl/sql)_使用declare cursor_begin end巢狀

SQL> select * from dept;

    DEPTNO DNAME          LOC
---------- -------------- -------------
        80 dba            beijing
        10 ACCOUNTING     NEW YORK
        20 RESEARCH       DALLAS
        30 SALES          CHICAGO
        40 OPERATIONS     BOSTON

SQL> select * from tmp_dept;

未選定行

SQL> declare
  2  cursor cur_dept is select deptno from dept;
  3  begin
  4  for dept_rec in cur_dept loop
  5   insert into tmp_dept(deptno) values(dept_rec.deptno);
  6  end loop;
  7  end;
  8  /

PL/SQL 過程已成功完成。

SQL> select * from tmp_dept;

    DEPTNO DNAME          LOC
---------- -------------- -------------
        10
        20
        30
        40
        80

SQL> truncate table tmp_dept;

表被截斷。

SQL> create or replace procedure  proc_tmp_dept
  2  as
  3  begin
  4  declare --此declare不能少,pl/sql儲存過程begin-end可以含多層，
                     --即可以巢狀多次
  5  cursor cur_dept is select deptno from dept;
  6  begin  --此begin不能少，不寫此begin與對應的end（即for loop程式碼塊不用begin end括起來，會報編譯錯誤）
  7  for dept_rec in cur_dept loop
  8   insert into tmp_dept(deptno) values(dept_rec.deptno);
  9  end loop;
 10  end;
 11  end;
 12  /

過程已建立。

SQL> select * from tmp_dept;

未選定行

SQL> exec proc_tmp_dept;

PL/SQL 過程已成功完成。

SQL> commit;

提交完成。

SQL> select * from tmp_dept;

    DEPTNO DNAME          LOC
---------- -------------- -------------
        10
        20
        30
        40
        80

SQL>