DELPHI 调用 Oracle 存储过程并返回数据集的例子._ORACLE_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

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

作者：闵涛文章来源：闵涛的学习笔记点击数：881 更新时间：2009/4/22 22:04:16

环境: 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;

[Web开发]loop调用discuz大全  [网页制作]如何调用IE菜单“工具”中的internet选项
[办公软件]通过VBA调用函数实现将excel字符型转换成为日期型  [办公软件]Excel单元格值的多次运算及调用导致函数错误的解决…
[系统软件]InstallShield Express for delphi制作安装程序定…  [系统软件]EXP-00008: ORACLE error 904 encountered的解决方…
[常用软件]InstallShield Express制作Delphi数据库安装程序  [常用软件]PB7 连接 Oracle 的配置方法
[Delphi程序]为什么选择Delphi.Net ？  [Delphi程序]《关于VisiBroker For Delphi的使用》(4)

教程录入：mintao 责任编辑：mintao

上一篇教程： vb 调用 Oracle 函数返回数据集的例子

下一篇教程： windows环境下的oracle服务

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· Sql Server  · MySql
· Access  · ORACLE
· SyBase  · 其他

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……