Discussion :

[segnac]

Bonsoir

Là c'est tout bête, mais je cafouille bêtement..

Pourrait on me mettre le contenu de la () dans deuxieme ligne query1.sql.Add('where .....') correctement
D'avance merci

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
 
Query1......
Query1.SQL.Add('select reference,idcde,nom_client from cde_cli');
Query1.SQL.Add('where reference like 'F______' and Nom_client='FREUDENBER');
Query1.....
 
end;

[ero-sennin]

Salut,

Pour faire simple, tu peux faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
 
Query1......
Query1.SQL.Add('select reference,idcde,nom_client from cde_cli');
Query1.SQL.Add('where reference like ''F______'' and Nom_client=''FREUDENBER''');
Query1.....
 
end;

Tu doubles les quotes en faite
Je n'ai pas testé par contre...

[BuzzLeclaire]

Salut,

Il est peut-être plus facile et efficace d'utiliser les params.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
 
Query1......
Query1.SQL.Add('select reference,idcde,nom_client from cde_cli');
Query1.SQL.Add('where reference like :xRef and Nom_client= :xName);
Query1.Parameters.ParamByName('xRef').Value := 'F______' ;
Query1.Parameters.ParamByName('xName').Value := 'FREUDENBER';
Query1...
end;

[Rayek]

Il serait peut être mieux d'utiliser les paramètres ce qui éviterait de doubler les quotes

Code :

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

1
2
3
4
5
6
7
8
 
Query1.SQL.Add('select reference,idcde,nom_client from cde_cli');
Query1.SQL.Add('where reference like :PLike and Nom_client= :PCLIENT');
Query1....
Query1.ParamCheck := True;
Query1.PAramByName('PLike').asString := 'F______';
Query1.ParamByName('PCLIENT').AsString := 'FREUDENBER';
Query1.....