Fais comme ça :
procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery6.SQL do
begin
Clear;
Add('SELECT code from Requêtepointage');
Add('WHERE (numero_semaine =:NumS) and ');
Add('(jours.jour =:JourS) and ');
Add('(id =:ID) ');
ADOQuery6.FieldByName('NumS').Value := blablabla.Text;
ADOQuery6.FieldByName('JourS').Value := blabla.Text;
ADOQuery6.FieldByName('ID').Value := blabla.Value;
ADOQuery6.Open;
ADOQuery6.Open;
end;
end;
C'est beaucoup plus simple..
cantador
