TDataSet et TMemSQLTable

Bonjour,

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

Dans le code je fait :

Code:

---

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:

---

MonDataSet.DataSet:=nil;

---

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

Merci

Tu es sur quelle version de Delphi ?

Citation:

---

Envoyé par ALWEBER

Tu es sur quelle version de Delphi ?

---

XE7 SP1.

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.