Discussion :

[SebCBien]

Salut,

Si je fais cela, ça marche :

Code :

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

1
2
3
4
5
MonIBDataSet.First;
for N:=1 to 13 do begin
  ...
  MonIBDataSet.Next;
end;

Mais cela ne marche pas, pourquoi ?

Code :

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

1
2
3
4
5
MonIBDataSet.First;
while not MonIBDataSet.Eof do begin
  ...
  MonIBDataSet.Next;
end;

Il ne prend que le premier enregistrement.

[Giovanny Temgoua]

Ecrit de cette façon, l'erreur est difficile à dénicher

Essaie de procéder par étape. C'est à dire, écrire quelque chose comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
MonIBDataSet.First;
ShowMEssage('Nombre d''enregistrement = '+IntToStr(MonIBDataSet.RecordCount));
if(MonIBDataSet.BOf) then ShowMessage('Début')
else ShowMessage('Erreur BOF')
while not MonIBDataSet.Eof do begin 
  ...//D'autres test pour savoir à quel numéro d'enregistrement on se trouve 
  MonIBDataSet.Next; 
end;

Je suppose que les traitements dans les boucles For et While sont identiques.

A+

[SebCBien]

Je n'y comprend rien.
Il indique 1 enregistrement et pourtant, il en affiche plusieurs.

Code :

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

ShowMEssage('Nombre d''enregistrement = '+IntToStr(MonIBDataSet.RecordCount));

Autre chose de bizarre.
J'exécute le même code dans les 2 boucles.
L'un marche mais pas l'autre.

Pour info, j'affiche un gantt avec TChart.

[Nono40]

Pour RecordCount c'est normal. Il ne fonctionne presque jamais : il rertourne dans la plupart des cas 0 ( dataset vide ) ou 1 ( dataset non vide ).

[SebCBien]

C'est bizarre, parce que j'ai toujours utilisé RecordCount et il a toujours marché sauf depuis 1 ou 2 mois ou il seme la M...

En tous cas, mon problème est résolu avec la boucle while.