Delphi 调用Oracle中包(package)中的过程
来源:互联网 发布:知乎有意思的话题 编辑:程序博客网 时间:2024/05/22 14:22
一 利用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) ;
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;
阅读全文
0 0
- Delphi 调用Oracle中包(package)中的过程
- delphi的BDE如何调用oracle中的包(package)
- 如何在Delphi中调用Oracle 的(包)package
- 在Java中调用Oracle包中的过程
- 在Java中调用Oracle包中的过程
- Oracle包(package的创建,调用)
- Delphi 用ADO调用oracle的包中的过程,报 列不存在 的错误
- delphi中调用oracle的存储过程
- ORACLE package包中的存储过程的定义和使用
- ORACLE package包中的存储过程的定义和使用
- oracle存储过程--包package
- java调用oracle包中的存储过程
- Oracle 触发器调用包中的存储过程
- 在delphi中package是否能够调用其他package中的类呢
- oracle 包 (package)
- Oracle 包(Package)
- Oracle 包(Package)
- Oracle 包(Package)
- 面试题(数据库)学习20170919
- Xcode 9 illegal Configuration Safe Area Layout Guide before iOS 9.0
- Android 中关于 滤镜 开源框架的整理
- 数据库那点事(Mysql)-2
- 查看自己账号的sudo权限
- Delphi 调用Oracle中包(package)中的过程
- SqlServerDatabase.cs
- 中铁员工入职培训心得体会
- 通过图片的url获取Bitmap对象,给Imageview使用
- VMare unbuntu虚拟机建立和windows共享文件夹
- 初识-WINDBG 分析DUMP
- 无法读取方案文档 'http://www.springframework.org/schema/beans/spring-beans-4.1.xsd'问题解决
- ffmpeg configure配置选项
- SecureCRT脚本-Python