🚀 go-pugleaf

I try it, but doesn't work. It happens the same problem.
This is what I do

void __fastcall TForm1::ADOQuery1FetchComplete(TCustomADODataSet *DataSet,
      const Error *Error, TEventStatus &EventStatus)
{
   PostMessage(Handle, WM_MYMESSAGE, 0, 0);
}

void __fastcall TForm1::OnMyMessage(TMessage &Message)
{
   ListView1->Items->BeginUpdate();
   ListView1->Items->Clear();
   ADOQuery1->First();
   while (!ADOQuery1->Eof )
   {
      TListItem *it = ListView1->Items->Add();
      it->Caption = ADOQuery1->FieldByName("TEXTO1")->Value;
      it->SubItems->Add(ADOQuery1->FieldByName("TEXTO2")->Value);
      ADOQuery1->Next();
   }
   ListView1->Items->EndUpdate();
   Label1->Caption = "In Dataset " + AnsiString(ADOQuery1->RecordCount) + ",
in List " + AnsiString(ListView1->Items->Count);
}

in dataset there are 5000 records, but in listview there are 4999


"Viatcheslav V. Vassiliev" <support@oledbdirect.com> escribi� en el mensaje
news:3fd80f4e@newsgroups.borland.com...
> 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)
>