Discussion :

[PhilLU]

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
Voici mon code:

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

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

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

et avec le code simpliste:

Code :

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

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
Au plus j'avance, au moins j'y comprend qq chose
Merci pour vos suggestions

[SergioMaster]

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 :

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

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 :

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

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)

[PhilLU]

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

Code :

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

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 SergioMaster