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;
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, SlashDot.org! http://sdm.link/slashdot
_______________________________________________
Firebird-net-provider mailing list
Firebird-net-provider@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/firebird-net-provider
