Discussion :

[sapin]

Bonjour,
je souhait connaitre le nombre de ligne que me retourne ma requête (faite par un composant TMyQuery) après exécution.

Pour cela j'ai fait le code suivant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TFormNewArea.MyQueryChannelAfterExecute(Sender: TObject;
  Result: Boolean);
var
 indice : integer;
begin
  inherited;
  indice := 0;
  if MyQueryChannel.RecordCount <> 0 then
  begin
    while not EOF do
    begin
      indice := indice + 1;
      AdvStringGrid1.Cells[indice,1] := MyQueryChannel.Fields[0].Value;
      Next;
    end;
  end;
end;

Mais je ne sais pas pourquoi, je ne passe jamais mon If, RecordCount valant tous le temps zéro, alors que ma requête s'effectue correctement.
Un indice ?
Merci

[ero-sennin]

Salut,

J'ai déjà lu sur le site que RecordCount posait des soucis ...
Le mieux à faire, c'est une requête SQL qui te retournera le nombre d'enregistrement ... Ca sera surement plus sûr ...

J'espère t'avoir aidé.
A+

[ShaiLeTroll]

Il y a aussi IsEmpty, et dans ton cas le EOF va vérifier avant, donc tu peux enlever le test !

[sapin]

Bonjour,
lorsque j'ai rencontré ce problème je me suis renseigné et j'ai aussi lu qu'il valait mieux utilisé Count.
Mais j'ai quand même posé cette question pour comprendre un peu plus l'utilisation de MyQuery et essayé de progresser.
Merci

[sapin]

Re bonjour,
je pense que mon problème vient que je regarde l'état du RecordCount avec l'événement "AfterExcecute".
Si je fait

Code :

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

1
2
MyQuery.execute;
MyQuery.recordCount;

dans ce cas, le recordCount prend une valeur correcte.
Sur quel peut donc être le type d'événement qui convient à la place de AfterExecute ? J'en ai testé quelqu'un mais rien de concluant.

[ShaiLeTroll]

Pourquoi passer par un évènement, tu peux très bien faire une méthode FillGrid a appeler après un Execute ... il est bien mieux de maitriser ce que l'on fait que de tout déporté dans des comportements automatiques (pense à la maintenance du programme plus tard ...)