Discussion :

[mezzo_dz16]

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

[ShaiLeTroll]

Open pour SELECT (avec un try finally close)
ExecSQL pour UPDATE \ INSERT

Jamais les deux à la fois


http://docwiki.embarcadero.com/Libra...OQuery.ExecSQL ... c'est écrit

Appelez ExecSQL pour exécuter l'instruction SQL actuellement affectée à la propriété SQL. Utilisez ExecSQL pour exécuter des requêtes ne renvoyant pas de curseur sur des données (comme INSERT, UPDATE, DELETE et CREATE TABLE).

ExecSQL renvoie une valeur entière reflétant le nombre de lignes affectées par l'instruction SQL exécutée.

Remarque : Pour les instructions SELECT, appelez la méthode Open au lieu de ExecSQL ou affectez la valeur true à la propriété Active.

[mezzo_dz16]

trés claire sa marcher...merci bcps