Question

oracle高手快来看看，我想写一个输出结果集的存储过程并执行

create or replace procedure p_selTabSpace as

var1 varchar2(50);
var2 number;
var3 number;
var4 number;

begin

select 　　a.a1 "tabSpaceName" ,
b.b2/1024/1024 "tabSpaceSize" ,
round((b.b2 - a.a2) / 1024 / 1024, 2) "tabSpaceUsed" ,
substr((b.b2 - a.a2) / b.b2, 1, 7) "tabSpaceVused" into var1,into var2,into var3, into var4
from
(select tablespace_name a1, sum(nvl(bytes, 0)) a2
from dba_free_space
group by tablespace_name) a,

　　 (select tablespace_name b1, sum(bytes) b2
from dba_data_files
group by tablespace_name) b,

　　 (select tablespace_name c1, contents c2, extent_management c3
from dba_tablespaces) c

　　where a.a1 = b.b1 and c.c1 = b.b1;
请问我的这个应该如何改一下才可忙正确执行，输出的应该是一个结果集
可能是我的代码比较乱吧，里面的SQL语句是用来查询表空间利用率的，因为直接写SQL在程序中响应太慢了，本身执行SQL也比较慢，所以想通过存储过程来优化一下，我再在用的游标
create or replace procedure p_selTabSpace(o_cur out sys_refcursor) as

begin

open o_cur for select 　　a.a1 "tabSpaceName" ,
b.b2 "tabSpaceSize" ,
round((b.b2 - a.a2) / 1024 / 1024, 2) tabSpaceUsed ,
substr((b.b2 - a.a2) / b.b2, 1, 7) tabSpaceVused
　　from

　　 (select tablespace_name a1, sum(nvl(bytes, 0)) a2
from dba_free_space
group by tablespace_name) a,

　　 (select tablespace_name b1, sum(bytes) / 1024 / 1024 b2
from dba_data_files
group by tablespace_name) b,

　　 (select tablespace_name c1, contents c2, extent_management c3
from dba_tablespaces) c

　　where a.a1 = b.b1 and c.c1 = b.b1;

end p_selTabSpace;
但是怎样在IBATIS中执行呢，

Answer 1

create or replace procedure p_selTabSpace(v1

dba_data_files.tablespace_name%type)
as
var1 dba_data_files.tablespace_name%type;
var2 number;
var3 number;
var4 number;
begin
select a.a1 "tabSpaceName",b.b2/1024/1024 "tabSpaceSize",round((b.b2 -

a.a2) / 1024 / 1024, 2) "tabSpaceUsed",substr((b.b2 - a.a2) / b.b2, 1,

7) "tabSpaceVused" into var1,var2,
var3,var4
from
(select tablespace_name a1, sum(nvl(bytes, 0)) a2
from dba_free_space
group by tablespace_name) a,
(select tablespace_name b1, sum(bytes) b2
from dba_data_files
group by tablespace_name) b,
(select tablespace_name c1, contents c2, extent_management c3
from dba_tablespaces) c
where a.a1=UPPER(v1) and a.a1 = b.b1 and c.c1 = b.b1;
DBMS_OUTPUT.PUT_LINE('tabSpaceName is'||UPPER(VAR1)||'

'||'tabSpaceSize'||var2||' '||'tabSpaceUsed'||var3||'

'||'tabSpaceVused'||var4);
END;
--------------------------------TEST-------------------------
EXECUTE p_selTabSpace('system');

你想得到结果集是用来存放单行的数据还是存放多行的数据，如果是后者的话，单纯的select...into...这种方法是实现不了的，原因是你不可以将一列的多个结果都付给同一个变量，这也就是使用select...into...这种方式的一种局限，如果想用来存放多行结果就要向楼上说的那样使用游标或者是复合数据类型才可以。

追问

嗯 ，我想得到的多行多列的结果集，是所有表空间的利用率情况 我改成游标了，但怎样在IABIS中映射文件中应用存储过程呢，

追答

create or replace procedure p_selTabSpace
as
cursor tt is select a.a1 tabSpaceName,b.b2/1024/1024 tabSpaceSize,round((b.b2 - a.a2) / 1024 / 1024, 2) tabSpaceUsed,substr((b.b2 - a.a2) / b.b2, 1,
7) tabSpaceVused
from
(select tablespace_name a1, sum(nvl(bytes, 0)) a2
from dba_free_space
group by tablespace_name) a,
(select tablespace_name b1, sum(bytes) b2
from dba_data_files
group by tablespace_name) b,
(select tablespace_name c1, contents c2, extent_management c3
from dba_tablespaces) c
where a.a1 = b.b1 and c.c1 = b.b1;
begin
for i in tt loop
DBMS_OUTPUT.PUT_LINE('tabSpaceName is '||UPPER(i.tabSpaceName)||' '||'tabSpaceSize: '||i.tabSpaceSize||' '||'tabSpaceUsed: '||i.tabSpaceUsed||' '||'tabSpaceVused: '||i.tabSpaceVused);
end loop;
END;
-------------------------TEST------------------
EXECUTE p_selTabSpace

先将结果保存到tt这个游标里面，然后将每一行的结果都逐一的提取出来，如果嫌麻烦的话就像我这样使用for+loop来提取游标里面的值，这样做的话省了不少的麻烦，如果不嫌麻烦的话就从打开游标开始写起吧

追问

按照你这样的写法就不用参数了是吧

追答

需不需要传递参数那要看你的最终要求是什么，像这样把各个表空间的使用情况都查出来的话就不需要，如果把要求改成把表空间利用率小于百分之几的表空间查出来的话，那这个百分之几就可以作为额外的参数传递进去。
------------------------------------------
刚才看到你又在发起另外的一张贴，是创建这个存储过程的时候报错还是过程能过成功创建，但在执行execute p_selTabSpace的时候看不到结果显示，如果是前者的话，那么你可以通过show errors来查看一下具体的错误信息，不过我这边测试过是没什么问题，如果有的话，那我怀疑是空格处理的不当。如果是后者的话那就是你没有把输出语句打开，因此在execute p_selTabSpace之前先通过set serverout on这条命令来把输出语句打开。

Answer 2

定义一个游标，给你个参考
create or replace procedure p_checkname
(

cname in varchar2,

data_cursor out sys_refcursor

)
as
v_cid int;
begin

select cid into v_cid from t_classes where classesname = cname;

open data_cursot for select name from t_student where cid = v_cid;

end;

追问

我改成游标样式的啦，在oracle中执行和编译都没有错误，但怎样在IBATIS的映射文件中应用呢

追答

不好意思，IBATIS框架我没有接触过，不能帮助你了，你在网上搜搜文献看看吧

追问

好的，依然很谢谢你

Answer 3

乱哄哄的，又没有条件测试，输出的是结果集的话，你好像定义了4个局部参数变量，好像没有out输出参数，有了也不好使，因为输出的是结果集，应该使用游标来实现，定义一个package,定义游标，接收查询