创建游标.存储过程及包
/*********************************游标********************************/
/*单向游标：
declare cursor 游标名 is select 语句
带参游标：
declare cursor 游标名 (参数1 类型，.....）is select 语句（可以带参数）
游标属性：
%found ---是否找到
%isopen ---是否打开
%notfound ---找不到游标
%rowcount ---判断游标是否有结果
游标循环：
FOR 变量 IN 游标名 LOOP
语句
END LOOP
/************例子**************/
declare
cursor cur_emp is select * from emp;
e emp%rowtype;
begin
open cur_emp;
fetch cur_emp into e;
while cur_emp%found
loop
dbms_output.put_line(to_char(e.empno)||','||e.ename||','||e.job);
fetch cur_emp into e;
end loop;
close cur_emp;
end;
PL/SQL 过程已成功完成。
/*******不需定义和关闭游标****************/
SQL> begin 2 for e in(select * from emp) 3 loop 4 dbms_output.put_line(to_char(e.empno)||','||e.ename||','||e.job); 5 end loop; 6 end; 7 /
PL/SQL 过程已成功完成。
/*************************************存储过程******************************/
/*过程（procedure)
create or replace procedure
(参数1 in/out/in out 类型，
参数2 in/out/in out 类型，
..........)
is/as
pl/sql语句块
/************例子**************/
1 create or replace procedure proc_emp 2 ( j in varchar2, 3 c out integer) 4 as 5 counter integer:=0; 6 begin 7 for e in (select *from emp where job=j) 8 loop 9 dbms_output.put_line(to_char(e.empno)||','||e.ename||','||e.job); 10 counter:=(counter+1); 11 end loop; 12 c:=counter; 13* end; 14 /
过程已创建。
/********调用************/
exec 过程（[参数]）
/**********************************函数***************************/
/*函数（FOUCTION）
create or replace function 名
return 类型 is/as
pl/sql语句块
/***********例子************/
1 create or replace function fun_emp 2 ( j in varchar2) 3 return integer 4 as 5 counter integer:=0; 6 begin 7 for e in (select *from emp where job=j) 8 loop 9 dbms_output.put_line(to_char(e.empno)||','||e.ename||','||e.job); 10 counter:=(counter+1); 11 end loop; 12 return counter; 13* end; SQL> /
函数已创建。
执行：exec 函数（[参数]）
/************************************创建包**********************/
/*包头：
create or replace package 名
is/as
定义部分
end
包体：
create or replace package body 名
is/as
代码部分
end
/*********例子*********************/
--..........建包头................ create or replace package pag_wlxt as procedure proc_ruku(code varchar2); -- 入库单号 end;
--.........建包体.................
create or replace package body pag_wlxt as procedure proc_ruku(code varchar2) is num integer :=0; counter integer :=0; shbz wltrkgl0.rkshbz%type; rkcb wltrkgl0%rowtype; kcb wltkcgl0%rowtype;