如何用ADO控件显示Oracle数据库里存储过程返回的数据集??
存储过程为:
CREATE OR REPLACE PACKAGE pkg_test
AS
TYPE myrctype IS REF CURSOR; PROCEDURE get (p_id NUMBER, p_rc OUT myrctype);
END pkg_test;
/CREATE OR REPLACE PACKAGE BODY pkg_test
AS
PROCEDURE get (p_id NUMBER, p_rc OUT myrctype)
IS
sqlstr VARCHAR2 (500);
BEGIN
IF p_id = 0 THEN
OPEN p_rc FOR
SELECT ID, NAME, sex, address, postcode, birthday
FROM student;
ELSE
sqlstr :=
'select id,name,sex,address,postcode,birthday
from student where id=:w_id';
OPEN p_rc FOR sqlstr USING p_id;
END IF;
END get;
END pkg_test;
/
我想用TADOStoreProc的返回参数来返回数据集,不过我用了一下,始终不成功,(存储过程有两个参数,一个是Number的输入参数,另一个是自定义Ref Cursor的返回参数),不知到是什么原因,还请各位有经验的前辈多多指点?
存储过程为:
CREATE OR REPLACE PACKAGE pkg_test
AS
TYPE myrctype IS REF CURSOR; PROCEDURE get (p_id NUMBER, p_rc OUT myrctype);
END pkg_test;
/CREATE OR REPLACE PACKAGE BODY pkg_test
AS
PROCEDURE get (p_id NUMBER, p_rc OUT myrctype)
IS
sqlstr VARCHAR2 (500);
BEGIN
IF p_id = 0 THEN
OPEN p_rc FOR
SELECT ID, NAME, sex, address, postcode, birthday
FROM student;
ELSE
sqlstr :=
'select id,name,sex,address,postcode,birthday
from student where id=:w_id';
OPEN p_rc FOR sqlstr USING p_id;
END IF;
END get;
END pkg_test;
/
我想用TADOStoreProc的返回参数来返回数据集,不过我用了一下,始终不成功,(存储过程有两个参数,一个是Number的输入参数,另一个是自定义Ref Cursor的返回参数),不知到是什么原因,还请各位有经验的前辈多多指点?
解决方案 »
- 编写一CS软件,数据库采用SQL,如何防止一个用户同时登陆。
- 无法弹出MessageDlg的,报地址错误。
- 非delphi问题,上网一段时间后,屏幕显示慢了,是咋的?
- Delphi控制攝像头相關的程序怎樣寫? 請大俠們指點方法! 謝謝!
- Ehlib出错安装问题
- 求助
- 在MDI主窗口中放入TPanel控件,当打开子窗口时,Panel为什么总是浮动在最前面,300分求救!!!
- 拜托,帮一下忙(关于PageControl和菜单),很抱歉没什么分了
- 我有个程序和数据库的问题问大家?
- 急?在线等待,怎样能够在Delphi里实现以上同样的功能?
- reprot machine 传值问题 ——————极简单,但就是不会
- ****100分———换一个PP号。2000分求“潘多拉之盒”这款游戏的稳定下载地址!
创建一个表存放查询数据
过程中首先清空该表
然后向该表中插入数据
ado 连接这个表即可