Discussion :

[colfire_dev]

je voudrais faire une recherche multicritere sur une table personne, un peu à la google:
l'utilisateur saisie via des Edit et ComboBox, ces derniers sont insérés ds la requete.
j'ai commencé par faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
with dm.tbPersonne do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * from personne');
    SQL.Add('where nom LIKE ''' + eNom.Text + Opr1 + '''');
    SQL.Add('service LIKE ''' + cbService.Text + '''');
    SQL.Add('matricule LIKE ''' + eMatricule.Text + '''');
    SQL.Add('fonction LIKE ''' + cbFonction.Text + '''');
    SQL.Add('order by nom');
    Open;
  end;

mais élas c genere une erreur de syntaxe que je n'arrive pas à détécter

[colfire_dev]

Voilà la procedure en entier pour mieux comprendre.

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
19
20
21
22
23
24
25
26
27
28
29
30
procedure TfMenu.bGoClick(Sender: TObject);
var Opr1, Opr2, Opr3, Opr4, Opr5, Opr6, Opr7 : String;
begin
  if eNom.Text = '' then Opr1 := 'OR'
                    else Opr1 := 'AND';
  if cbService.Text = '' then Opr2 := 'OR'
                         else Opr2 := 'AND';
  if cbFonction.Text = '' then Opr3 := 'OR'
                          else Opr3 := 'AND';
  if ecin.Text = '' then Opr4 := 'OR'
                     else Opr4 := 'AND';
  if eEtat.Text = '' then Opr5 := 'OR'
                     else Opr5 := 'AND';
  if eType.Text = '' then Opr6 := 'OR'
                     else Opr6 := 'AND';
  if eMatricule.Text = '' then Opr7 := 'OR'
                          else Opr7 := 'AND';
  with dm.tbPersonne do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * from personne');
    SQL.Add('where nom LIKE ''' + eNom.Text + Opr1 + '''');
    SQL.Add('service LIKE ''' + cbService.Text + Opr2 + '''');
    SQL.Add('matricule LIKE ''' + eMatricule.Text + Opr7 +'''');
    SQL.Add('fonction LIKE ''' + cbFonction.Text + Opr3 +'''');
    SQL.Add('order by nom');
    Open;
  end;
end;

[qi130]

L'opérateur ne doit pas être dans la chaine recherchée....

En plus, la recherche par LIKE induit au moins un caractère %

[colfire_dev]

je suis carrement bloque, vous avez une suggetion?

[ero-sennin]

Salut,

Moi je verrai plus un truc du genre :

Code :

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

1
2
3
4
5
6
SQL.Add('Select * from personne');
SQL.Add('where nom LIKE "%'+ eNom.Text+'%"');
SQL.Add(Opr1+'service LIKE "%'+ cbService.Text+'%"');
SQL.Add(Opr2+'matricule LIKE "%'+ eMatricule.Text+'%"');
SQL.Add(Opr7+'fonction LIKE "%'+ cbFonction.Text+'%"');
SQL.Add(Opr3+'order by nom');

Et un truc me chagrine, c'était la fonction LIKE ... en effet, comme le dit qi130, il doit y avoir un % ....


Essaie de voir avec le code que je t'ai fourni (pas testé du tout ...)
A+

[colfire_dev]

ca genere une erreur de syntaxe, au niveau du order by

[ero-sennin]

Code :

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

1
2
3
4
5
6
SQL.Add('Select * from personne');
SQL.Add('where nom LIKE "%'+ eNom.Text+'%"');
SQL.Add(Opr1+'service LIKE "%'+ cbService.Text+'%"');
SQL.Add(Opr2+'matricule LIKE "%'+ eMatricule.Text+'%"');
SQL.Add(Opr7+'fonction LIKE "%'+ cbFonction.Text+'%"');
SQL.Add('order by nom');

Il n'y a pas d'opérateur avant un order by ...
A+

[colfire_dev]

merci pour le coup de mains trés précieux, j'ai plus d'erreur de synthaxe, je vais tester maintenant la logique

[colfire_dev]

je ne comprends pas pourquoi est ce qu'il ne donne pas le resultat voulu, ou est ce qu'il y a une autre maniére de faire une recherche multicritere

[jaduta]

tu dois exécuter ta requête
et ensuite parcourir tes données
avec un while

Code :

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

1
2
3
4
5
6
7
 
sql.active ou sql.execute
 
while not sql.eof
begin
sql.next
end

[ero-sennin]

Re,

Peux-tu nous mettre un exemple de rêquete générée avec le tbPersonne et nous dire ce que tu voudrais que ça fasse ... C'est, je pense, une mauvaise interprétation de la requête SQL ... ni plus ni moins.

Merci

[colfire_dev]

la table tbPersonne gere les informations sur une personne, nom, prenom, matricule, service,fonction etc. Le but est de faire une requete multicritere sur ses champs, et afficher le resultat sue un DBGrid. J'utilise le composant TEdit et TComboBox puis je clique sur le bouton go pour lancer la recherche.
La procedure OnClick dur le Bouton Go donne 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
procedure TfMenu.bGoClick(Sender: TObject);
var Opr1, Opr2, Opr3, Opr4, Opr5, Opr6, Opr7 : String;
begin
  if eNom.Text = '' then Opr1 := 'OR'
                    else Opr1 := 'AND';
  if cbService.Text = '' then Opr2 := 'OR'
                         else Opr2 := 'AND';
  if cbFonction.Text = '' then Opr3 := 'OR'
                          else Opr3 := 'AND';
  if ecin.Text = '' then Opr4 := 'OR'
                     else Opr4 := 'AND';
  if eEtat.Text = '' then Opr5 := 'OR'
                     else Opr5 := 'AND';
  if eType.Text = '' then Opr6 := 'OR'
                     else Opr6 := 'AND';
  if eMatricule.Text = '' then Opr7 := 'OR'
                          else Opr7 := 'AND';
  with dm.tbPersonne do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * from personne');
    SQL.Add('where nom LIKE "%'+ eNom.Text+'%"');
    SQL.Add(Opr1+' service LIKE "%'+ cbService.Text+'%"');
    SQL.Add(Opr2+' matricule LIKE "%'+ eMatricule.Text+'%"');
    SQL.Add(Opr7+' fonction LIKE "%'+ cbFonction.Text+'%"');
    SQL.Add(Opr3+' cin LIKE "%'+ eCin.Text+'%"');
    SQL.Add(Opr4+' etat LIKE "%'+ eEtat.Text+'%"');
    SQL.Add(Opr5+' tenue_civile LIKE "%'+ eType.Text+'%"');
    SQL.Add(' order by nom');
    Open;
  end;
end;

[jaduta]

Tu es sûr que tu disposes de données dans ta table correspondant aux critères???
Tu dois associer ta requête à un datasource
et ton datasource doit être associé à ton DBGrid

pour être sur d'obtenir des données, exécute ta requête directement sur ta base de données, en ligne de commande sql

[ero-sennin]

Peux tu mettre les balises de CODE (le # dans la barre d'éditions) lorsque tu posteras du code stp ... Merci

Ensuite, je pense que le soucis viens du fait que tu interprête mal les % en ce qui concerne le like...

Si tu veux par exemple lister toutes les personnes ayant un nom commencant par To, dans ce cas, la requête serait ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
with dm.tbPersonne do
begin
Close;
SQL.Clear;
SQL.Add('Select * from personne');
SQL.Add('where nom LIKE "To%"');
SQL.Add(' order by nom');
Open;
end;

Le % veut dire que l'on accepter autant de lettre que l'on veut, ainsi, on pourrait avoir les nom suivant :
Toto
Toti
Topin
Torade
... etc etc

C'est peut-être là que survient ton soucis de compréhension

[colfire_dev]

je le fais directement sur le sql command , ca marche sans probleme, mais en dynamique ca m'affiche toute la base de donnee. C comme si la requete n'a aucun effet.

[colfire_dev]

quelle balise dois je mettre alors

[Paul TOTH]

personnellement je construis ce genre de requête comme 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
15
16
17
18
19
 
var
 sep:string;
 sql:string;
 
 procedure AddField(const Value,FieldName:string);
 begin 
  if Value='' then exit;
  sql:=sql+sep+FieldName+' LIKE "%'+SqlEncode(Value)+'%"';
  sep:=' AND ';
 end;
 
begin
 sql:='SELECT * FROM Table';
 sep:=' WHERE ';
 AddField(Edit1.Text,'Champ1');
 AddField(Edit2.Text,'Champ2');
 AddField(Edit3.Text,'Champ3');
end;

la fonction SqlEncode étant là pour échaper les quotes dans la chaine (voir mon unité MySQLClient)

[colfire_dev]

C'est quoi SQLEncode?

Ah! désolé j'avais pas vu le liens, je vais tester tout ça, merci d'avance

[colfire_dev]

comment appeler la requete sachant que String et Tstrings son incompatibles

[Paul TOTH]

au choix

Code :

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

1
2
3
4
 
 Lines.add(sql);
// ou
 Lines.Text:=sql;

maintenant il est possible aussi d'utiliser des SQL.Add() au lieu de concaténer comme je le fais dans une chaine sql...

Code :

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

1
2
3
4
5
6
7
 
 procedure AddField(const Value,FieldName:string);
 begin 
  if Value='' then exit;
  SQL.Add(sep+FieldName+' LIKE "%'+SqlEncode(Value)+'%"');
  sep:=' AND ';
 end;