probleme avec update sql server et delphi
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:
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:
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 ;)