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

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

原文转自：http://www.ltesting.net