2,496
社区成员
发帖
与我相关
我的任务
分享如何用ADO控件显示Oracle数据库里存储过程返回的数据集??
如何用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的返回参数),不知到是什么原因,还请各位有经验的前辈多多指点?
...全文
请发表友善的回复…
发表回复
