oracle---包，游标

[code]
游标就是一个指向内存的指针

1.隐式游标 ----意义在于对DML语句返回值的监控

pl/sql 中【DML】操作的时候自动创建隐式游标
通过检查隐身游标的属性可以获得【最近】执行的DML的信息
%found ----语句影响了一行或者多行是为true
%notfound ---sql没有影响任何行时为true
%rowcount ---sql语句影响的行数
%isopen --游标是否打开，始终为false
使用的时候一般SQL%found 等等

注意：隐式游标与select无关，只适用于DML
如果是select查不到东西，将发生NO_DATA_FOUND异常
SELECT *
INTO v_RoomData FROM rooms WHERE room_id = -1;
EXCEPTION
WHEN NO_DATA_FOUND THEN/*注意，这是真正执行的*/
INSERT INTO temp_table (char_col)
VALUES ('Not found, exception handler');

如果select 返回太多，抛TOO_MANY_ROWS异常
BEGIN
SELECT empno INTO empid FROM employee;
EXCEPTION
WHEN TOO_MANY_ROWS THEN
DBMS_OUTPUT.PUT_LINE('该查询提取多行');
END

2.显示游标----意义在于对select语句的多行记录进行保存
2.1
声明游标：CURSOR ..IS select..
打开游标：OPEN
结果集控制：FETCH..INTO..
关闭游标：CLOSE
cursor v_cursor is select * from xxx; ---创建游标实例，并把数据放入
open v_cursor;
loop
fetch v_cursor into v_table;
exit when v_cursor%notfound;
dbms_output.put_line(v_table.name);
...
end loop;
close v_cursor;

2.2
带参数的显示游标
cursor v_cursor(param_id number)
is select * from xxx where id= param_id;
open v_cursor(5);
后面是一样的，就相当于使用了绑定变量

2.3
使用游标查出东西来，然后再更改游标中的行，最后一次性插入数据库

cursor v_cursor
is select * from emp
for update of salary; --全部都想更新，那么for update就ok了
begin
open v_cursor;
loop
fetch v_cursor into emp_temp;
exit when emp_temp%notfound;
update emp ---还可以删除，但是上面申明时候出现的关键字update不变
set salary=1.1*emp_temp.salary
where current of v_cursor; --这里指定修改的是游标中的当前条记录
end loop;
close v_cursor;
commit;
end;

3.ref游标-----意义在于声明游标时不绑定select语句，而是在打开的时候绑定
这种一般用于out参数，传出去的
type UserInfo_cursor is ref cursor;
或者：
type UserInfo_cursor is ref cursor
return emp%rowtype; ----相当于定义泛型，oracle叫他强类型

open parm_UserInfo for select * from xxx;
因为是要传出去，所以不用关闭

cursor显示和ref cursor的区别：
Ref cursor根据逻辑动态打开；而游标cursor定义好了就无法修改了
ref cursor可以返回给客户端，cursor则不行。----这个是重点
cursor可以是全局的global ，ref cursor则必须定义在过程或函数中。
ref cursor可以在子程序间传递，cursor则不行。
cursor中定义的静态sql比ref cursor效率高，所以ref cursor通常
用在：向客户端返回结果集。


小知识：循环游标语法----意义在于简化游标处理代码，当用户需要从游标中提取所有记录时使用
这个不是一种游标，而是一种提取游标的方法，他不需要打开和关闭游标
声明相同
begin
for a in v_cursor ---相当于java中增强for
loop
......
end loop;
end;
-------------------------- 小例子---------------------------------------------------------------------------------

SQL> create or replace package pkg_SelectUserInfo --根据用户类型查看用户信息
2 as
3 type UserInfo_cursor is ref cursor;
4 procedure GetUserInfo_proc
5 (parm_RoleName in varchar2,
6 parm_UserInfo out UserInfo_cursor);
7 end pkg_SelectUserInfo;
8 /

程序包已创建。

SQL> create or replace package body pkg_SelectUserInfo
2 as
3 procedure GetUserInfo_proc
4 (parm_RoleName in varchar2,
5 parm_UserInfo out UserInfo_cursor)
6 is
7 begin
8 open parm_UserInfo for
9 select UserID,UserName,PassWord,RoleName
10 from UserInfo,RoleInfo
11 where UserInfo.UserRole=RoleInfo.RoleID and
12 RoleName like parm_RoleName;
13 end;
14 end pkg_SelectUserInfo;
15 /

或者：
SQL> create or replace package body pkg_SelectUserInfo
2 as
3 procedure GetUserInfo_proc
4 (parm_RoleName in varchar2,
5 parm_UserInfo out UserInfo_cursor)
6 is
sqlstr varchar2(500);
7 begin
sqlstr:='select UserID,UserName,PassWord,RoleName
10 from UserInfo,RoleInfo
11 where UserInfo.UserRole=RoleInfo.RoleID and
12 RoleName like :v_role_name';
8 open parm_UserInfo for sqlstr using parm_RoleName ;
13 end;
14 end pkg_SelectUserInfo;
15 /

------------------------------------
传入的str= 1111,2222,34444,sdfef,213213,sfsd
要分割打印：

思路：以逗号为参照系，当前逗号位置 --- 前一个逗号位置 = 长度 + 1

create or replace procedure get_user_id
(user_str varchar2)
as
result varchar2(50);
seq number;
current_idx number ;
pre_idx number ;
user_str2 varchar2(50);
begin
user_str2 := ','||user_str||',';
seq :=2;
current_idx := instr(user_str2,',',1,seq);
pre_idx:=1;
while current_idx!=0 loop
result := substr(user_str2,pre_idx+1,current_idx-1-pre_idx);
dbms_output.put_line(result);
pre_idx := current_idx;
seq := seq+1;
current_idx := instr(user_str2,',',1,seq);
end loop;
end;
/


------------过程的输出参数还可以这样用-----------
create or replace procedure newsidproc --通过公告标题、内容、发布时间获取公告id
(parm_title in varchar2,
parm_content in varchar2,
parm_newstime in date,
parm_newsid out number
)
as
begin
select newsid into parm_newsid
from news
where title=parm_title and content=parm_content and
newstime=parm_newstime;
end


create or replace procedure updatenews --修改公告
(
parm_title varchar2,
parm_content varchar2,
parm_newstime in date
)
as
v_newsid;
begin
v_newsid:=newsidproc(parm_title,parm_content ,parm_newstime)
update news
set title=parm_title, content=parm_content
where newsid=parm_newid;
commit;
end;

[/code]