Re: [Firebird-net-provider] Slow query

[Berko B. <vb...@ma...>]

My Delphi Code:

db.Open;
Query.Transaction.StartTransaction;
d1:=now;
Query.SQL.Text:='select i0,c1,f1,f2,f3,f4 from test';
Query.Open;
while not Query.Eof do
  begin
    if (Query.FieldByName('I0').AsInteger<0) or
       (Query.FieldByName('C1').AsString='???') or
       (Query.FieldByName('F1').AsString='???') or
       (Query.FieldByName('F2').AsString='???') or
       (Query.FieldByName('F3').AsString='???') or
       (Query.FieldByName('F4').AsString='???') then Caption:='ok';
    Query.Next;
  end;
d2:=now;
showmessage(inttostr(Query.RecordCount)+':'+inttostr(MilliSecondsBetween(d2,d1)));
Tran.Commit;