Discussion :

[heart100]

Bonsoir a tous ,
J'ai utilisé Delphi +Sql servr 2008 , je voulais faire une simple requette sur une table

Code :

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

1
2
3
4
 
query.sql.add('select * from personnels where Matricule= :a');
query.paramaters.parambyname('a').value:=edit1.text;
query.open;

Vous voyez que j'ai utilisé la clause where ., donc je veux même si le edit1 est vide , la requette ignore la condition et me donne toutes les données . et aussi ou cas ou il yas deux condition et deux edit ?
et Merci d'avance.

[SergioMaster]

Bonjour,

Rien de plus simple mais aussi plusieurs solutions dépendant des composants utilisés, je pense, hélas pour moi, ail s'agit de ADO

solutions "brut" de code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
query.active:=False;
Query.sql.Clear;
query.sql.add('select * from personnels');
if Trim(Edit1.text)<>'' then 
 begin
  query.sql.add('where Matricule= :a');
  query.paramaters.parambyname('a').value:=edit1.text;
 end;
query.open;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var clause,colonne,valeur : String;
const SQLfmt = 'SELECT * FROM PERSONNELS WHERE %s=%s';      
...
query.active:=False;
colonne:='1';
valeur:='1';
if Trim(Edit1.text)<>'' then 
 begin
  colonne:='Matricule';
  valeur:=QuotedStr(Edit1.text);
 end;
query.SQL.Text:=Format(SQLFmt,[colonne,valeur]);  
query.open;

Solution Firedac, utilisation des macros

Code :

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

1
2
3
4
5
6
7
8
FDQuery.Active:=False;
FDQuery.SQL.Text:='SELECT * FROM personnels &where';
if Trim(Edit1.text)<>'' then begin
  FDQuery.MacrobyName('where').asRaw:='WHERE Matricule=:a';
  FDQuery.Parambyname('a').asString:=edit1.text;
end
else FDQuery.MacrobyName('where').Clear;
FDQuery.Active:=True;