🚀 go-pugleaf

It is interesting. This will not solve your problem, but it is not with
CacheSize - it is with ADO Express. However exactly CacheSize first rows are
missed:

procedure TForm1.ADOQuery1FetchComplete(DataSet: TCustomADODataSet;
  const Error: Error; var EventStatus: TEventStatus);
var
  ListItem: TListItem;
  i: Integer;
begin
  i := 0;

  DataSet.First;
  DataSet.Recordset.MoveFirst();
  with ListView1 do
  begin
 while ( DataSet.Eof = false ) do
 begin
   ListItem := Items.Add;
   ListItem.Caption := //DataSet.FieldValues['OrderID'];
  DataSet.Recordset.Fields['OrderID'].Value;
   ListITem.SubItems.Add(//DataSet.FieldValues['ProductID']);
  DataSet.Recordset.Fields['ProductID'].Value);
   Inc(i);
   DataSet.Next;
 end;
  end;
  Label1.Caption := 'Dataset '+ IntToStr(Dataset.RecordCount) + ' Items ' +
 IntToStr(ListView1.Items.Count) + ' Items2 ' + IntToStr(i);
end;

I added variable i to be sure that the problem is not in TListView (in other
tests I commented all TListView-related code). I found that if I use ADO
recordset methods (avoiding TDataSet methods) all works correctly.
DataSet.Recordset.MoveFirst() added to position to first record and
DataSet.FieldValues['FieldName'] should be changed to
DataSet.Recordset.Fields['FieldName'].Value. Now correct number is
displayed. Tested with [Order Details] table from Northwind database, MS SQL
Server.

//------------------------------------------
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:3fd86d01@newsgroups.borland.com...
> Thanks Vassiliev for your replies, but the BetterADODataset component
> neither works. It try it in delphi, and gives me the same problem.
> This is what I do ( in delphi )
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
>   BetterADODataSet1.Open;
> end;
>
> procedure TForm1.BetterADODataSet1FetchComplete(DataSet:
TCustomADODataSet;
>   const Error: Error; var EventStatus: TEventStatus);
> var
>   ListItem: TListItem;
> begin
>   DataSet.First;
>   with ListView1 do
>   begin
>     while ( DataSet.Eof = false ) do
>     begin
>       ListItem := Items.Add;
>       ListItem.Caption := DataSet.FieldValues['TEXTO1'];
>       ListITem.SubItems.Add(DataSet.FieldValues['TEXTO2']);
>       DataSet.Next;
>     end;
>   end;
>   Label1.Caption := 'Dataset '+ IntToStr(Dataset.RecordCount) + ' Items '
+
> IntToStr(ListView1.Items.Count);
> end;
>
> The result is the same : Dataset 5000 Items 4999
> I see that if I put CacheSize to 20, the result is 'Dataset 5000 Items
> 4980'. I think that the problem is in the CacheSize property. How can I
put
> the CacheSize to 0 ?? , or where are the rows that are loaded in the cache
?
>
>
>
> "Viatcheslav V. Vassiliev" <support@oledbdirect.com> escribi� en el
mensaje
> news:3fd85c21$1@newsgroups.borland.com...
> > 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)
> >
>
>