🚀 go-pugleaf

Can you give me the web address to "Examples\Tutorial\Step6 - Transaction. I
am having trouble finding it. thanks

"Viatcheslav V. Vassiliev" <support@oledbdirect.com> wrote in message
news:413ebeda$1@newsgroups.borland.com...
> 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;
> >             }
> >
> >
>
>