Discussion :

[delphi2019]

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

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
 
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;

[Paul TOTH]

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
 
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;

[delphi2019]

meeeci

[SergioMaster]

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 :

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

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 :

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

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 :

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

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;

[Paul TOTH]

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)

[delphi2019]

merci

[SergioMaster]

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

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