1.sql
declare
--類型定義
cursor c_emp
is
select * from emp_info;
--定義一個遊標變量v_cinfo c_emp%ROWTYPE ,該類型爲遊標c_emp中的一行數據類型
c_row c_emp%rowtype;
begin
for c_row in c_emp loop
dbms_output.put_line(c_row.id||'-'||c_row.emp_id||'-'||c_row.emp_name||'-'||c_row.emp_sex);
end loop;
end;oop
2.測試
--Fetch遊標
--使用的時候必需要明確的打開和關閉fetch
declare
--類型定義
cursor c_emp
is
select * from emp_info;
--定義一個遊標變量v_cinfo c_emp%ROWTYPE ,該類型爲遊標c_emp中的一行數據類型
c_row c_emp%rowtype;
begin
open c_emp;
loop
--提取一行數據到c_row
fetch c_emp into c_row;
--判讀是否提取到值,沒取到值就退出
--取到值c_job%notfound 是false
--取不到值c_job%notfound 是true
exit when c_emp%notfound;
dbms_output.put_line(c_row.id||'-'||c_row.emp_id||'-'||c_row.emp_name||'-'||c_row.emp_sex);
end loop;
--關閉遊標
close c_emp;
end;.net
3.ci
begin
update emp_info set emp_name='gxl@@#@' WHERE EMP_id=2;
if sql%isopen then
dbms_output.put_line('Openging');
else
dbms_output.put_line('closing');
end if;
if sql%found then
dbms_output.put_line('遊標指向了有效行');--判斷遊標是否指向有效行
else
dbms_output.put_line('Sorry');
end if;
if sql%notfound then
dbms_output.put_line('Also Sorry');
else
dbms_output.put_line('Haha');
end if;
dbms_output.put_line(sql%rowcount);
exception
when no_data_found then
dbms_output.put_line('Sorry No data');
when too_many_rows then
dbms_output.put_line('Too Many rows');
WHEN OTHERS THEN
Dbms_Output.put_line('OTHERS!');get
end;it
4.io
--3,使用遊標和while循環來顯示全部部門的的地理位置(用%found屬性)
--遊標聲明
declare
--類型定義
cursor c_emp
is
select * from emp_info;
--定義一個遊標變量v_cinfo c_emp%ROWTYPE ,該類型爲遊標c_emp中的一行數據類型
c_row c_emp%rowtype;
begin
--打開遊標
open c_emp;
--給第一行喂數據
fetch c_emp into c_row;
--測試是否有數據,並執行循環
while c_emp%found loop
dbms_output.put_line('部門地點:'||c_row.emp_name);
--給下一行喂數據
fetch c_emp into c_row;
end loop;
close c_emp;
end;
5.table
declare
--類型定義
cursor c_emp(emp_id_i number)
is
select * from emp_info where emp_id = emp_id_i;
--定義一個遊標變量v_cinfo c_emp%ROWTYPE ,該類型爲遊標c_emp中的一行數據類型
c_row c_emp%rowtype;
begin
for c_row in c_emp(1) loop
dbms_output.put_line(c_row.id||'-'||c_row.emp_id||'-'||c_row.emp_name||'-'||c_row.emp_sex);
end loop;
end;
6.
--6:用更新遊標來爲僱員加佣金:(用if實現,建立一個與emp表一摸同樣的emp1表,對emp1表進行修改操做),並將更新先後的數據輸出出來 - create table emp_info1 as select * from emp_info; declare cursor csr_Update is select * from emp_info1 for update OF emp_name; empInfo csr_Update%rowtype; emp_name_info emp_info1.emp_name%TYPE; begin FOR empInfo IN csr_Update LOOP IF empInfo.emp_id<2 THEN emp_name_info:='a'; elsif empInfo.emp_id=3 THEN emp_name_info:='b'; END IF; UPDATE emp_info1 SET emp_name=emp_name_info WHERE CURRENT OF csr_Update; END LOOP; END;