BDE vs ADO w Delphi

Znalazłem problemy z wydajnością z ADOExpress lat temu:

• ADO vs adoexpress time trials. Niedobrze dla ADOExpress (6/7/2005)
• ADO vs ADO Express Time Trials (redux) (12/30/2007)

Uwaga: zanim ADO stał się standardową częścią Delphi, Borland sprzedawał go jako dodatek o nazwie ADOExpress . To było po prostu object wrappers wokół Microsoft ActiveX Data Objects (ADO) COM obiektów.

Przetestowałem trzy scenariusze

W przeciwieństwie do innych systemów Microsoft Windows, Microsoft Windows nie jest w stanie korzystać z ADO.]} W 2009 roku firma Borland rozpoczęła działalność w branży papierniczej.]}
• podanie .DisableControls na TADOQuery przed wywołaniem Open

Odkryłem

• użyj Query.DisableControls, aby wykonać każde połączenie .Next 50x szybciej
• użyj Query.Recordset.Fields.Items['columnName'].Value zamiast Query.FieldByName('columnName'), aby każda wartość była 2,7 x szybsza

• Za pomocą TADODataSet (TADOQuery) tworzy brak różnicy

                                  Loop Results        Get Values 
  ADOExpress:                         28.0s              46.6s 
  ADOExpress w/DisableControls:        0.5s              17.0s 
  ADO (direct use of interfaces):      0.2s               4.7s 
  

Uwaga: te wartości są przeznaczone do zapętlenia 20 881 wierszy i wyszukania wartości 21 kolumn.

Bazowy Zły Kod:

var
   qry: TADOQuery;
begin
   qry := TADOQuery.Create(nil);
   try
      qry.SQL.Add(CommandText);
      qry.Open;
      while not qry.EOF do
      begin
         ...
         qry.Next;
      end;

Użyj kontrolek DisableControls, aby przyspieszyć pętlę o 5000% :

var
   qry: TADOQuery;
begin
   qry := TADOQuery.Create(nil);
   try 
      qry.DisableControls;
      qry.SQL.Add(CommandText);
      qry.Open;
      while not qry.EOF do
      begin
         ...
         qry.Next;
      end;

Użyj kolekcji pól, aby wyszukiwać wartości szybciej o 270% :

var
   qry: TADOQuery;
begin
   qry := TADOQuery.Create(nil);
   try 
      qry.DisableControls;
      qry.SQL.Add(CommandText);
      qry.Open;
      while not qry.EOF do
      begin
         value1 := VarAsString(qry.Recordset.Fields['FieldOne'].Value);
         value2 := VarAsInt(qry.Recordset.Fields['FieldTwo'].Value);
         value3 := VarAsInt64(qry.Recordset.Fields['FieldTwo'].Value);
         value4 := VarAsFloat(qry.Recordset.Fields['FieldThree'].Value);
         value5 := VarAsWideString(qry.Recordset.Fields['FieldFour'].Value);
         ...
         value56 := VarAsMoney(qry.Recordset.Fields['FieldFive'].Value);
         qry.Next;
      end;

class function TADOHelper.Execute(const Connection: TADOConnection; 
       const CommandText: WideString): TADOQuery;
var
   rs: _Recordset;
   query: TADOQuery;
   nRecords: OleVariant;
begin
   Query := TADOQuery.Create(nil);
   Query.DisableControls; //speeds up Query.Next by a magnitude
   Query.Connection := Connection;
   Query.SQL.Text := CommandText;
   try
      Query.Open();
   except
      on E:Exception do
      begin
         Query.Free;
         raise;
      end;
   end;
   Result := Query;
end;

Aby uzyskać najlepszą wydajność, należy zapoznać się z naszym Open Source direct access to Oracle.

Jeśli przetwarzasz wiele TQuery, bez użycia komponentów DB, mamy dedykowaną pseudo-klasę do używania bezpośredniego połączenia OCI, jako taką:

 Q := TQuery.Create(aSQLDBConnection);
 try
   Q.SQL.Clear; // optional
   Q.SQL.Add('select * from DOMAIN.TABLE');
   Q.SQL.Add('  WHERE ID_DETAIL=:detail;');
   Q.ParamByName('DETAIL').AsString := '123420020100000430015';
   Q.Open;
   Q.First;    // optional
   while not Q.Eof do begin
     assert(Q.FieldByName('id_detail').AsString='123420020100000430015');
     Q.Next;
   end;
   Q.Close;    // optional
 finally
   Q.Free;
 end;

I dodałem jakiś unikalny dostęp za pomocą wariantu późnego wiązania, aby napisać bezpośredni kod jako taki:

procedure Test(Props: TOleDBConnectionProperties; const aName: RawUTF8);
var I: ISQLDBRows;
    Customer: Variant;
begin
  I := Props.Execute('select * from Domain.Customers where Name=?',[aName],@Customer);
  while I.Step do
    writeln(Customer.Name,' ',Customer.FirstName,' ',Customer.Address);
end;

var Props: TOleDBConnectionProperties;
begin
  Props := TSQLDBOracleConnectionProperties.Create(
    'TnsName','UserName','Password',CODEPAGE_US);
  try
    Test(Props,'Smith');
  finally
    Props.Free;
  end;
end;

Zauważ, że wszyscy dostawcy OleDB mają błędy w obsłudze Blobów: Wersja Microsoftu po prostu ich nie obsługuje, a Wersja Oracle zwróci losowo null dla 1/4 wierszy...

W prawdziwej bazie danych odkryłem, że nasze bezpośrednie klasy OCI są 2 do 5 razy szybsze niż dostawca OleDB, bez konieczności instalowania tego dostawcy. Możesz nawet użyć Oracle Instant Client dostarczonego przez Oracle, który pozwala na uruchamianie aplikacji bez instalowania standardowego (ogromnego) klienta Oracle lub posiadania ORACLE_HOME. Po prostu dostarcz pliki dll w tym samym katalogu, co Twoja aplikacja, i to zadziała.