月光软件站 - 编程文档 - 数据库 - DELPHI 调用 Oracle 存储过程并返回数据集的例子.

数据库

本类阅读TOP10

·SQL语句导入导出大全
·Power Designer杂记
·SQL Server日期计算
·常用的oracle函数使用说明(一)
·sqlserver2000数据库置疑的解决方法
·MS SQLServer OLEDB分布式事务无法启动的一般解决方案
·SQL to Excel 的应用
·SQL语句导入导出大全
·Error:ORA-01033:ORACLE initialization or shutdown in progress错误解决
·Oracle中password file的作用及说明

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

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

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

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

相关文章：

相关软件：