Discussion :

[bremer]

Bonjour,

Je bloque sur un problème simple à mon sens.

J'ai besoin de mettre à jour une base de données par rapport à des données.

Un champ N° employé contient par exemple :

1
2
2
2
3
4

Le but c'est de mettre dans un champ nommé pli
DF si une seule fiche ayant le N° d'employé et D pour début M milieu et F pour F lorsqu'il y a plusieurs N° d'employé identiques :

1 | DF
2 | D
2 | M
2 | F
3 | DF
4 | DF

Merci popur vos idées car j'ai l'impression de faire une usine à gaz.

Laurent

[Yurck]

A la va vite il me semble que

D'abord ils sont tous au Milieu puis il y a un Dernier et enfin il y a un Premier.

Evidemment cela fait que certain enregistrement seront mis à jour plusieurs fois.

Le cas simple il ny a qu'un enreg

Code :

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

1
2
3
4
5
 
  Update XX maTable
    set maTable.pli = 'DF'
   group by maTable.Num
   having count( maTable.Num) = 1

----
initilisation

Code :

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

1
2
3
4
5
 
   Update XX maTable
     set maTable.pli = 'zz'
    group by maTable.Num
    having count( maTable.Num) >= 2

Le premier

Code :

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

1
2
3
4
5
6
7
8
 
  Update XX maTable 
    set maTable.pli = 'D'
   where maTable.Num = (select min(maTable2.num) 
                                     from XX maTable2 
                                  where maTable2.num=maTable.num)
   group by Num
   having count( Num) >= 2

le dernier

Code :

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

1
2
3
4
5
6
7
8
 
   Update XX maTable 
     set maTable.pli = 'F'
   where maTable.Num = (select max(maTable2.num) 
                                     from XX maTable2 
                                  where maTable2.num=maTable.num)
    group by Num
    having count( Num) >= 2

et le reste s'il en reste

Code :

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

1
2
3
4
5
6
 
    Update XX maTable 
      set maTable.pli = 'M'
    where maTable.pli = 'zz'
   group by Num
     having count( Num) >= 2

Maintenant si tu as du volume peut-être dois tu songer à une procédure stockée.

[bremer]

Merci pour cette solution mais j'aurais préféré une solution en delphi.

[Aka Guymelef]

Bonjour,

pour ma part je te conseilles d'opter pour la solution SQL, tu obtiendras de bien meilleures performances que via le code Delphi.

[Yurck]

Évidemment c'était écrit.

alors en delphi il faut savoir comment tu met à jour ton ensemble de donnée

Alors en faisant preuve d'imagination.

Un Query en cacheUpdate via le BDe

Code :

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

1
2
3
4
5
6
 
Select matable.num, matable.pli, (select min(maTable2.num)
                                               from XX maTable2
                                              where maTable2.num=maTable.num) as NombreEnreg
 from XX matable
order by matable.num

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
37
38
39
40
 
 
procedure KiFaitCeQueJeVeux;
Var 
  Qry        : TQuery;
  Num, Nb  : Integer;
begin
  Qry := TQuery.create;
  try
   //... initialisation - mise ne place TupdateSql- connection - etc...
 
    Qry.Open;
    Num := 0;
    While not Qry.Eof do
    begin
      if Qry.fields[0].AsInteger <> Num then
        Nb := 1;
      Num := Qry.fields[0].AsInteger;
 
      if Qry.fields[2].AsInteger = 1  then
          Qry.fields[1] := 'DF'
      else 
      begin
         if Nb=1 then
           Qry.fields[1].AsString := 'D'
         else  
         if Nb=Qry.fields[2].AsInteger then
           Qry.fields[1].AsString := 'F'
         else 
           Qry.fields[1].AsString := 'M';
         end; 
      inc(Nb);
      Qry.next;
    end;
 
    // Appel des procedure cacheupdate qui vont bien
  finally
  end;
 
end;

Voilà tous cela à main levée.

Il faudrait savoir comment tu accèdes aux données et comment tu mets à jour tes données
.

[Yurck]

Bonjour,

pour ma part je te conseilles d'opter pour la solution SQL, tu obtiendras de bien meilleures performances que via le code Delphi.

Je suis d'accord c'est statistiquement vrai.
Après combien a-t-il de paquet de trois enregistrement, sur quelles colonnes sont les index, etc...

En fin bon,
c'est vous qui voyez,
y'en a qui ont essayé mais ils ont eu des problèmes.

[bremer]

Je ne suis pas contre la solution SQL mais en MySQL j'obtiens une erreur


You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near
'group by num_employe having count( num_employe) > 2' at line 3

[Franck SORIANO]

Il y a quelque chose qui me perturbe :
Lorsque tu as 3 lignes avec le même n° d'employé, tu fais comment pour décider celui qui est le premier, celui qui est le dernier et ceux qui sont entre ?

Tu choisis arbitrairement selon l'humeur du moment ou tu as d'autres champs pour les trier et décider ordonner les fiches avec le même n°.

Si tu ne peux pas définir un ordre de tri précis et que tu n'as que le numéro d'employé tu ne t'en sortira jamais avec du SQL normal.
Il faudra faire le traitement dans Delphi ou avec un curseur.

[bremer]

Il y a un champ numéro de page sur lequel j'effectue un order by

[Yurck]

Ce Sql n'aurait pas du être dans les balises Code.

Je pense qu'on ne peut pas faire de group by dans un update

je n'ai pas de base sous la main alors tu peux voir en modifiant le SQL ou en repostant dans un forum où des spécialistes SQL se délecteront à te répondre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Update XX maTable
     set maTable.pli = 'F'
   where   maTable.Num in (select maTable3.num
                             from XXX maTable3
                         group by maTable3.Num
                     having count( maTable3.Num) >= 2)
            and
 
            maTable.Num = (select max(maTable2.num)
                                     from XX maTable2
                                  where maTable2.num=maTable.num)