Discussion :

[Magohamoths]

Bonjour,

J'ai le composant TSQLMemTable de http://aidaim.com branché sur un TDataSet classique.

Dans le code je fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    FDbEncais.CancelRange;
    FDbEncais.IndexName := 'idxDate';
    FDbEncais.First;
    ts := TStringList.Create;
    while not(FDbEncais.Eof) do
    begin
      solde := solde + FDbEncais.FieldByName('Mont_Ajuste').AsFloat;
      FDbEncais.Next;
    end;

Le problème c'est que la boucle me prends un enregistrement en plus.
C'est à dire que j'an ai 9 (le Recordcount indique 9) mais la boucle while tourne 10 fois. Le dernier enregistrement est prix 2 fois.

Pour que ça fonctionne je dois déconnecter ma TSQLMemTable du TDataSet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonDataSet.DataSet:=nil;

Si quelqu'un a une explication car la je sèche complètement.

Merci

[ALWEBER]

Tu es sur quelle version de Delphi ?

[Magohamoths]

Tu es sur quelle version de Delphi ?

XE7 SP1.

[ALWEBER]

Bonjour,

1) Je ne connais pas TSQLMemTable mais j'en connais d'autre similaires. A priori tu peux utiliser sous Delphi XE7 les composants TFDMemTable ou TClientDataSet en fonction de la manière dont sont stockées tes données.
2) Tu peux voir
Info WIKI
3) Si tu récupère tes données par une requête sur un TFDMemTable nommé FDMemTable1, tu peux le copier via la directive FDMemTable1.CopyDataSet dans ton dataset et ensuite poser index et filtres à ta convenance sur ce dataset pour faire ton scan qui là j'en suis sur te donnera le bon résultat.