MySQL problème de requète

Je sèche depuis cet après-midi :-/
Je cherche à afficher les données d'une table dans un DBGrid.
En fonction du code, j'obtiens soit toute la table, soit une grille vide :calim2:
Voici mon code:

Code:

---

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

procedure TForm1.SelLotChange(Sender: TObject); begin // filtrer l'affichage de dbgrid selLot.Text:=selLot.selText; SQLConnection_QCVal.connected:=False; DBAdvgrid_QCVal.ClearAll; DBAdvgrid_QCVal.UpdateActive; SQLConnection_QCVal.connected:=False; SQLDataset_QCVal.CommandText:='select * from qc_val where QCLot = '''+selLot.selText+''' '; SQLConnection_QCVal.connected:=True; ClientDataSet_QCVal.Active:=False; ClientDataSet_QCVal.Active:=True; DBAdvgrid_QCVal.Update; selLot.selText:=''; end;

---

avec la variante qui m'affiche tout:

Code:

---

SQLDataset_QCVal.CommandText:='select * from qc_val where QCLot = '''+'%'+selLot.selText+''' ';

---

et avec le code simpliste:

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.SelLotChange(Sender: TObject); begin // filtrer l'affichage de dbgrid ClientDataSet_QCVal.Active:=False; SQLConnection_QCVal.connected:=False; SQLDataset_QCVal.CommandText:='select * from qc_val where QCLot like ''33501103'''; SQLConnection_QCVal.connected:=True; end;

---

ne m'affiche rien :help:
Au plus j'avance, au moins j'y comprend qq chose :(
Merci pour vos suggestions :ccool:

Bonjour,

C'est dans ces cas que je préfère généralement utiliser des requêtes paramétrées , c'est peut être un peu plus long à écrire (une ligne de plus par paramètre à minima) mais certainement plus 'lisible' .

Code:

---

1 2 3 4

SQLDataset_QCVal.CommandText:='select * from qc_val where QCLot = :PSel'; //? SQLDataset ADO ? je ne sais pas si l'on peut passer des paramètres a une commande SQLDataset_QCVal.Parameters.ParamByName('PSel').value := SelLot.Seltext;

---

Autre chose que j'évite , dans le cas contraire , c'est de surcharger en quotes , QuotedStr est là pour ça

Code:

---

SQLDataset_QCVal.CommandText:='select * from qc_val where QCLot = '+QuotedStr(selLot.selText);

---

Ce qui me trouble c'est SelLot.SelText , j'ai l'impression que c'est égal à '' (ce qui expliquerai les comportements) .
Si selLot est un TEdit , changer la selection ne lève pas l'évènement OnChange (du moins en D7)
Lors de la saisie d'un caractère (provoquant ainsi un changement) le sélection est annulée (d'où la chaine vide)

De fait SelLot.SelText ne renvoie rien :calim2:
Bien vu :ccool: SelLot est un combobox; j'utilise donc avec succès: sellot.items[sellot.itemIndex]
Voici le code final avec la simplification 'QuotedStr'

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.SelLotChange(Sender: TObject); begin // filtrer l'affichage de dbgrid SQLConnection_QCVal.connected:=False; ClientDataSet_QCVal.Active:=False; SQLDataset_QCVal.CommandText:='select * from `qc_val` where `QCLot` like '+QuotedStr(sellot.items[sellot.itemIndex]); ClientDataSet_QCVal.Active:=True; SQLConnection_QCVal.connected:=True; end;

---

1000x :merci:SergioMaster