🚀 go-pugleaf

1. Use server-side cursor (CursorLocation = crUseServer).
2. Do not use FindFirst(), use First().
3. Do not use RecordCount - use:

  while (!ADOQuery1->Eof)
  {
    ...
    ADOQuery1->Next();
  }

4. Call DisableControls()/EnableControls() even if there are no controls
attached.

BTW, with OLEDB Direct you will be able to fetch records directly into
CustLocaTableRec record, without convertion of db value into Variant and
back to record field type.

//------------------------------------------
Regards,
Vassiliev V. V.
http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
ADO.Net
http://www.oledbdirect.com - The fastest way to access MS SQL Server,
MS Jet (Access) and Interbase (through OLEDB)

"William" <wwestbrooks@houston.rr.com> �������/�������� � ��������
���������: news:4138c989$1@newsgroups.borland.com...
> Hi
>
>     I am using a TADOQuery component to access a local MS Access database
> table on my machine. The problem is the time it takes to read all the
> records in the table is unacceptably slow. I have about 160,000 records in
> the table and I read in each records information. If I comment out all the
> code in my loop and only leave the statement ADOQuery1->Next(), this is
the
> bottle neck it takes about five minutes to retrieve all the records. I
tried
> setting the CacheSize property to 10,000 but it didn't speed up the
> application. How can I optimize accessing the data, to make it expectable.
> My code is below.
>
> // Go to the first record
>         ADOQuery1->FindFirst();
>         for(i1=0;i1<ADOQuery1->RecordCount;++i1) {
>             // Catch conversion errors
>          try {
>                 CustLocTableRec.X = ADOQuery1->FieldValues["X"];
>                 CustLocTableRec.Y = ADOQuery1->FieldValues["Y"];
>                 CustLocTableRec.NodeID = ADOQuery1->FieldValues["NodeID"];
>                 CustLocTableRec.LegID = ADOQuery1->FieldValues["LegID"];
>             } catch(...) {
>                 LOGWARNINGS = true;
>                 break;
>              }
>             CustLocTableRec.Used = false;
>             CustLocTable[ADOQuery1->FieldValues["ServiceID"]] =
> CustLocTableRec;
>             ADOQuery1->Next(); // Bottle neck
>      }
>
>