🚀 go-pugleaf

Try the next: from ADOQuery1FetchComplete() post a message to form:
PostMessage(Handle, WM_MYMESSAGE, 0, 0), then create message handler and
fill your list box from this handler.

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


"Vic" <victor@espainformatica.com> �������/�������� � �������� ���������:
news:3fd76a28@newsgroups.borland.com...
> I want to use eoASyncFetch in a ADOQuery to see the progress, the problem
> that I have is that when the query ends the open ( the sql command is a
> SELECT ), when I print the records in a listview, the first record isn't
> printed, and the number of rows in the dataset, isn't the same that the
rows
> printed printed in listview. Here is the code :
>
> void __fastcall TForm1::ADOQuery1FetchComplete(TCustomADODataSet *DataSet,
>       const Error *Error, TEventStatus &EventStatus)
> {
>    ListView1->Items->BeginUpdate();
>    ListView1->Items->Clear();
>    DataSet->First();
>    while (!DataSet->Eof )
>    {
>       TListItem *it = ListView1->Items->Add();
>       it->Caption = DataSet->FieldByName("TEXT1")->Value;
>       it->SubItems->Add(DataSet->FieldByName("TEXT2")->Value);
>       DataSet->Next();
>    }
>    ListView1->Items->EndUpdate();
>    Label1->Caption = "In Dataset " + AnsiString(DataSet->RecordCount) + ",
> in List " + AnsiString(ListView1->Items->Count);
> }
>
> The caption in Label1 is :   'In Dataset 5000, in List 4999'
>
> I think that the error is in the cachesize property ( 1 by default ), but
I
> can't put it to 0.
> There is some way to solve it ?
>
> --
> Victor
> ESPA Inform�tica.
>
>