Requête sql avec mysql sous delphi

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:

---

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écter8O

Voilà la procedure en entier pour mieux comprendre.

Code:

---

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;

---

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

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

je suis carrement bloque, vous avez une suggetion?

Salut,

Moi je verrai plus un truc du genre :

Code:

---

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

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

Code:

---

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+ :)

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

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

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

Code:

---

1 2 3 4 5 6 7

sql.active ou sql.execute   while not sql.eof begin sql.next end

---

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
:)

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:

---

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;

---

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

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:

---

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

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.

quelle balise dois je mettre alors

personnellement je construis ce genre de requête comme ceci :

Code:

---

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)

C'est quoi SQLEncode?

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

comment appeler la requete sachant que String et Tstrings son incompatibles

au choix

Code:

---

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:

---

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;

---

:D

ca marche pour certains cas mais pas pour d'autres, ta routine est tres asticieuse mais excuser moi, je n'arrive ps à l'implanter :oops:

j'imagine que les listbox correspondent à des index dans une table secondaire non ?

dans ce cas il faut pas utiliser le code proposé mais un dérivé pour un entier

Code:

---

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

var sep:string;   procedure AddField(const Value,FieldName:string); begin if Value='' then exit; SQL.Add(sep+FieldName+' LIKE "%'+SqlEncode(Value)+'%"'); sep:=' AND '; end;   procedure AddIndex(Value:integer; const FieldName:string); begin if Value<0 then exit; SQL.Add(sep+FieldName+'='+IntToStr(Value)); sep:=' AND '; end;   begin SQL.Text:='SELECT * FROM Table'; sep:=' WHERE '; AddField(Edit1.Text,'Champ1'); AddField(Edit2.Text,'Champ2'); AddField(Edit3.Text,'Champ3'); AddIndex(ComboBox1.ItemIndex,'Champ4'); end;

---

Voilà un cas concret ou ca ne marche pas

oui c'est exactement ce dont je parle juste un avant...le champ fonction ne serait-il pas un entier contenant un code fonction au lieu du libellé ?

si ce n'est pas le cas, c'est que la base est mal conçue :D

les champs sont tous des VARChar, sauf pour Matricule int(11) . Ma table est tout ce qui y a de plus simple.

Dans le message d'erreur de la requête
il manque le mot clé "WHERE" à la place du "AND"...

salut

regade bien le code que paul ta fournie

le premier sep etait where et une foi passé dans la condition
la variable sep passe a and

j'avou que je ne l'aurai pas fait ainsi mais sa demarche est assez clair

@+ Phil

justement il est très claire et très logique, mais le fait de passer au AND directement des que je rempli plusieurs Edit en meme temps : nom := 'Quelque chose' et Matricule := 'Quelque chose' j'ai ce message d'erreur. J'avoue que je suis mal barré comme ça8O

salut

bon je reprend le code de paul

Citation:

---

Envoyé par Paul TOTH

personnellement je construis ce genre de requête comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var sep:string; Declaration du sep sql:string;   // attention c'est un methode interne procedure AddField(const Value,FieldName:string); begin if Value='' then exit;// si la premiere on sort sql:=sql+sep+FieldName+' LIKE "%'+SqlEncode(Value)+'%"'; sep:=' AND '; // si on passe on affecte le and end;   begin sql:='SELECT * FROM Table'; sep:=' WHERE ';// on affecte le premier sep AddField(Edit1.Text,'Champ1');// là le sep devient "and" apres AddField(Edit2.Text,'Champ2'); AddField(Edit3.Text,'Champ3');// ici le sep est encore "and" end;

---

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

---

si tu as suivi son code tu ne doit pas avoir de soucis

@+ Phil

J'ai aucun problème quant je fais un seul de critère de recherche, mais dès que je mets plusieurs ca ne marche plus pour certaines combinaisons, j'ai les boules

Citation:

---

Envoyé par colfire_dev

J'ai aucun problème quant je fais un seul de critère de recherche, mais dès que je mets plusieurs ca ne marche plus pour certaines combinaisons, j'ai les boules

---

à moins de copier/coller ton code, on ne pourra pas t'aider là

Oui c'est vrai, le voici :

Code:

---

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

procedure AddField(const Value,FieldName:string); begin if Value='' then exit; dm.tbPersonne.SQL.Add(sql+sep+FieldName+' LIKE "%'+SqlEncode(Value)+'%"'); sep:=' AND '; end;   procedure TfMenu.bGoClick(Sender: TObject); begin dm.tbPersonne.Close; dm.tbPersonne.SQL.Clear; sql := '';sep:=''; sql:='SELECT * FROM personne'; sep:=' WHERE '; AddField(eNom.Text,'nom'); AddField(eMatricule.Text,'matricule'); AddField(cbService.Text,'service'); AddField(cbFonction.Text,'fonction'); AddField(eCin.Text,'cin'); AddField(eEtat.Text,'etat'); AddField(eType.Text,'tenue_civile'); dm.tbPersonne.Open; lTotal.Caption := IntToStr(dm.tbPersonne.RecordCount); end;

---

je suis sur qu'il y a qlq chose de tres banal qui m'échappe, mais c quoi j'arrive toujours pas à le detecter :evilred:

ARGH !

déjà, il faut utiliser les balises CODE pour le code :)

ensuite tu as fait un gros mélange des genres !

soit tu utilises la variable "sql:string" soit tu utilise "SQL.Add()" mais pas le deux !

tel que tu écris ton code tu vas te retrouver avec une requête

Code:

---

1 2	'SELECT * FROM Personne WHERE nom LIKE "%TOTH%" AND SELECT * FORM Personne AND matricule LIKE "%1234%"'

---

pour détecter ce genre d'erreur, il suffit d'ajouter un

Code:

---

1 2	ShowMessage(dm.tbPersonne.SQL.Text);

---

:)

quelle balise dois je mettre?
justement je voudrais utiliser sql comme tu m'as envoyé ds le source. Mais je n'ai ps réussi à l'integrer ds mon SQL Command pour pouvoir l'executer.
Corrigez moi le source que je vous ai envoyé, parceque moi je suis saturé à force d'y réflechir
Merci beaucoup d'avance

Pour ma part je ferais plus dans ce style

Code:

---

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 35 36 37 38 39 40 41 42 43 44 45

var lst : TStringList; i : integer; sChamp,sValue : String; begin lst := TStringList.Create; try if eNom.Text <> '' then lst.Add('nom=' + eNom.Text;   if cbService.Text <> '' then lst.add('service=' + cbService.Text;   if cbFonction.Text <> '' then lst.Add('function=' + cbFonction.Text);   if eMatricule.Text <> '' then lst.Add('matricule=' + eMatricule.Text);   // Etc ... pour les champs   with dm.tbPersonne do begin Close; SQL.Clear; SQL.Add('Select * from personne'); if lst.Count > 0 then SQL.Add('where'); for i := 0 to lst.Count -1 do begin sChamps := lst.Names[i]; sValue := lst.Value[sChamp]; SQL.Add(sChamps ' LIKE ' + QuotedStr('%' + sValue + '%')); if i <> lst.count -1 then SQL.Add('And'); end; SQL.Add('order by nom'); // sauvegarde de la requete dans un fichier texte pour voir à quoi elle ressemble SQL.SaveToFile('Marequetetest.txt'); Open; end; finally lst.free; end;

---

merci beaucoup Rayek, je vais tester cette routine, et je vous tiens au courant

je vous remercie tous pour votre support, le resultat est tres satisfaisant
Merci mille fois