🚀 go-pugleaf

That is difficult to say why it happens but you may try to install
BetterADODataSet from http://web.orbitel.bg/vassil/. It has no BCB version
but I do not think there will be problems installing it.

//------------------------------------------
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:3fd82a7b@newsgroups.borland.com...
> 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)
> >
>
>
>