firebird: ORDER BY comme paramètre

salut comment mettre ORDER BY comme paramètre
SGBD: Firebird 2.5
voir l'exemple suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
var variable:string;
begin
 
if ComboBox1.ItemIndex=0 then Variable:='Nom_Client'
else if ComboBox1.ItemIndex=1 then Variable:='Prenom_Client';
 
with FDQuery1 do
begin
   Close;
   SQL.Clear;
   SQL.Add(' SELECT * FROM clients');
   SQL.Add(' ORDER BY :trier');
   ParamByName('trier').value:=Variable;
   open;
end;
 
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
var variable:string;
begin
 
if ComboBox1.ItemIndex=0 then Variable:='Nom_Client'
else if ComboBox1.ItemIndex=1 then Variable:='Prenom_Client';
 
with FDQuery1 do
begin
   Close;
   SQL.Clear;
   SQL.Add(' SELECT * FROM clients');
   SQL.Add(' ORDER BY ' + Variable);
   open;
end;
 
end;

meeeci

Bonjour,

Il y a encore une autre manière que je trouve encore plus élégante, Firedac propose non seulement les paramètres mais aussi les macros.
Les macros, il y en a de deux types :
les prédéfinies qui dans ce cas ne nous intéressent pas
mais aussi, celles qui nous intéressent et qui ressemblent beaucoup à des paramètres, notées par un & ou un !

Exemple : SELECT * FROM clients &ordre
On utilise alors FDQuery.Macrobyname('ordre').asRaw pour renseigner la valeur

Exemple : FDQuery.Macrobyname('ordre').asRaw:=Format('ORDER BY %s',[variable])Note : pour ne pas indiquer d'ordre FDQuery.Macrobyname('ordre').clearMais il y a plus subtil, macrobyname peut aussi être affecté par asIdentifier
modifions légèrement la requête SELECT * FROM clients ORDER BY &ordre (donc il doit toujours y avoir une colonne)
on pourrait écrire FDQuery.Macrobyname('ordre').asRaw:=variablemais FDQuery.Macrobyname('ordre').asIdentifier:=variable ajouteras, en théorie, un contrôle d'existence de la colonne
Notes :

J'utilise plutôt asIndentifier pour des noms de tables;
Je pense que asIndentifier est mieux (mais pas toujours possible à utiliser) pour parer à l'injection de SQL.

Attention, on peut aussi mettre asString mais dans ce cas des apostrophes seront ajoutées, ce que dans le cas qui nous intéresse n'est pas une bonne chose, on ne veut pas que la requête, après pré-process devienne SELECT * FROM clients ORDER BY 'Nom_Client' => erreur SQL

Il y a encore plus de subtilités que je n'ai pas testées comme {id } ni, a vrai dire, la plupart des macros prédéfinies n'en ayant jamais eu l'utilité
la bible de Cary Jensen, Delphi in Depth : Firedac y consacre un chapitre entier (le 14)

[EDIT ADDENDA]
je trouve ce code
Code:

1 2 if ComboBox1.ItemIndex=0 then Variable:='Nom_Client' else if ComboBox1.ItemIndex=1 then Variable:='Prenom_Client';
très moyen
soit il n'y a que deux possibilités auquel cas
Code:

1 2 if ComboBox1.ItemIndex=0 then Variable:='Nom_Client' else Variable:='Prenom_Client';
un Case ne serait pas mal non plus, ainsi que plus "évolutif"
Code:

1 2 3 4 5 6 7 8 9 10 11 with FDQuery do begin Close; Case ComboBox1.ItemIndex of 0 : Macrobyname('ordre').asRaw:='Nom_Client'; 1 : Macrobyname('ordre').asRaw:='Prenom_Client'; else Macrobyname('ordre').Clear; end; Open; end;

voilà qui justifie le temps que je passe sur les forums :)

je n'avais pas vu les Macros ;)

d'autres exemples ici
http://docwiki.embarcadero.com/RADSt...ndes_(FireDAC)

merci

Citation:

Envoyé par Paul TOTH

voilà qui justifie le temps que je passe sur les forums

J'en écrirais autant sur tes interventions souvent inspirées