DELPHI 调用 Oracle 存储过程并返回数据集的例子.数据库教程 电脑资料.docVIP

DELPHI 调用 Oracle 存储过程并返回数据集的例子.数据库教程 电脑资料 oracle|存储过程|数据 一、先在 Oracle 建包 CREATE OR REPLACE PACKAGE pkg_test AS TYPE myrctype IS REF CURSOR; PROCEDURE get(i_test INTEGER,p_rc OUT myrctype); END pkg_test; CREATE OR REPLACE PACKAGE BODY pkg_test AS PROCEDURE get(i_test INTEGER,p_rc OUT myrctype) IS BEGIN IF i_test = 0 THEN OPEN p_rc FOR SELECT SYSDATE FROM dual; ELSE OPEN p_rc FOR SELECT * FROM tab; END IF; END get; END pkg_test; 二、用 Delphi 调用