create or replace procedure p
is
cursor c
is
select * from dept2 for update;
begin
for row_record in c loop
if (row_record.deptno = 30) then
update dept2 set dname = substr(dname, 0, length(dname) - 3) where current of c;
end if;
end loop;
end;
exec p;
begin
p;
end;
--帶參儲存過程
--in 輸入引數，不帶in out 預設輸入引數
--out 輸出引數
--inout 同時帶的是輸入輸入引數
create or replace procedure p2(
a in number,
b number,
s_result out number,
s_temp inout number
)
is
begin
if (a > b) then
s_result := a;
else
s_result := b;
end if;
s_temp := s_temp + 3;
end;
--呼叫儲存過程
declare
v_a number := 4;
v_b number := 6;
v_result number;
v_temp number := 5;
begin
p2(v_a, v_b, v_result, v_temp);
dbms_output.put_line(v_a);
dbms_output.put_line(v_b);
dbms_output.put_line(v_result);
dbms_output.put_line(v_temp);
end;
---刪除乙個表的過程
create or replace procedure drop_table(tname varchar2)
as
total int := 0;
begin
select count(*) into total from user_tables
where table_name = upper(tname);
if total >= 1 then
execute immediate 'drop table '||tname; --此處必須用動態sql
end if;
end;
select * from user_tables;
--遞迴儲存過程
create or replace procedure pro_emp(sempno emp.empno%type, slevel integer)
is
cursor c is select * from emp where mgr = sempno;
prefixstr varchar(255);
begin
for i in 1..slevel loop
prefixstr := prefixstr || '----';
end loop;
for row_data in c loop
dbms_output.put_line(prefixstr || row_data.ename);
pro_emp(row_data.empno, slevel + 1);
end loop;
end;
select * from emp;
begin
pro_emp(7839, 0);
end;
Oracle筆記 十 PL SQL儲存過程
or replace 建立或替換，如果存在就替換，不存在就建立create or replace procedure piscursor cisselect from dept2 for update beginfor row record in c loopif row record.deptno...
Oracle筆記 十 PL SQL儲存過程
or replace 建立或替換，如果存在就替換，不存在就建立create or replace procedure piscursor cisselect from dept2 for update beginfor row record in c loopif row record.deptno...
oracle學習筆記 PL SQL
pl sql 它是一種過程化語言，在pl sql中可以使用if語句或是log語句，以實現控制程式的執行流程，甚至可以定義變數，以至在語句之間傳遞資料資訊，這樣pl sql語言就能夠實現操控程式處理的細節，因此使用pl sql語句可以實現比較複雜的業務邏輯，它是oracle的專用語言，它是對標準sql...