Discussion :

[samidz2014]

Bonjour;
j'ai une requète SQL:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  TdbQuery1.SQL.Clear;
  TdbQuery1.SQL.Add('SELECT');
  TdbQuery1.SQL.Add(' L.titre, D.libelle, A.nom, A.prenom, L.nbr_page, L.langue, L.num_ray, L.etage_ray, L.ISBN, L.date_paru, L.date_achat');
  TdbQuery1.SQL.Add(' FROM LIVRE L ');
  TdbQuery1.SQL.Add(' LEFT JOIN auteur A ON L.id_auteur = A.id_auteur');
  TdbQuery1.SQL.Add(' LEFT JOIN domaine D ON L.id_dom = D.id_dom');
  TdbQuery1.SQL.Add(' WHERE 1 = 1');
  TdbQuery1.SQL.Add(' ORDER BY A.nom ');
 
  TdbQuery1.Prepare;
  TdbQuery1.Open;

Comme vous voyez, le résultat sera trié par ordre alphabétique du Nom d'auteur...
Maintenant j'ai placé des RadioBoutton, et je veux que : Quand je clique sur un RadioBoutton (Exemple Prénom auteur, la seul ligne 8 du code SQL TdbQuery1.SQL.Add(' ORDER BY A.nom '); qui change à TdbQuery1.SQL.Add(' ORDER BY A.prenom'); ( au lieu de réécrire tout le code SQL.
Comment le faire et merci d'avance..
.

[SimFaridas]

Tu peut créer un évenement onclick pour chacun des boutons
Ensuite dans chacune de ses procédures tu affectes à une variable local les valeurs que tu veux :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.rbPrenomAuteurClick(Sender: TObject);
begin
   cherche := ' a.prenom';
end;
 
procedure TForm1.rbLibelleClick(Sender: TObject);
begin
   cherche := ' D.libelle';
end;

Ensuite tu fais appelle à ta requete :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  TdbQuery1.SQL.Clear;
  TdbQuery1.SQL.Add('SELECT');
  TdbQuery1.SQL.Add(' L.titre, D.libelle, A.nom, A.prenom, L.nbr_page, L.langue, L.num_ray, L.etage_ray, L.ISBN, L.date_paru, L.date_achat');
  TdbQuery1.SQL.Add(' FROM LIVRE L ');
  TdbQuery1.SQL.Add(' LEFT JOIN auteur A ON L.id_auteur = A.id_auteur');
  TdbQuery1.SQL.Add(' LEFT JOIN domaine D ON L.id_dom = D.id_dom');
  TdbQuery1.SQL.Add(' WHERE 1 = 1');
  TdbQuery1.SQL.Add(' ORDER BY'+recherche);
 
  TdbQuery1.Prepare;
  TdbQuery1.Open;

[SergioMaster]

Bonjour,

un peu plus simple, La propriété SQL est une TStringlist rien n'empêche d'en modifier une ligne

Code :

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

TdbQuery1.SQL[6]:='ORDER BY ....';

donc pas besoin de réécrire tout le code SQL.Clear, SQL.Add .....
toutefois il ne faut pas oublier de fermer la requête avant une modification et si cette requête avait été préparée de faire un unprepare

NB. dans ce cas toutefois le prepare me semble inutile (pas de paramètre)
NB bis, le WHERE 1=1 est inutile

on en arrive à ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.rbPrenomAuteurClick(Sender: TObject);
begin
   TDBQuery1.Close;
   TDBQuery1.SQL[6] := 'ORDER BY a.prenom';
   TDBQuery1.Open;
end;
 
procedure TForm1.rbNomClick(Sender: TObject);
begin
   TDBQuery1.Close;
   TDBQuery1.SQL[6] := 'ORDER BY a.Nom';
   TDBQuery1.Open;
end;

[Papy214]

un peu plus simple, La propriété SQL est une TStringlist rien n'empêche d'en modifier une ligne

Le mieux reste quand même la requête paramétrée non ?

[SergioMaster]

Bonjour,

Le mieux reste quand même la requête paramétrée non ?

je ne crois pas que les composants BDE (TDBQuery) acceptent ce type de paramètre (uniquement des valeurs) , en fait le mieux serait une requête avec Macro (proposé par Firedac, RxQuery) dans ce cas.
Le nec plus ultra serait d'utiliser une expression régulière ou un stringreplace pour faire le remplacement de la clause ORDER BY,

[camatchou]

bonjour

une procédure telle que :

Code :

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

1
2
3
4
5
6
7
8
9
 
  TdbQuery1.close;
  TdbQuery1.SQL.Clear;
  TdbQuery1.SQL.Add('SELECT');
  TdbQuery1.SQL.Add(' L.titre, D.libelle, A.nom, A.prenom, L.nbr_page, L.langue, L.num_ray, L.etage_ray, L.ISBN, L.date_paru, L.date_achat');
  TdbQuery1.SQL.Add(' FROM LIVRE L ');
  TdbQuery1.SQL.Add(' LEFT JOIN auteur A ON L.id_auteur = A.id_auteur');
  TdbQuery1.SQL.Add(' LEFT JOIN domaine D ON L.id_dom = D.id_dom');
  TdbQuery1.SQL.Add(' WHERE 1 = 1');

il suffit d'ajouter ceci :

Code :

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

1
2
3
4
if radiobutton1.checked then tdbQuery1.sql.add('order by.....') else
   if radiobutton2.checked then tdbQuery1.sql.add('order by.....') else
      tdbQuery3.sql.add('order by.....');
tdbQuery1.open;

La procédure peut etre appelée pendant les évenements onchange des différents radiobuttons

Bonne continuations.