DELPHI 调用 Oracle 存储过程并返回数据集的例子.

环境: Win2000 + Oracle92

一、先在 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 ** _ 调用
建一个窗体,拖动控件 AdoConnection1 , ADOStoredProc1 和 Button1.
procedure TForm1.Button1Click(Sender: TObject);
begin
try
with ADOConnection1 do
begin
ConnectionString:=
'Provider=OraOLEDB.Oracle.1;'
+ 'Password=密码;'
+ 'Persist Security Info=True;'
+ 'User ID=用户名;'
+ 'Data Source=数据库名;'
+ 'Extended Properties="PLSQLRSet=1;"';
Open;
end ;
except
showMessage('连接不成功');
exit;
end ;

try
with ADOStoredProc1 do
begin
Connection := ADOConnection1;
Parameters.Clear;
ProcedureName:= 'pkg_test.get';
Parameters.CreateParameter('p1',ftInteger,pdInput,10,1);
Open;
end ;
except
showMessage('无法执行过程.');
end ;
end ;