Delphi 调用Oracle中包（package）中的过程

最新推荐文章于 2025-06-30 14:28:34 发布

苍穹帝

最新推荐文章于 2025-06-30 14:28:34 发布

阅读量491

点赞数

CC 4.0 BY-SA版权

分类专栏：程序

本文链接：https://blog.youkuaiyun.com/gjtao1130/article/details/78043891

程序专栏收录该内容

94 篇文章

订阅专栏

本文介绍如何使用 Delphi 中的 ADO 技术调用 Oracle 存储过程并获取结果集。通过具体示例展示了设置参数、执行存储过程及遍历查询结果的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一利用adoquery返回数据集的.（过程参数1/2位传入参数，参数3为传出参数，游标类型）
procedure TForm1.Button4Click(Sender: TObject);
begin
AdoQuery1.Close ;
AdoQuery1.Parameters.Clear ;

AdoQuery1.SQL.Clear ;

AdoQuery1.SQL.Add('{call PKG_JCCTEST1.sp_GetShop(?,?)}') ;
AdoQuery1.Parameters.CreateParameter('P1',ftinteger,pdinput, 50,25) ;
AdoQuery1.Parameters.CreateParameter('P2',ftinteger,pdinput, 50,22) ;

AdoQuery1.Open ;

AdoQuery1.First;

While not Eof do

Begin

Showmessage(string( AdoQuery1.FieldByName('sub').Value)+'-'+ string( AdoQuery1.FieldByName('sum').Value));

AdoQuery1.Next;

End;

end;

二利用ADODataSet也同样

三利用ADOStoredProc1调用包中存储过程

with DmMain.ADOStoredProc1 do
begin
Close;
Parameters.Clear;
ProcedureName := 'pkg_SynZhongTai.sp_SynZTShop';
Parameters.CreateParameter('vShopID', ftString, pdInput, 100, ShopID);
Parameters.CreateParameter('vuserId', ftFloat, pdInput, 100, userId);
Parameters.CreateParameter('vmerchantId', ftFloat, pdInput, 100, merchantId);
Parameters.CreateParameter('vmerchantCode', ftString, pdInput, 100, merchantCode);
ExecProc;
end;