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;
  • 相关阅读:
    解决"Windows没有足够信息,不能验证该证书"问题
    IPA 安装
    基于ECharts图表实现的股票K线图表(matols.com)
    WPF Chart
    IdentityServer4 中文文档
    企业信息系统
    手机网站的几点注意
    查询 SQL_Server 所有表的记录数: for xml path
    iframe在ipad safari的显示
    从WEB SERVICE 上返回大数据量的DATASET
  • 原文地址:https://www.cnblogs.com/tc310/p/1829214.html
Copyright © 2011-2022 走看看