高分求助:如何使用ADOStorProc取得ORACLE存储过程返回的结果集?
我ORACLE的存储过程是:
PROCEDURE sp_zj_checkuser (
in_username IN VARCHAR2,
in_password IN VARCHAR2,
rc OUT cursor
)
AS
BEGIN
rc := fun_zj_checkuser (in_username, in_password);
END;使用TADOStoreProc该如果取得rc输出参数的结果集呢?
我ORACLE的存储过程是:
PROCEDURE sp_zj_checkuser (
in_username IN VARCHAR2,
in_password IN VARCHAR2,
rc OUT cursor
)
AS
BEGIN
rc := fun_zj_checkuser (in_username, in_password);
END;使用TADOStoreProc该如果取得rc输出参数的结果集呢?
解决方案 »
- 'Failed to set data for 'Compatibility Flags''什么情况????环境win7/32+XE2!!!!
- delphi不用头文件就可以使用write等函数
- Report Builder 怎样设置打印当前页?
- 项目外包 高薪找人作个游戏外挂
- 年终放分了,散进所有分.
- 三层结构中,ClientDataSet执行存储过程时报“无法在此会话中启动更多的事务”
- >>>>>>>>>怎样从一个文本文件中得到指定的一行字符串
- 关于RM程序
- 如何实现对执行文件的动态配制,像冰河 winshell那样
- 用delphi如何在程序中播放wav文件和rm文件
- 一个Application的问题
- TForm上TEdit的WM_KILLFOCUS消息处理问题
oracle不是很清楚,如果是sqlserver,像下面这样建存储过程
create proc pTemp(a int)
as
select * from table1程序里
with ADOStoreProc1 do
begin
close;
parameters[0].value:=9;
Open;//不要execproc;
end;
is
type mytype is ref cursor;
procedure MyProc ( T out mytype );
end MyPackage;下面是包体.
create or replace PACKAGE BODY MyPackage
is
procedure MyProc( T out mytype )
is
begin
open T for select * from book;
end MyProc;
end MyPackage;