🚀 go-pugleaf

hello,

instead of doing this in
void __fastcall TForm1::ADOQuery1FetchComplete(TCustomADODataSet *DataSet,
      const Error *Error, TEventStatus &EventStatus)

try it in
void __fastcall TForm1::ADOQuery1AfterOpen(TDataSet *DataSet)

after you're opening your query, the records will be printed in the list

Ld

"Vic" <victor@espainformatica.com> a �crit dans le message de 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.
>
>