Discussion :

[didoudek]

Bonjour, j'ai une nouvelle fois besoin de vos lumières... je possède une base de données mysql qui contient 3 champs (id, titre,numaffiche) je souhaiterais comparer les id de chaque ligne et updater le champ numaffiche en l'incrementant si le id change.
id titre numaffiche
OXCDE - le chant du loup -
TRUVX - mission impossible -
TRUVX - mission impossible -
DDERT - avengers -

le but étant de parcourir la table en commençant par numaffiche=1 pour le 1er et incrémenter de 1 si nouvel id en revanche si le id est identique sur 2 lignes alors ne pas incrémenter ...
j'ai tenté de récupérer le champ id et de le mettre dans un while not x.eof le problème est qu'il me mets le chiffre 1 partout ?

J'espère être clair et que quelqu'un pourra se pencher pour me tuyauter ?

Merci par avance

[Andnotor]

Ca peut se faire en SQL à l'aide de variables temporaires.

Code sql :

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

1
2
3
4
SET @LastID = '';
SET @NumAff = 0;
 
UPDATE table SET NumAffiche = (@NumAff := IF(ID <> @LastID, @NumAff+1, @NumAff)), ID = (@LastID := ID) ORDER BY ID;

Avec ORDER BY la numérotation ne sera pas forcément dans l'ordre mais deux ID identiques sur des lignes non contiguës seront correctement traités.

[didoudek]

Moi j'ai tenté cela mais il me voit 2 lignes puis me dit Update failed . Found 2 records... alors que ce n'est pas la fin de la table..

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
31
32
33
34
35
36
procedure TForm1.Button4Click(Sender: TObject);
var id : string;
    j : integer;
begin
   j:=1;
   Myupdate.SQL.Clear;
  Myupdate.SQL.Add('select * from phpoutjour order by code;');
  if not(Myupdate.Active) then Myupdate.Active:=true else Myupdate.execute;
  if myupdate.RecordCount<>0 then
  begin
    while not myupdate.Eof do
    begin
       id:=myupdate.Fields[1].Asstring;
       myupdate.Next;
      if id = (myupdate.Fields[1].asstring) then
      begin
       //pas incrementer
        myupdate.SQLUpdate.Clear;
        myupdate.SQLUpdate.Add('update phpoutjour set');
        myupdate.SQLUpdate.Add('affiche='+quotedstr(inttostr(j)));
        myupdate.SQLUpdate.Add('where id='+quotedstr(myupdate.Fields[1].asstring)+';');
         myupdate.Edit;
         myupdate.Post;
      end else
      begin
       inc(j);
       myupdate.SQLUpdate.Clear;
        myupdate.SQLUpdate.Add('update phpoutjour set');
        myupdate.SQLUpdate.Add('affiche='+quotedstr(inttostr(j)));
        myupdate.SQLUpdate.Add('where id='+quotedstr(myupdate.Fields[1].asstring)+';');
         myupdate.Edit;
         myupdate.Post;
      end;
    end;
  end;
end;

il me met 2 lignes à 1 et s'arrête ??

[didoudek]

Moi j'ai tenté cela mais il me voit 2 lignes puis me dit Update failed . Found 2 records... alors que ce n'est pas la fin de la table..

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
31
32
33
34
35
36
procedure TForm1.Button4Click(Sender: TObject);
var id : string;
    j : integer;
begin
   j:=1;
   Myupdate.SQL.Clear;
  Myupdate.SQL.Add('select * from phpoutjour order by code;');
  if not(Myupdate.Active) then Myupdate.Active:=true else Myupdate.execute;
  if myupdate.RecordCount<>0 then
  begin
    while not myupdate.Eof do
    begin
       id:=myupdate.Fields[1].Asstring;
       myupdate.Next;
      if id = (myupdate.Fields[1].asstring) then
      begin
       //pas incrementer
        myupdate.SQLUpdate.Clear;
        myupdate.SQLUpdate.Add('update phpoutjour set');
        myupdate.SQLUpdate.Add('affiche='+quotedstr(inttostr(j)));
        myupdate.SQLUpdate.Add('where id='+quotedstr(myupdate.Fields[1].asstring)+';');
         myupdate.Edit;
         myupdate.Post;
      end else
      begin
       inc(j);
       myupdate.SQLUpdate.Clear;
        myupdate.SQLUpdate.Add('update phpoutjour set');
        myupdate.SQLUpdate.Add('affiche='+quotedstr(inttostr(j)));
        myupdate.SQLUpdate.Add('where id='+quotedstr(myupdate.Fields[1].asstring)+';');
         myupdate.Edit;
         myupdate.Post;
      end;
    end;
  end;
end;

il me met 2 lignes à 1 et s'arrête ??

Quelqu'un peut il me dire ou se trouve l'erreur je galère depuis plusieurs jours !! Merci

[ShaiLeTroll]

Il y a une mauvaise utilisation des objets, vous devriez utiliser deux objets TQuery avec Open sur le SELECT et ExecSQL sur le UPDATE

Le code que vous montrez n'a pas grande cohérence, vous tentez de détourner un TUpdateSQL pour lancer du SQL, ce n'est pas la bonne méthode.
Veuillez apprendre à utiliser les objets correctement !


Et sinon, avec un HAVING pour sélectionner les doublons et un SQL comme celui suggéré par Andnotor, tout cela se fait via un script SQL, pas besoin de Delphi

[didoudek]

Merci pour l'info mais j'utilise ce genre de requête depuis un bout de temps et cela a toujours fonctionné c'est la méthode qui ne fait pas ce que je désire... mais pouvez vous m'en dire un peu plus sur le HAVING je ne sais pas comment l'utiliser ? un petit bout de code pour la démo serait peut etre plus parlant pour un débutant ou pointer les erreurs sur mon code..
J'utilise les composants MyDac.
Merci à vous de vous pencher sur mon problème.

[SergioMaster]

Bonjour,

c'est pourtant un problème simple, dans les temps "anciens" on parlerait de rupture de contrôle

pour le plaisir de la démonstration par code à la volée (via Firedac ne connaissant pas Mydac)

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
var Affiche: String;
     Numaffiche :integer;
With TFDquery1.Create(Self) Do
begin
 Connection:=TFDConnection;
 Open('SELECT id, titre, numaffiche FROM phpoutjour ORDER BY titre,numaffiche');
 Affiche:=EmptyStr;
 While not EOF do
   begin
     if affiche<>fieldByname('titre').asString then 
       begin
          affiche:=fieldByname('titre').asString;
          numAffiche:=-1;
       end;
       inc(numAffiche);
       FDConnection.ExecuteSQL('UPDATE phpoutjour SET NUMAFFICHE=? WHERE id=? AND Titre=? AND numaffiche IS NULL',
                                           [numaffiche,FieldByname('id').asString, FieldByname('titre').asString]);
      Next;   
 end;

Bien sûr, une colonne contenant un identifiant unique autoincrémenté aurait été nettement plus utile https://dev.mysql.com/doc/refman/8.0...increment.html
pour moi, c'est cette lacune au niveau de la structure le plus gros problème.

Quant à la clause HAVING c'est du B.A.B.A SQL

Code SQL :

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

SELECT id, titre FROM phpoutjour GROUP BY id,titre HAVING COUNT(1)>1

extrait tous les doublons

[Andnotor]

HAVING n'a pas d'intérêt puisque didoudek veut modifier toutes les lignes. AUTO_INCREMENT non plus puisque ce ne sont pas des valeurs uniques (1 id = 1 numéro).

Quant à ton exemple Sergio et si on se réfère à la table exemple du premier poste (1 id = 1 titre), ton code va juste mettre toutes les lignes à 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
19
20
21
22
23
24
25
procedure TForm1.Button4Click(Sender: TObject);
var
  id :string;
  j  :integer;
begin
  j  := 0;
  id := '';
 
  myupdate.Open('select * from phpoutjour order by code;');    // A voir avec MyDac
 
  while not myupdate.Eof do
  begin
    if id <> myupdate.FiledByName('id').AsString then
    begin
      id := myupdate.FiledByName('id').AsString;
      inc(j);
    end;
 
    myupdate.Edit;
    myupdate.FiledByName('affiche').AsInteger := j;
    myupdate.Post;
 
    myupdate.Next;
  end;
end;

Mais c'est le besoin qui n'est pas clair ; pourquoi avoir un champ numérique qui est du 1:1 avec le champ id ?

[didoudek]

Merci beaucoup Andnotor c'est toi qui a raison le code marche à merveille je me suis focalisé sur quelque chose de super compliqué en essyant de faire des comparaisons mais en fait il fallait que j'utilise le Fieldbyname...
Merci de vos aides bien précieuses pour des débutants...

[SergioMaster]

Bonjour,

@AndnotOr j'ai écrit ça à l'arrache entre deux crises douloureuses (il m'a bien fallu 30 minutes pour rédiger l'ensemble !)
contrairement à toi, je pense que non, car j'ai vu deux fois le même id (TRUVX) et titre, d'où la nécessité d'une détection de changement de titre
pour une numérotation de 0 à 1 pour les id TRUVX
effectivement, cependant, le fait d'utiliser un UpdateSQL avec les conditions indiquées ne peut pas fonctionner
.. Pause douloureuse ...


c'est pour cela que j'indiquais qu'un identifiant unique (Clé primaire ou a minima contrainete d'unicité) eut été préférable, pour éviter que le sql update soit avec cette clause WHERE id=? AND Titre=? AND numaffiche IS NULL où il manque quelque chose
.. Pause douloureuse ...


avec un idunique la clause where serait plus simple et de ce genre WHERE idunique=?à la réflexion tester sur id ou titre revenait au même donc il faut plutôt utiliser ID, de plus je me méfie toujours des descriptions, une majuscule, un espace, une faute d'orthographe ...

.. Pause douloureuse ...

Je ne sais pas si une query pour lire la table est vraiment adaptée, je me méfie des mises à jour, surtout autogénérées, sur une requête, mais, ne connaissant pas mydac, j'en reste là puisque c'est marqué résolu