Salut merci à l'avance pour votre aide

Voila mon code mais la requete ne fais rien , elle change rien dans ma DBgrid.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TGes_Format.BitBtn5Click(Sender: TObject);
begin
 begin
 
   if  (edit1.Text = '')then
       begin
         messagedlg('Veuillez sélectionner le champs à modifier',mtWarning,[mbok],0);
       end
   else
       begin
       with DataModule2.IBQuery_Format do begin
         SQL.Clear;
         SQL.Add('UPDATE FORMAT set TYPE_FORMAT='''+edit1.Text+'''');
         SQL.Add('WHERE TYPE_FORMAT ='''+edit1.text+'''');
         ExecSQL;
         BitBtn8.Click;
         BitBtn4.Enabled:=true;
         BitBtn6.Enabled:=true;
         edit1.Text := ''
         end;
         end;
 
end;
end;