RowNum SQL et Delphi

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Voilà je bosse sous Delphi 7 j'ai un tableau (voir pièces jointes) et j'aimerai faire une différence de couleurs. A chaque commande différente je met change de couleurs.

Sur mon exemple en pièce jointe cela ferait :
1° ligne en blanc
3 lignes suivantes en gris

Voici ma requête me permettant d'afficher mon tableau :
Code:

1 2 3 4 5 6 SQL.Add('SELECT colxcol, cdexent,CAST(0 AS SMALLINT) AS REGROUPER, NUMXCOL FROM ENTXRES E JOIN COLXRES C ON NUMXENT=NUMXCOL'); SQL.Add('WHERE CODXENT =:cod '); SQL.Add('and TOUXENT =:tou '); SQL.Add('and MARXENT =:mar '); SQL.Add('and FLAXCOL ='+QuotedStr('7') ); SQL.Add('and (REFXCOL is not null) group by CDEXENT, COLXCOL, NUMXENT, NUMXCOL');
Sergio Master m'a aidé dans cette discussion

A utiliser ma requête pour gérer une colonne couleur :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 SQL.Add('WITH C1 AS (select CDEXENT,NUMXENT from ENTXRES GROUP BY CDEXENT,NUMXENT)'); SQL.Add(', C2 AS (SELECT CDEXENT,NUMXENT,ROWNUM AS RN FROM C1)'); SQL.Add('select COLXCOL, E.CDEXENT,CAST(0 AS SMALLINT) AS REGROUPER ,MAX(c2.RN) AS COLCOULEUR, NUMXCOL'); SQL.Add('from ENTXRES E JOIN COLXRES C ON E.NUMXENT=C.NUMXCOL JOIN C2 ON C2.CDEXENT=E.CDEXENT AND C2.NUMXENT=E.NUMXENT'); SQL.Add('JOIN C2 ON C2.NUMXENT=C1.NUMXENT'); SQL.Add('where CODXENT =:cod '); SQL.Add('and TOUXENT =:tou '); SQL.Add('and MARXENT =:mar '); SQL.Add('and refxcol is not null'); SQL.Add('and FLAXCOL ='+QuotedStr('7') ); // <-plus joli pour pas se planter avec les '' SQL.Add('group by E.CDEXENT, C.COLXCOL, E.NUMXENT, NUMXCOL'); SQL.Add('order by E.CDEXENT, C.COLXCOL');
POur qu'en fonction de cette colonne couleur je modifie les couleurs de mes lignes :
Code:

1 2 3 4 5 if Odd(dbgrid_select.DataSource.DataSet.FieldByName('COLCOULEUR').asinteger) then dbgrid_select.Canvas.Brush.Color:=clRed else dbgrid_select.Canvas.Brush.Color:=clWindow; x_cmd := dbgrid_select.DataSource.DataSet.FieldByName('CDEXENT').AsString;
Cependant cela ne fonctionne pour le moment pas. Mais nous ne sommes pas sûr de l'utilisation de RowNum sous Oracle...

Avez vous des idées pour ma requête ?

Essayez quelque chose comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
With SR as
(
   SELECT DISTINCT 
          colxcol
        , cdexent
        , NUMXCOL
     FROM ENTXRES E
     JOIN COLXRES C
       ON NUMXENT = NUMXCOL
    WHERE CODXENT =:cod
      and TOUXENT =:tou
      and MARXENT =:mar
      and FLAXCOL ='7'
      and REFXCOL is not null
)
  select colxcol
       , cdexent
       , CAST(0 AS SMALLINT) AS REGROUPER
       , NUMXCOL
       , rank() over(order by colxcol asc)     AS rk
    from SR
order by colxcol asc;

Sur un autre sujet, ne construisez pas votre requête dans votre code applicatif. C'est mauvais pour les performances, la sécurité et la maintenabilité. Utilisez des procédures et/ou des vues.

31/07/2013, 12h11
pacmann

Salut,

Si tu veux numéroter les lignes selon l'ordre de sortie qui est defini par l'order by, utilise plutôt row_number :

select COLXCOL, E.CDEXENT,CAST(0 AS SMALLINT) AS REGROUPER ,~~MAX(c2.RN)~~ row_number() over(order by E.CDEXENT, C.COLXCOL) AS COLCOULEUR, NUMXCOL
...

De plus, il vaut mieux que ton order by soit déterministe, pour être sûr que le row_number retourne la même chose que l'order by (même si ça a de grandes chances d'être le cas). Le meux serait d'inclure toutes les colonnes du GROUP BY partout.

Citation:
Envoyé par Waldar
Essayez quelque chose comme ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 With SR as ( SELECT DISTINCT colxcol , cdexent , NUMXCOL FROM ENTXRES E JOIN COLXRES C ON NUMXENT = NUMXCOL WHERE CODXENT =:cod and TOUXENT =:tou and MARXENT =:mar and FLAXCOL ='7' and REFXCOL is not null ) select colxcol , cdexent , CAST(0 AS SMALLINT) AS REGROUPER , NUMXCOL , rank() over(order by colxcol asc) AS rk from SR order by colxcol asc;
Sur un autre sujet, ne construisez pas votre requête dans votre code applicatif. C'est mauvais pour les performances, la sécurité et la maintenabilité. Utilisez des procédures et/ou des vues.
Si je copie la requête en PL/SQl (avant de la mettre dans mon code) ça me dit "Toutes les variables ne sont pas liées" sur la ligne du rank. A quoi correspond t-il ?

Citation:

Envoyé par pacmann

Salut,

Si tu veux numéroter les lignes selon l'ordre de sortie qui est defini par l'order by, utilise plutôt row_number :

select COLXCOL, E.CDEXENT,CAST(0 AS SMALLINT) AS REGROUPER ,~~MAX(c2.RN)~~ row_number() over(order by E.CDEXENT, C.COLXCOL) AS COLCOULEUR, NUMXCOL
...

De plus, il vaut mieux que ton order by soit déterministe, pour être sûr que le row_number retourne la même chose que l'order by (même si ça a de grandes chances d'être le cas). Le meux serait d'inclure toutes les colonnes du GROUP BY partout.

Quelque chose comme ça ?
Code:

1 2 3 4 5 6 7 8 9 10 select COLXCOL, E.CDEXENT,CAST(0 AS SMALLINT) AS REGROUPER ,row_number() over(order by E.CDEXENT, C.COLXCOL) AS COLCOULEUR, NUMXCOL from ENTXRES E JOIN COLXRES C ON E.NUMXENT=C.NUMXCOL where CODXENT ='00400' and TOUXENT ='DUCFRA' and MARXENT ='RO' and refxcol is not null and FLAXCOL ='7' group by COLXCOL, E.CDEXENT,REGROUPER ,COLCOULEUR, NUMXCOL order by COLXCOL, E.CDEXENT,REGROUPER ,COLCOULEUR, NUMXCOL
je l'ai mis dans PL/SQ (pour tester avant de mettre dans mon code) mais ça me dit COLCOULEUR identificateur non valide...
Il me reconnait pas la couleur..

31/07/2013, 16h14
Waldar
Citation:

Envoyé par juju1988

Si je copie la requête en PL/SQl (avant de la mettre dans mon code) ça me dit "Toutes les variables ne sont pas liées" sur la ligne du rank. A quoi correspond t-il ?

À ces trois variables :
Code:

1 2 3 WHERE CODXENT =:cod AND TOUXENT =:tou AND MARXENT =:mar
Il suffit de les remplacer par l'autre bout de code :
Code:

1 2 3 WHERE CODXENT = '00400' AND TOUXENT = 'DUCFRA' AND MARXENT = 'RO'

OK ça fonctionne au niveau de la requête.

Code:

1
2
3
4
5
6
7
8
    sql.Add('WITH SR AS (SELECT DISTINCT colxcol, cdexent, NUMXCOL FROM ENTXRES E JOIN COLXRES C ON NUMXENT = NUMXCOL');
    sql.Add('WHERE CODXENT =:cod AND TOUXENT =:tou AND MARXENT =:mar AND FLAXCOL =''7'' AND REFXCOL IS NOT NULL)');
    sql.Add('SELECT colxcol, cdexent, CAST(0 AS SMALLINT) AS REGROUPER, NUMXCOL, rank() over(ORDER BY colxcol ASC) AS rk FROM SR ORDER BY colxcol ASC');
 
    ParamByName('cod').AsString := zx_cli;
    ParamByName('tou').AsString := x_tournee;
    ParamByName('mar').AsString := x_transport;
    tryquery1(q_select,'open','Erreur affichage cmd regroupables (MS42 -008)',4);

Mais au niveau de mon test :

Code:

1
2
3
4
5
  if Odd(dbgrid_select.DataSource.DataSet.FieldByName('RK').asinteger)  then
      dbgrid_select.Canvas.Brush.Color:=clRed
    else
      dbgrid_select.Canvas.Brush.Color:=clWindow;
    x_cmd := dbgrid_select.DataSource.DataSet.FieldByName('CDEXENT').AsString;

ça ne fonctionne pas ...

31/07/2013, 17h23
Waldar

Pour la partie delphi, ne connaissant pas ce langage je ne peux pas vous aider.
La colonne RK renvoie simplement un numéro différent pour chaque colxcol.
Si vous voulez que les id soit continus, vous pouvez utiliser la fonction dense_rank() au lieu de rank().
01/08/2013, 08h47
juju1988

Merci de votre aide. La requête fonctionne mais mon affichage non... je vais voir ce que je peux faire :) merci en tout cas