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

最新推荐文章于 2021-04-12 09:35:43 发布

原创最新推荐文章于 2021-04-12 09:35:43 发布 · 1.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #oracle #存储 #integer #properties #security

Oracle 开发专栏收录该内容

9 篇文章

订阅专栏

博客介绍了在Win2000 + Oracle92环境下，先在Oracle中创建包pkg_test，包含存储过程get。接着展示了用Delphi调用该存储过程的方法，通过创建窗体，拖动相关控件，编写代码实现连接数据库并执行存储过程，还处理了连接和执行过程中可能出现的异常。

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