🚀 go-pugleaf

Do you have strings in CustLoc? If yes, try to use ADO recordset directly,
without TADODataSet/TADOQuery/TADOTable. Try also execute all this code in
transaction - this may speedup your code ~2x, but requires enough RAM.
Instead of FieldValues["FieldName"] try to use Fields->Fields[X], where X is
integer. Calling DisableControls()/EnableControls() even if no controls
attached could help. If you create table before doing inserts, create
indeces after inserts.

In OLEDB Direct, you may look at example in "Examples\Tutorial\Step6 -
Transaction" - there is inserts 200 000 records (100 000 without transaction
and 100 000 with transaction). This takes 12 sec. on modern computer.

//------------------------------------------
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:413ded14$1@newsgroups.borland.com...
> Hi
>
>     I am using an TADOQuery component to open a table in an MS Access
> database and write about 150,000 new records to the table. The code I use
is
> below and it takes too long to write all the records to the database about
5
> minutes. The Append() and Post() functions seems to cause the bottle neck
> whenever that line of code is commented out . How can I fix my code so
that
> the records will be written to the database in an acceptable time limit.
>                 C1 = CustLoc.begin();
>                 while(C1! = CustLoc.end()) {
>                         ADOQuery2->Append();
>                         ADOQuery2->FieldValues["ServiceID"] = E1->first;
>                         ADOQuery2->FieldValues["X"] = C1->second.X;
>                         ADOQuery2->FieldValues["Y"] = C1->second.Y;
>                         ADOQuery2->FieldValues["NodeID"] =
> C1->second.NodeID;
>                         ADOQuery2->FieldValues["LegID"] =
C1->second.LegID;
>                         ADOQuery2->Post();
>                         ++C1;
>             }
>
>