oracle存儲過程和遊標的使用

遊標：

用來查詢數據庫，獲取記錄集合（結果集）的指針，咱們所說的遊標一般是指顯式遊標，所以從如今起沒有特別指明的狀況，咱們所說的遊標都是指顯式遊標。要在程序中使用遊標，必須首先聲明遊標分類：

靜態遊標：
分爲顯式遊標和隱式遊標。

REF遊標：
是一種引用類型，相似於指針。

顯式遊標：

 CURSOR 遊標名 ( 參數 ) [返回值類型] IS
  Select 語句

生命週期：

在大多數時候咱們在設計程序的時候都遵循下面的步驟：
　一、打開遊標 open cs1;
　二、開始循環 while cs1%found loop | for column_name in .. LOOP
　三、從遊標中取值 fetch .. into.. |
　四、檢查那一行被返回
　五、處理
　六、關閉循環 end loop;
　七、關閉遊標 if cs1&isopen then close cs1;

選項：參數和返回類型

set serveroutput on
declare
 cursor emp_cur ( p_deptid in number) is
select * from employees where department_id = p_deptid;

l_emp employees%rowtype;
begin
 dbms_output.put_line('Getting employees from department 30');
open emp_cur(30);
 loop
  fetch emp_cur into l_emp;
  exit when emp_cur%notfound;
  dbms_output.put_line('Employee id '|| l_emp.employee_id || ' is ');
  dbms_output.put_line(l_emp.first_name || ' ' || l_emp.last_name);
 end loop;
 close emp_cur;

 dbms_output.put_line('Getting employees from department 90');
open emp_cur(90);
 loop
  fetch emp_cur into l_emp;
  exit when emp_cur%notfound;
  dbms_output.put_line('Employee id '|| l_emp.employee_id || ' is ');
  dbms_output.put_line(l_emp.first_name || ' ' || l_emp.last_name);
 end loop;
 close emp_cur;
end;
/

隱式遊標：

不用明確創建遊標變量，分兩種：
1.在PL/SQL中使用DML語言，使用ORACLE提供的名爲SQL的隱示遊標
2.CURSOR FOR LOOP，用於for loop 語句

1舉例：

declare
begin
 update departments set department_name=department_name;
 --where 1=2;
 
 dbms_output.put_line('update '|| sql%rowcount ||' records');
end;
/

2舉例：

declare
begin
 for my_dept_rec in ( select department_name, department_id from departments)
 loop
  dbms_output.put_line(my_dept_rec.department_id || ' : ' || my_dept_rec.department_name);
 end loop;
end;
/

3舉例：

單獨select

declare
 l_empno emp.EMPLOYEE_ID%type;
-- l_ename emp.ename%type;
begin
 select EMPLOYEE_ID   
  into l_empno
 from emp;
 --where rownum =1;
 dbms_output.put_line(l_empno);
end;
/
使用INTO獲取值，只能返回一行。

遊標屬性：

%FOUND：變量最後從遊標中獲取記錄的時候，在結果集中找到了記錄。
%NOTFOUND：變量最後從遊標中獲取記錄的時候，在結果集中沒有找到記錄。
%ROWCOUNT：當前時刻已經從遊標中獲取的記錄數量。
%ISOPEN：是否打開。

Declare
 Cursor emps is
 Select * from employees where rownum<6 order by 1;
 
 Emp employees%rowtype;
 Row number :=1;
Begin
 Open emps;
 Fetch emps into emp;
 
 Loop
  If emps%found then
   Dbms_output.put_line('Looping over record '||row|| ' of ' || emps%rowcount);
   Fetch emps into emp;
   Row := row + 1;
  Elsif emps%notfound then
   Exit;  ---exit loop, not IF
  End if;
 End loop;
 
 If emps%isopen then
  Close emps;
 End if;
End;
/

顯式和隱式遊標的區別：

儘可能使用隱式遊標，避免編寫附加的遊標控制代碼（聲明，打開，獲取，關閉），也不須要聲明變量來保存從遊標中獲取的數據。

REF CURSOR遊標：

動態遊標，在運行的時候才能肯定遊標使用的查詢。分類：
強類型（限制）REF CURSOR，規定返回類型
弱類型（非限制）REF CURSOR，不規定返回類型，能夠獲取任何結果集。

TYPE ref_cursor_name IS REF CURSOR [RETURN return_type]

Declare
 Type refcur_t is ref cursor;
 
 Type emp_refcur_t is ref cursor return employee%rowtype;
Begin
 Null;
End;
/

強類型舉例：

declare
 --聲明記錄類型
 type emp_job_rec is record(
  employee_id number,
  employee_name varchar2(50),
  job_title varchar2(30)
 );
 --聲明REF CURSOR，返回值爲該記錄類型
 type emp_job_refcur_type is ref cursor
  return emp_job_rec;
 --定義REF CURSOR遊標的變量
 emp_refcur emp_job_refcur_type;

 emp_job emp_job_rec;
begin
 open emp_refcur for
  select e.employee_id,
    e.first_name || ' ' ||e.last_name "employee_name",
    j.job_title
  from employees e, jobs j
  where e.job_id = j.job_id and rownum < 11 order by 1;

 fetch emp_refcur into emp_job;
 while emp_refcur%found loop
  dbms_output.put_line(emp_job.employee_name || '''s job is ');
  dbms_output.put_line(emp_job.job_title);
  fetch emp_refcur into emp_job;
 end loop;
end;
----------------------------------------------------------------------------------------

Oracle數據庫遊標使用大全
SQL是用於訪問ORACLE數據庫的語言，PL/SQL擴展和增強了SQL的功能，它同時引入了更
強的程序邏輯。 PL/SQL支持DML命令和SQL的事務控制語句。DDL在PL/SQL中不被支持，這就
意味做在PL/SQL程序塊中不能建立表或其餘任何對象。較好的PL/SQL程序設計是在PL/SQL塊中
使用象DBMS_SQL這樣的內建包或執行EXECUTE IMMEDIATE命令創建動態SQL來執行DDL命令，
　下面咱們將討論各類用於訪問ORACLE數據庫的DDL和TCL語句。
　查詢
　SELECT語句用於從數據庫中查詢數據，當在PL/SQL中使用SELECT語句時，要與INTO子
句一塊兒使用，查詢的返回值被賦予INTO子句中的變量，變量的聲明是在DELCARE中。SELECT
　　SELECT [DISTICT|ALL]{*|column[,column,...]}

　　INTO (variable[,variable,...] |record)
　　FROM {table|(sub-query)}[alias]
　　WHERE............
　PL/SQL中SELECT語句只返回一行數據。若是超過一行數據，那麼就要使用顯式遊標（
對遊標的討論咱們將在後面進行），INTO子句中要有與SELECT子句中相同列數量的變量。INTO
　%TYPE屬性
　在PL/SQL中能夠將變量和常量聲明爲內建或用戶定義的數據類型，以引用一個列名，
同時繼承他的數據類型和大小。這種動態賦值方法是很是有用的，好比變量引用的列的數據類
型和大小改變了，若是使用了%TYPE,那麼用戶就沒必要修改代碼，不然就必須修改代碼。
例：
　　v_empno SCOTT.EMP.EMPNO%TYPE;
　　v_salary EMP.SALARY%TYPE;
　不但列名可使用%TYPE,並且變量、遊標、記錄，或聲明的常量均可以使用%TYPE。
　　DELCARE
　　V_A NUMBER(5):=10;
　　V_B V_A%TYPE:=15;
　　V_C V_A%TYPE;
　　BEGIN
　　DBMS_OUTPUT.PUT_LINE
　　('V_A='||V_A||'V_B='||V_B||'V_C='||V_C);
　　END
　　SQL>/
　　V_A=10 V_B=15 V_C=
　　PL/SQL procedure successfully completed.

　其餘DML語句
　其它操做數據的DML語句是:INSERT、UPDATE、DELETE和LOCK TABLE,這些語句在
PL/SQL中的語法與在SQL中的語法相同。咱們在前面已經討論過DML語句的使用這裏就再也不重
復了。在DML語句中可使用任何在DECLARE部分聲明的變量，若是是嵌套塊，那麼要注意變
　例：
　　CREATE OR REPLACE PROCEDURE FIRE_EMPLOYEE (pempno in number)
AS
　v_ename EMP.ENAME%TYPE;
BEGIN
　SELECT ename INTO v_ename
　FROM emp
　WHERE empno=p_empno;
　INSERT INTO FORMER_EMP(EMPNO,ENAME)
　VALUES (p_empno,v_ename);
　DELETE FROM emp
　WHERE empno=p_empno;
　UPDATE former_emp
　SET date_deleted=SYSDATE
　WHERE empno=p_empno;
　EXCEPTION
　　WHEN NO_DATA_FOUND THEN
　　DBMS_OUTPUT.PUT_LINE('Employee Number Not Found!');
END
　DML語句的結果
　當執行一條DML語句後，DML語句的結果保存在四個遊標屬性中，這些屬性用於控制程
序流程或者瞭解程序的狀態。當運行DML語句時，PL/SQL打開一個內建遊標並處理結果，遊標
是維護查詢結果的內存中的一個區域，遊標在運行DML語句時打開，完成後關閉。隱式遊標只
使用SQL%FOUND,SQL%NOTFOUND,SQL%ROWCOUNT三個屬性.SQL%FOUND,SQL%NOTFOUND是布爾值，
　SQL%FOUND和SQL%NOTFOUND
　在執行任何DML語句前SQL%FOUND和SQL%NOTFOUND的值都是NULL,在執行DML語句後，
　. TRUE :INSERT
　. TRUE :DELETE和UPDATE，至少有一行被DELETE或UPDATE.
　. TRUE :SELECT INTO至少返回一行
　當SQL%FOUND爲TRUE時,SQL%NOTFOUND爲FALSE。
　SQL%ROWCOUNT
　在執行任何DML語句以前，SQL%ROWCOUNT的值都是NULL,對於SELECT INTO語句，若是
執行成功，SQL%ROWCOUNT的值爲1,若是沒有成功，SQL%ROWCOUNT的值爲0，同時產生一個異常
　SQL%ISOPEN
　SQL%ISOPEN是一個布爾值，若是遊標打開，則爲TRUE, 若是遊標關閉，則爲FALSE.對
於隱式遊標而言SQL%ISOPEN老是FALSE，這是由於隱式遊標在DML語句執行時打開，結束時就
　事務控制語句
　事務是一個工做的邏輯單元能夠包括一個或多個DML語句，事物控制幫助用戶保證數
據的一致性。若是事務控制邏輯單元中的任何一個DML語句失敗，那麼整個事務都將回滾，在
PL/SQL中用戶能夠明確地使用COMMIT、ROLLBACK、SAVEPOINT以及SET TRANSACTION語句。
　COMMIT語句終止事務，永久保存數據庫的變化，同時釋放全部LOCK,ROLLBACK終止現
行事務釋放全部LOCK，但不保存數據庫的任何變化,SAVEPOINT用於設置中間點，當事務調用過
多的數據庫操做時，中間點是很是有用的，SET TRANSACTION用於設置事務屬性，好比
　顯式遊標
　當查詢返回結果超過一行時，就須要一個顯式遊標，此時用戶不能使用select into
語句。PL/SQL管理隱式遊標，當查詢開始時隱式遊標打開，查詢結束時隱式遊標自動關閉。顯
式遊標在PL/SQL塊的聲明部分聲明，在執行部分或異常處理部分打開，取數據,關閉。下表顯
　表1 隱式遊標和顯式遊標
　　[[The No.1 Picture.]]
　　使用遊標
　這裏要作一個聲明，咱們所說的遊標一般是指顯式遊標，所以從如今起沒有特別指明
的狀況，咱們所說的遊標都是指顯式遊標。要在程序中使用遊標，必須首先聲明遊標。
　聲明遊標
　語法：
　　CURSOR cursor_name IS select_statement;

　在PL/SQL中游標名是一個未聲明變量，不能給遊標名賦值或用於表達式中。
　例：
　　DELCARE
　　CURSOR C_EMP IS SELECT empno,ename,salary

　　FROM emp 　　WHERE salary>2000
　　ORDER BY ename;
　　........
　　BEGIN
　在遊標定義中SELECT語句中不必定非要表能夠是視圖，也能夠從多個表或視圖中選擇
　打開遊標
　使用遊標中的值以前應該首先打開遊標，打開遊標初始化查詢處理。打開遊標的語法
　　OPEN cursor_name
　cursor_name是在聲明部分定義的遊標名。
　例：
　　OPEN C_EMP;
　關閉遊標
　語法：
　　CLOSE cursor_name
　例：
　　CLOSE C_EMP;
　從遊標提取數據
　從遊標獲得一行數據使用FETCH命令。每一次提取數據後，遊標都指向結果集的下一
　　FETCH cursor_name INTO variable[,variable,...]
　對於SELECT定義的遊標的每一列，FETCH變量列表都應該有一個變量與之相對應，變
　例：
　　SET SERVERIUTPUT ON
　　DECLARE
　　v_ename EMP.ENAME%TYPE;
　　v_salary EMP.SALARY%TYPE;
　　CURSOR c_emp IS SELECT ename,salary FROM emp;

　　BEGIN
　　OPEN c_emp;
　　FETCH c_emp INTO v_ename,v_salary;
　　DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename
　　||'is'|| v_salary);
　　FETCH c_emp INTO v_ename,v_salary;
　　DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename
　　||'is'|| v_salary);
　　FETCH c_emp INTO v_ename,v_salary;
　　DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename
　　||'is'|| v_salary);
　　CLOSE c_emp;
　　END
　這段代碼無疑是很是麻煩的，若是有多行返回結果，可使用循環並用遊標屬性爲結
束循環的條件，以這種方式提取數據，程序的可讀性和簡潔性都大爲提升，下面咱們使用循環
　　SET SERVERIUTPUT ON
　　DECLARE
　　v_ename EMP.ENAME%TYPE;
　　v_salary EMP.SALARY%TYPE;
　　CURSOR c_emp IS SELECT ename,salary FROM emp;

　　BEGIN
　　OPEN c_emp;
　　LOOP
　　FETCH c_emp INTO v_ename,v_salary;
　　EXIT WHEN c_emp%NOTFOUND;
　　DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename
　　||'is'|| v_salary);
　　END
　記錄變量
　定義一個記錄變量使用TYPE命令和%ROWTYPE，關於%ROWsTYPE的更多信息請參閱相關
　記錄變量用於從遊標中提取數據行，當遊標選擇不少列的時候，那麼使用記錄比爲每
　當在表上使用%ROWTYPE並將從遊標中取出的值放入記錄中時，若是要選擇表中全部列
，那麼在SELECT子句中使用*比將全部列名列出來要安全得多。
　例：
　　SET SERVERIUTPUT ON
　　DECLARE
　　R_emp EMP%ROWTYPE;
　　CURSOR c_emp IS SELECT * FROM emp;
　　BEGIN
　　OPEN c_emp;
　　LOOP
　　FETCH c_emp INTO r_emp;
　　EXIT WHEN c_emp%NOTFOUND;
　　DBMS_OUT.PUT.PUT_LINE('Salary of Employee'||r_emp.ename||'is'|| r_emp.salary);
　　END LOOP;
　　CLOSE c_emp;
　　END;
　%ROWTYPE也能夠用遊標名來定義，這樣的話就必需要首先聲明遊標：
　　SET SERVERIUTPUT ON
　　DECLARE
　　CURSOR c_emp IS SELECT ename,salary FROM emp;
　　R_emp c_emp%ROWTYPE;
　　BEGIN
　　OPEN c_emp;
　　LOOP
　　FETCH c_emp INTO r_emp;
　　EXIT WHEN c_emp%NOTFOUND;
　　DBMS_OUT.PUT.PUT_LINE('Salary of Employee'||r_emp.ename||'is'|| r_emp.salary);
　　END LOOP;
　　CLOSE c_emp;
　　END;
　帶參數的遊標
　與存儲過程和函數類似，能夠將參數傳遞給遊標並在查詢中使用。這對於處理在某種
條件下打開遊標的狀況很是有用。它的語法以下：
　　CURSOR cursor_name[(parameter[,parameter],...)] IS select_statement;
　定義參數的語法以下：
　　Parameter_name [IN] data_type[{:=|DEFAULT} value]
　與存儲過程不一樣的是，遊標只能接受傳遞的值，而不能返回值。參數只定義數據類型
　另外能夠給參數設定一個缺省值，當沒有參數值傳遞給遊標時，就使用缺省值。遊標
中定義的參數只是一個佔位符，在別處引用該參數不必定可靠。
　在打開遊標時給參數賦值，語法以下：
　　OPEN cursor_name[value[,value]....];
　參數值能夠是文字或變量。
　例：
　　DECALRE
　　CURSOR c_dept IS SELECT * FROM dept ORDER BY deptno;
　　CURSOR c_emp (p_dept VARACHAR2) IS
　　SELECT ename,salary
　　FROM emp
　　WHERE deptno=p_dept
　　ORDER BY ename
　　r_dept DEPT%ROWTYPE;
　　v_ename EMP.ENAME%TYPE;
　　v_salary EMP.SALARY%TYPE;
　　v_tot_salary EMP.SALARY%TYPE;
　　BEGIN
　　OPEN c_dept;
　　LOOP
　　FETCH c_dept INTO r_dept;
　　EXIT WHEN c_dept%NOTFOUND;
　　DBMS_OUTPUT.PUT_LINE('Department:'|| r_dept.deptno||'-'||r_dept.dname);
　　v_tot_salary:=0;
　　OPEN c_emp(r_dept.deptno);
　　LOOP
　　FETCH c_emp INTO v_ename,v_salary;
　　EXIT WHEN c_emp%NOTFOUND;
　　DBMS_OUTPUT.PUT_LINE('Name:'|| v_ename||' salary:'||v_salary);
　　v_tot_salary:=v_tot_salary+v_salary;
　　END LOOP;
　　CLOSE c_emp;
　　DBMS_OUTPUT.PUT_LINE('Toltal Salary for dept:'|| v_tot_salary);
　　END LOOP;
　　CLOSE c_dept;
　　END;
　　遊標FOR循環
　在大多數時候咱們在設計程序的時候都遵循下面的步驟：
　一、打開遊標
　二、開始循環
　三、從遊標中取值
　四、檢查那一行被返回
　五、處理
　六、關閉循環
　七、關閉遊標
　能夠簡單的把這一類代碼稱爲遊標用於循環。但還有一種循環與這種類型不相同，這
就是FOR循環，用於FOR循環的遊標按照正常的聲明方式聲明，它的優勢在於不須要顯式的打開
、關閉、取數據，測試數據的存在、定義存放數據的變量等等。遊標FOR 循環的語法以下：
　　FOR record_name IN
　　(corsor_name[(parameter[,parameter]...)]
　　| (query_difinition)
　　LOOP
　　statements
　　END LOOP;
　下面咱們用for循環重寫上面的例子：
　　DECALRE
　　CURSOR c_dept IS SELECT deptno,dname FROM dept ORDER BY deptno;
　　CURSOR c_emp (p_dept VARACHAR2) IS
　　SELECT ename,salary
　　FROM emp
　　WHERE deptno=p_dept
　　ORDER BY ename
　　v_tot_salary EMP.SALARY%TYPE;
　　BEGIN
　　FOR r_dept IN c_dept LOOP
　　DBMS_OUTPUT.PUT_LINE('Department:'|| r_dept.deptno||'-'||r_dept.dname);
　　v_tot_salary:=0;
　　FOR r_emp IN c_emp(r_dept.deptno) LOOP
　　DBMS_OUTPUT.PUT_LINE('Name:'|| v_ename||' salary:'||v_salary);
　　v_tot_salary:=v_tot_salary+v_salary;
　　END LOOP;
　　DBMS_OUTPUT.PUT_LINE('Toltal Salary for dept:'|| v_tot_salary);
　　END LOOP;
　　END;
　在遊標FOR循環中使用查詢
　在遊標FOR循環中能夠定義查詢，因爲沒有顯式聲明因此遊標沒有名字，記錄名經過
　　DECALRE
v_tot_salary EMP.SALARY%TYPE;
　　BEGIN
FOR r_dept IN (SELECT deptno,dname FROM dept ORDER BY deptno) LOOP
　DBMS_OUTPUT.PUT_LINE('Department:'|| r_dept.deptno||'-'||r_dept.dname);
　v_tot_salary:=0;
　FOR r_emp IN (SELECT ename,salary
　　FROM emp
　　WHERE deptno=p_dept
　　ORDER BY ename) LOOP
　DBMS_OUTPUT.PUT_LINE('Name:'|| v_ename||' salary:'||v_salary);
　v_tot_salary:=v_tot_salary+v_salary;
　END LOOP;
　DBMS_OUTPUT.PUT_LINE('Toltal Salary for dept:'|| v_tot_salary);
END LOOP;
　　END;
　遊標中的子查詢
　語法以下：
　　CURSOR C1 IS SELECT * FROM emp
　　WHERE deptno NOT IN (SELECT deptno
　　FROM dept
　　WHERE dname!='ACCOUNTING');
　能夠看出與SQL中的子查詢沒有什麼區別。
　遊標中的更新和刪除
　在PL/SQL中依然可使用UPDATE和DELETE語句更新或刪除數據行。顯式遊標只有在需
要得到多行數據的狀況下使用。PL/SQL提供了僅僅使用遊標就能夠執行刪除或更新記錄的方法
　UPDATE或DELETE語句中的WHERE CURRENT OF子串專門處理要執行UPDATE或DELETE操做
的表中取出的最近的數據。要使用這個方法，在聲明遊標時必須使用FOR UPDATE子串，當對話
使用FOR UPDATE子串打開一個遊標時，全部返回集中的數據行都將處於行級（ROW-LEVEL)獨佔
式鎖定，其餘對象只能查詢這些數據行，不能進行UPDATE、DELETE或SELECT...FOR UPDATE操
　語法：
　　FOR UPDATE [OF [schema.]table.column[,[schema.]table.column]..
　　[nowait]
　在多表查詢中，使用OF子句來鎖定特定的表,若是忽略了OF子句，那麼全部表中選擇
的數據行都將被鎖定。若是這些數據行已經被其餘會話鎖定，那麼正常狀況下ORACLE將等待，
　在UPDATE和DELETE中使用WHERE CURRENT OF子串的語法以下：
　　WHERE{CURRENT OF cursor_name|search_condition}
　例：
　　DELCARE
　　CURSOR c1 IS SELECT empno,salary
　　FROM emp
　　WHERE comm IS NULL
　　FOR UPDATE OF comm;
　　v_comm NUMBER(10,2);
　　BEGIN
　　FOR r1 IN c1 LOOP
　　IF r1.salary<500 THEN
　　v_comm:=r1.salary*0.25; 　　ELSEIF r1.salary<1000 THEN
　　v_comm:=r1.salary*0.20; 　　ELSEIF r1.salary<3000 THEN
　　v_comm:=r1.salary*0.15;
　　ELSE
　　v_comm:=r1.salary*0.12;
　　END IF;
　　UPDATE emp;
　　SET comm=v_comm
　　WHERE CURRENT OF c1l;
　　END LOOP;
　　END

 附[WHERE CURRENT OF ]:

where   current   of   子句只能在定義遊標的時候使用了   for   update語句纔可使用。          for   v_sor   in   t_sor   loop           update   aa   set   value='3'   where   current   of   v_sor;       --已限制了條件了，更新只是當前記錄集           end   loop;          上面的語句中   v_sor   是   t_sor中的一行數據，更新的時候應該用   current  of   t_sor吧，由於v_sor只是一個隱式遊標，它自己不是經過   for   update定義的，只是表明了循環中t_sor的當前記錄。這樣，你的update語句或者delete語句的做用範圍就只在你循環的當前行的範圍中了。         要注意的是，用for   update定義的遊標會讓數據庫對涉及的行加鎖，別的會話若是要訪問該遊標中的行便會進入等待狀態。你也能夠明確指明要加鎖的列，用   for   update   of   "列名"     就能夠了。         若是你的select   for   update選中的行已經被別的會話加鎖的話,會話就須要等待解鎖，若是別的會話一直不解鎖，那麼你的select就會一直等待下去，若是你不想等,只需在for   update後面加上nowait就能夠解決這個問題了,這樣你的選擇會當即返回。