Probleme de requete UPDATE pour modifier de champs dans ma dbgrid

Signaler
Messages postés
12
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
15 décembre 2005
-
Messages postés
12
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
15 décembre 2005
-
Salut merciii à l'avance pour votre aide ;)



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



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;

3 réponses

Messages postés
12
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
15 décembre 2005

j'ai essayé autrement mais ca fonctionne pas non plus :((((.



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');


DataModule2.IBQuery_Format.ParamByName('TYPE_FORMAT').AsString: =edit1.text;

ExecSQL;

BitBtn4.Enabled:=true;

BitBtn6.Enabled:=true;

edit1.Text := ''

end;

end;



end;

end;
Messages postés
12
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
15 décembre 2005

Personne pas la réponse?
Messages postés
12
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
15 décembre 2005

Voici la réponse :

Var
OldType:string;
procedure TGes_Format.Modifier_FormatClick(Sender: TObject); //Bouton pour "Modifier"
begin
begin
if (edit1.Text = '')then
begin
messagedlg('Veuillez sélectionner le champs à modifier', mtWarning,[mbok],0);
end
else
with DataModule2.IBQuery_Format do
begin
SQL.Clear;
SQL.Add('Update FORMAT set TYPE_FORMAT=:Type_Format');
SQL.Add('WHERE TYPE_FORMAT = :OldType');
DataModule2.IBQuery_Format.ParamByName('Type_Format').AsString:=edit1.text;
DataModule2.IBQuery_Format.ParamByName('OldType').AsString:=OldType;
ExecSQL;
Refresh_Format.Click; //Bouton qui rafraichi
edit1.Text:='';
Ajouter_Format.Enabled:=true;


end;
end;
end;

Voili, voilo