http://www.cnoug.org/viewthread.php?tid=17856

解决方案 »

  1.   

    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;