Discussion :

[wisetechacer]

salut , joyeuse fête pour tout le monde
j'ai un souci avec une requête SQL avec la commande CASE ,j'utilise RAD seattle avec BDE , une fonction dans RAD qui contient
le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function SQLText(strSelect, strWhere : String) : String;
Begin
   Result :='SELECT B.CODRS, B.NCMP, B.BLOE, B.CTYP, '+
           'B.T_BRT, B.R_SES, B.R_IRB, B.N_PYE, (B.CCH) AS EXPERT , '+
           'CASE WHEN ASN = 20 THEN (B.NOR - T_AFM) ELSE (((B.N_PYE - T_AFM) / (20 - ASN)) * ASN) END AS HONM, ' +          
           'G.ECH00, G.ECH01, G.ECH02, G.ECH03, '+
           'G.ECH08, G.INDICE AS INDPST, "" AS INDIEP, '+
           'B.CTSCPS, B.CTNWPS, CAST(0 AS INTEGER) AS NUMBER, CAST(B.CODCH+B.NBRAE*H.T_IEAS AS CHAR(4)) AS ECHNE, ';
  If bolOrient Then
     Result :=Result+'B.NOMPRN, C.DESIGN AS DESGRD, F.DESIGN AS DESPST, D.DESIGN+"/"+D.AGEARA AS DESBNQ, '
               Else
............................. reste du programme -

je sais bien que l 'erreur de l'utilisation de CASE est la cause directe , j'ai pas pu la régler , s'il vous plait , donner moi un coup de pouce , merci

[SergioMaster]

Bonjour,

j'utilise RAD seattle avec BDE

OMG encore BDE en 2024, alors qu'il est obsolète depuis le début des années 2000 !

Je sais bien que l'erreur de l'utilisation de CASE est la cause directe

pas si sûr que ça que ce soit le CASE, mais d'abord de quelle SGBDR parlons-nous ?
Déjà, il y a peut-être un problème d'alias, ASN est une des seules colonnes (avec T_AFM) à ne pas avoir de nom (ou plutôt d'alias de table) indiqué.

NB. D.DESIGN+"/"+D.AGEARA peut aussi être une erreur si D.AGEARA=0 !

NB2. C'est plus un problème SQL que Delphi.

Meilleurs voeux.

[wisetechacer]

Bonjour,


OMG encore BDE en 2024, alors qu'il est obsolète depuis le début des années 2000 !


pas si sûr que ça que ce soit le CASE, mais d'abord de quelle SGBDR parlons-nous ?
Déjà, il y a peut-être un problème d'alias, ASN est une des seules colonnes (avec T_AFM) à ne pas avoir de nom (ou plutôt d'alias de table) indiqué.

NB. D.DESIGN+"/"+D.AGEARA peut aussi être une erreur si D.AGEARA=0 !

NB2. C'est plus un problème SQL que Delphi.

Meilleurs voeux.

Bonjour et merci pour votre reponse Mr Sergio, en faite pour une table BDE / paradox - ce n’était pas un choix -
le message d'erreur s'afffiche ainsi: ligne 1 WHEN
je simplifié la requête pour vous car les champs sont ainsi :

Code :

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

1
2
3
4
5
Begin
   Result :='SELECT B.CODPRS,B.CODCLS, B.CODSRV, B.CODPST, B.CODGRD, B.CODECH, '+
           'B.T_BRUT, B.N_PAYE, G.INDICE AS G.INDPST, '+
		   'CASE WHEN B.N_ABSN = 20 THEN (B.NBRHOR - T_AFAM) ELSE (((B.N_PAYE - T_AFAM) / (20 - B.N_ABSN)) * B.N_ABSN) END AS HONM, '+
           'B.CTSCPS, B.CTNWPS, CAST(0 AS INTEGER) AS NUMBER, ';

j’espère que vous voyez maintenant les détails ,merci encore

[SergioMaster]

en fait pour une table BDE / paradox - ce n’était pas un choix -

En fait, avec Firedac, il est possible d'attaquer des tables paradox par l'intermédiaire d'ODBC.
Cependant, le problème n'est pas là, c'est le localsql n'accepte pas CASE tout simplement (enfin tout simplement si l'on veut !).

solution 1 :
faire une UNION

Result :='SELECT B.CODPRS,B.CODCLS, B.CODSRV, B.CODPST, B.CODGRD, B.CODECH, '+
'B.T_BRUT, B.N_PAYE, G.INDICE AS G.INDPST, '+
'(B.NBRHOR - T_AFAM) AS HONM , '+
'B.CTSCPS, B.CTNWPS, CAST(0 AS INTEGER) AS NUMBER, '+...+
'WHERE B.N_ABSN=20'

+' UNION '+
'SELECT B.CODPRS,B.CODCLS, B.CODSRV, B.CODPST, B.CODGRD, B.CODECH, '+
'B.T_BRUT, B.N_PAYE, G.INDICE AS G.INDPST, '+
'(((B.N_PAYE - T_AFAM) / (20 - B.N_ABSN)) * B.N_ABSN) AS HONM, '+
'B.CTSCPS, B.CTNWPS, CAST(0 AS INTEGER) AS NUMBER,'+...+
'WHERE B.N_ABSN<>20'

Solution 2 : LocalSQL étant pour TQuery, il faudrait tester avec Firedac et une liaison ODBC pour voir si cela passerait.

Je me permets quand même d'écrire que le code m'a l'air plutôt complexe, une troisième solution 3 serait peut-être de créer un champ calculé et de le "remplir" via un OnCalculate du dataset.

[wisetechacer]

En fait, avec Firedac, il est possible d'attaquer des tables paradox par l'intermédiaire d'ODBC.
Cependant, le problème n'est pas là, c'est le localsql n'accepte pas CASE tout simplement (enfin tout simplement si l'on veut !).

solution 1 :
faire une UNION

Result :='SELECT B.CODPRS,B.CODCLS, B.CODSRV, B.CODPST, B.CODGRD, B.CODECH, '+
'B.T_BRUT, B.N_PAYE, G.INDICE AS G.INDPST, '+
'(B.NBRHOR - T_AFAM) AS HONM , '+
'B.CTSCPS, B.CTNWPS, CAST(0 AS INTEGER) AS NUMBER, '+...+
'WHERE B.N_ABSN=20'

+' UNION '+
'SELECT B.CODPRS,B.CODCLS, B.CODSRV, B.CODPST, B.CODGRD, B.CODECH, '+
'B.T_BRUT, B.N_PAYE, G.INDICE AS G.INDPST, '+
'(((B.N_PAYE - T_AFAM) / (20 - B.N_ABSN)) * B.N_ABSN) AS HONM, '+
'B.CTSCPS, B.CTNWPS, CAST(0 AS INTEGER) AS NUMBER,'+...+
'WHERE B.N_ABSN<>20'

Solution 2 : LocalSQL étant pour TQuery, il faudrait tester avec Firedac et une liaison ODBC pour voir si cela passerait.

Je me permets quand même d'écrire que le code m'a l'air plutôt complexe, une troisième solution 3 serait peut-être de créer un champ calculé et de le "remplir" via un OnCalculate du dataset.

salut et pardonnez moi pour le retard , vous avez entierement raison Mr Sergio , j'ai bricolé, la solution 1 fonctionne bien , je vous remercie .concernant la migration de BDE vers Firedac c un plus complex pour ce programme car il contient beaucoup de contraintes merci encore une fois .