Discussion :

[MIWAN]

Bonsoir
Je souhaite avoir une aide pour une boucle dans une table ADO (élèves) qui contient plusieurs enregistrements avec un champs classe étude[CL_E] et un champs [No] .
Je veux que dans chaque classe l’élève aura un numéro exe :de 01….25 qui est le dernier et quand la classe change le compteur retourne à 01 pour numéroter l’élève de la classe suivante jusqu’au dernier élève de la cl asse ainsi de suite …
Resultat est indiquée dans la photo suivante



Merci pour toutes aide

[retwas]

Quel SGBD utilises tu ? En SQL Serveur par exemple tu peux le faire en une seule requête avec "row over partition by".

Si tu veux le faire en Delphi et poster les requetes il faut que tu selectionnes tes élèves avec un tri par classe (au minimum). Ensuite avec Eof tu boucles sur tes données, tant que la classe ne change pas tu incrémentes un compteur et tu fais l'update. Si la classe à changée tu remets le compteur à 0.

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
18
 
var
   iCompte  : integer;
   sClasse : string;
begin
   // recuperation des donnees
   sClasse := '';
   while not qrySelect.Eof do
   begin
      if sClasse <> qrySelect.FieldByName('CL_E').AsString then
         iCompteur := 0
      else
         Inc(iCompteur);
 
      // update
      // sClasse := valeur du query
      // next ...
   end

[MIWAN]

Bonjour
ce qui concerne le SGBD c'est table ADO(Access) et Delphi 2010
retwas
Je suis honoré de votre réponse.
je me inspiré de votre solution et j’ai fait

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
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
procedure TForm1.Button3Click(Sender: TObject);
  var
   i  : integer;
   sClasse : string;
begin
   // recuperation des donnees
   sClasse :=QEntete.FieldByName('CL_E').AsString;
   i :=0;
 
   QEntete.First;
   while not QEntete.Eof do
   begin
      if sClasse = QEntete.FieldByName('CL_E').AsString then
      begin
      Inc(i);
      ListBox1.Items.Add(intToStr(i));
      end
          else
          begin
          i:=0;
          Inc(i);
          ListBox1.Items.Add(intToStr(i));
         end;
      QEntete.next;
 
   end;
 
end;

Qui m’a donné une numérotation exacte pour la première Classe seulement et les autres classes avec un numéro unique (1) , c'est-à-dire la boucle s’arrête .

[Papy214]

retwas a préconisé de se baser sur le changement de nom, pas sur l'égalité du nom

[MIWAN]

Papy214
merci de votre réponse
meme problème si je fait <> .
j'ai fait toutes les changements possibles sans arrive a une résultat suffisante.

[Papy214]

Le code donné par retwas est tout à fait classique et doit fonctionner.
Après, il y a la solution de faire un select distinct sur CL_E pour avoir tous les noms de classe pour ensuite les traiter une par une avec une requête simple.
Si c'est plus facile comme ça, pourquoi pas ...

[retwas]

Il faut affecter la valeur dans la boucle.

Code :

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

1
2
3
 
   sClasse := QEntete.FieldByName('CL_E').AsString;
end;

[SergioMaster]

Bonjour,

rapidement il y a un problème de mise en place des instructions qu'un algorithme sur papier aurait vite détecté

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
18
19
20
21
22
23
24
25
26
27
 
procedure TForm1.Button3Click(Sender: TObject);
  var
   i  : integer;
   sClasse : string;
begin
   i :=0; 
   QEntete.First; //(où est le open ?) 
   // recuperation des donnees 
   sClasse :=QEntete.FieldByName('CL_E').AsString; 
 
   while not QEntete.Eof do
   begin
      if sClasse = QEntete.FieldByName('CL_E').AsString then
      begin
         Inc(i);
          ListBox1.Items.Add(intToStr(i));
      end
      else begin
         sClasse :=QEntete.FieldByName('CL_E').AsString; // mémorisation de la nouvelle classe 
          i:=0;
          Inc(i);
          ListBox1.Items.Add(intToStr(i)); 
         end;
      QEntete.next;
   end;
end;

bien sûr il faut que la table soit trié par classe puis ID

[MIWAN]

Merci Beaucoup a tous

SergioMaster
bien sure le problème était la

Code :

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

1
2
 
sClasse :=QEntete.FieldByName('CL_E').AsString; // mémorisation de la nouvelle classe

Résolu