🚀 go-pugleaf

Try minimize/maximize application window and see what happen.

//------------------------------------------
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)

"Roberto" <roberto@dialtech.com.br> �������/�������� � �������� ���������:
news:4193a04b@newsgroups.borland.com...
> Hello Gentlemans
>
> I have done a dummy application:
>
> void __fastcall TForm1::Button1Click(TObject *Sender)
> {
>     int i;
>     cn->ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist
Security
> Info=True;User ID=sa;Initial Catalog=Dialtech;Data Source=rbook";
>     cn->LoginPrompt = false;
>     cn->Connected = true;
>     for(i = 0;i<100;i++)
>     {
>         TADOQuery *x = new TADOQuery(NULL);
>         x->Connection = cn;
>         x->SQL->Text = "SELECT * FROM USUARIOS";
>         x->Prepared = true;
>         x->Open();
>         Sleep(50);
>         x->Close();
>         delete x;
>         Application->ProcessMessages();
>     }
>
> }
>
//--------------------------------------------------------------------------
> -
>
> void __fastcall TForm1::Button2Click(TObject *Sender)
> {
>     int i;
>     for(i = 0;i<100;i++)
>     {
>         TQuery *x = new TQuery(NULL);
>         x->DatabaseName = "db";
>         x->SQL->Text = "SELECT * FROM USUARIOS";
>         x->Prepared = true;
>         x->Open();
>         Sleep(50);
>         x->Close();
>         delete x;
>         Application->ProcessMessages();
>     }
> }
>
>
> button 1: 100 queries dinamically created using ADO
> button 2: 100 queries dinamically created using BDE.
>
> Running the to portions I have noted:
>
> ADO: Memory allocated initially: ~8MB
>             Memory after 100 queries: 12.5MB
>
> BDE: Memory allocated initially: ~8MB
>         Memory after 100 queries: ~8MB
>
> And more: BDE is faster and uses less processor time
>
> I�m using BCB5 but tested on BCB6 with same results.
>
> All upddates available was installed;
>
> I�m doing something wrong with ADO ???????????
>
> Thanks a lot.
>
>
> Roberto
>
>