BDE против ADO в Delphi

обратите внимание на редактирование ниже для получения дополнительной информации и возможного решения

недавно мы изменили большое приложение Delphi для использования соединений и запросов ADO вместо соединений и запросов BDE. С тех пор производительность стала ужасной.

я профилировал приложение, и узкое место, похоже, находится на фактическом вызове TADOQuery.Open. Другими словами, с точки зрения кода я мало что могу сделать для улучшения это, кроме реструктуризации приложения, чтобы фактически использовать базу данных меньше.

есть ли у кого-нибудь предложения о том, как улучшить производительность приложения Delphi, подключенного к ADO? Я пробовал оба читать здесь, практически без воздействия.

чтобы дать представление о разнице в производительности, я сравнил ту же большую операцию:

• под BDE: 11 секунды!--13-->

• под ADO: 73 секунды

• по Адо после изменения ссылки на статью: 72 секунды

мы используем серверную часть Oracle в среде клиент-сервер. Локальные компьютеры поддерживают отдельное подключение к базе данных.

для записи, строка подключения выглядит так:

const
  c_ADOConnString = 'Provider=OraOLEDB.Oracle.1;Persist Security Info=True;' +
                    'Extended Properties="plsqlrset=1";' +
                    'Data Source=DATABASE.DOMAIN.COM;OPTION=35;' +
                    'User ID=******;Password=*******';

ответить на вопросы zendar:

Я использую Delphi 2007 В Windows Vista и XP.

задняя часть является базой данных Oracle 10g.

как указано в строке подключения, мы используем драйвер OraOLEDB.

версия MDAC на моей тестовой машине-6.0.

Edit:

под BDE у нас было много кода, который выглядел так:

procedure MyBDEProc;
var
  qry: TQuery;
begin
  //fast under BDE, but slow under ADO!!
  qry := TQuery.Create(Self);
  try
    with qry do begin
      Database := g_Database;
      Sql.Clear;
      Sql.Add('SELECT');
      Sql.Add('  FIELD1');
      Sql.Add(' ,FIELD2');
      Sql.Add(' ,FIELD3');
      Sql.Add('FROM');
      Sql.Add('  TABLE1');
      Sql.Add('WHERE SOME_FIELD = SOME_CONDITION');
      Open;
      //do something
      Close;
    end;  //with
  finally
    FreeAndNil(qry);
  end;  //try-finally
end;  //proc

но мы обнаружили, что вызов Sql.Add на самом деле очень дорогой при ADO, потому что QueryChanged событие запускается каждый раз, когда вы изменяете CommandText. Таким образом, замена вышеизложенного на это была намного быстрее:

procedure MyADOProc;
var
  qry: TADOQuery;
begin
  //fast(er) under ADO
  qry := TADOQuery.Create(Self);
  try
    with qry do begin
      Connection := g_Connection;
      Sql.Text := ' SELECT ';
        + '   FIELD1 '
        + '  ,FIELD2 '
        + '  ,FIELD3 '
        + ' FROM '
        + '  TABLE1 '
        + ' WHERE SOME_FIELD = SOME_CONDITION ';
      Open;
      //do something
      Close;
    end;  //with
  finally
    FreeAndNil(qry);
  end;  //try-finally
end;  //proc

а еще лучше, вы можете скопировать TADOQuery из ADODB.pas, переименуйте его под новым именем и вырвите QueryChanged событие, которое, насколько я могу судить, не делая ничего полезного вообще. Затем используйте новую, модифицированную версию TADOQuery вместо родной.

type
  TADOQueryTurbo = class(TCustomADODataSet)
  private
    //
  protected
    procedure QueryChanged(Sender: TObject);
  public
    FSQL: TWideStrings;
    FRowsAffected: Integer;
    function GetSQL: TWideStrings;
    procedure SetSQL(const Value: TWideStrings);
    procedure Open;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function ExecSQL: Integer; {for TQuery compatibility}
    property RowsAffected: Integer read FRowsAffected;
  published
    property CommandTimeout;
    property DataSource;
    property EnableBCD;
    property ParamCheck;
    property Parameters;
    property Prepared;
    property SQL: TWideStrings read FSQL write SetSQL;
  end;
////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
constructor TADOQueryTurbo.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FSQL := TWideStringList.Create;
  TWideStringList(FSQL).OnChange := QueryChanged;
  Command.CommandText := 'SQL'; { Do not localize }
end;

destructor TADOQueryTurbo.Destroy;
begin
  inherited;
 inherited Destroy;
  FreeAndNil(FSQL);
end;

function TADOQueryTurbo.ExecSQL: Integer;
begin
  CommandText := FSQL.Text;
  inherited;
end;

function TADOQueryTurbo.GetSQL: TWideStrings;
begin
  Result := FSQL;
end;

procedure TADOQueryTurbo.Open;
begin
  CommandText := FSQL.Text;
  inherited Open;
end;

procedure TADOQueryTurbo.QueryChanged(Sender: TObject);
begin
// if not (csLoading in ComponentState) then
//    Close;
// CommandText := FSQL.Text;
end;

procedure TADOQueryTurbo.SetSQL(const Value: TWideStrings);
begin
  FSQL.Assign(Value);
  CommandText := FSQL.Text;
end;