Probleme de requete UPDATE pour modifier de champs dans ma dbgrid
cmeme
Messages postés
12
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
15 décembre 2005
-
2 déc. 2005 à 16:17
cmeme Messages postés 12 Date d'inscription jeudi 1 décembre 2005 Statut Membre Dernière intervention 15 décembre 2005 - 6 déc. 2005 à 12:17
cmeme Messages postés 12 Date d'inscription jeudi 1 décembre 2005 Statut Membre Dernière intervention 15 décembre 2005 - 6 déc. 2005 à 12:17
3 réponses
cmeme
Messages postés
12
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
15 décembre 2005
2 déc. 2005 à 17:18
2 déc. 2005 à 17:18
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;
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;
cmeme
Messages postés
12
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
15 décembre 2005
3 déc. 2005 à 01:11
3 déc. 2005 à 01:11
Personne pas la réponse?
cmeme
Messages postés
12
Date d'inscription
jeudi 1 décembre 2005
Statut
Membre
Dernière intervention
15 décembre 2005
6 déc. 2005 à 12:17
6 déc. 2005 à 12:17
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
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