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

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;