Salut a tous, SVP j'ai un souci avec UPDATE sql server et Delphi car il me revoie une erreur suivante quand j'exécute le code :


Qbrouillard: CommandText ne renvoie pas un ensemble de résultat

voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Data_Caisse.Qbrouillard.Close;
Data_Caisse.Qbrouillard.SQL.Clear;
Data_Caisse.Qbrouillard.SQL.Text:=('update Brouillard set soldeFinalpl = :esoldepl where codeCaissier = :code and dateBrouillard = :datee ') ;
Data_Caisse.Qbrouillard.Parameters.ParamByName('CODE').Value:= menuG.Label1.Caption;
Data_Caisse.Qbrouillard.Parameters.ParamByName('datee').Value:= det_brouillard.label11.Caption;
Data_Caisse.Qbrouillard.Parameters.ParamByName('esoldepl').Value  := det_brouillard.edit1.Text;
Data_Caisse.Qbrouillard.ExecSQL;
edit1.text et contient des virgules son contenu comme suite :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure CalculerTotalPL();
begin
     Det_Brouillard.ADOQuery1.Close;
     Det_Brouillard.ADOQuery1.SQL.Clear;
     Det_Brouillard.ADOQuery1.SQL.Text:=('SELECT sum (mont_ttc) as mont_ttcpl from DetailBrouillard')
    +' where codeCaissier = :code and dateBrouillard = :datee and  typefact = ''FACTPL'' ' ;
     Det_Brouillard.ADOQuery1.Parameters.ParamByName('CODE').Value:= menuG.Label1.Caption;
     Det_Brouillard.ADOQuery1.Parameters.ParamByName('datee').Value:= brouillard.label6.Caption;
     Det_Brouillard.ADOQuery1.Open;
     Det_Brouillard.ADOQuery1.ExecSQL;
 
     Det_Brouillard.Edit1.Text:=FloatToStrF(Det_Brouillard.ADOQuery1mont_ttcpl.value,TFloatFormat(ffFixed),10,2);
end;
je comprend pas ou est le problème, merci de me éclaircir sur ce souci svp