zoukankan      html  css  js  c++  java
  • Delphi 调用 Oracle 存储过程并返回数据集的例子

    Delphi 调用 Oracle 存储过程并返回数据集的例子.
    一、先在 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;
  • 相关阅读:
    用户需求调研报告
    返回一个二维数组中的最大联通子数组(补)
    代码大全读后感(3)
    代码大全读后感(2)
    返回一个二维整数数组中最大联通子数组的和
    冲刺第一阶段总结
    大道至简读书笔记三
    大道至简读书笔记二
    大道至简读书笔记一
    软件工程课程改进意见
  • 原文地址:https://www.cnblogs.com/tc310/p/1829214.html
Copyright © 2011-2022 走看看