Discussion :

[cmoimeme]

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;

[cmoimeme]

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

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');
             DataModule2.IBQuery_Format.ParamByName('TYPE_FORMAT').AsString:=edit1.text;
             ExecSQL;
             BitBtn4.Enabled:=true;
             BitBtn6.Enabled:=true;
             edit1.Text := ''
           end;
       end;
 
end;
end;

FRANK

[anapurna]

salut

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
 
procedure TGes_Format.BitBtn5Click(Sender: TObject);
var
  st : String;
begin
...
   begin
        with DataModule2.IBQuery_Format do 
        begin
         Close
         SQL.Clear;
         st :=   'UPDATE FORMAT set TYPE_FORMAT="%S" WHERE TYPE_FORMAT ="%S" '
         SQL.Add(format(st,[edit1.Text,edit1.Text]);
   // question la ca marchera jamais c'est la meme valeur 
         ExecSQL;
         BitBtn8.Click;
         BitBtn4.Enabled:=true;
         BitBtn6.Enabled:=true;
         edit1.Text := ''
         end;
         end;

@+ Phil

[cmoimeme]

Merci encore pour ton aide: je vais commenter le probleme.

En réalité, j'ai plusieurs bouton: Ajouter, Sélectionner, Modifier, Supprimer.
Ce que je voudrais réaliser en claire c'est lorsque je pointe le curseur de ma souris sur ma dbgrid pour selectionner le champs dans ma table FORMAT (réaliser en interbase) lorsque ce dernier est pointé, j'appuie sur le bouton Selectionner, ce bouton (Selectionner) m'affiche la donnée de mon champs TYPE_FORMAT de ma dbgrid dans mon Edit1 et de la je change le type de format au lieu de A4 j'ecris A3 et lorsque j'appuie sur le bouton Modifier le champs A4 dans mon dbgrid ce change en A3.

Merci... j'espere etre plus explicite.

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
25
 
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;

[baba]

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=:Type_Format');

DataModule2.IBQuery_Format.Params[0].Asstring; // ici on définit le type du paramètre (string)
DataModule2.IBQuery_Format.ParamByName('Type_Format').AsString:=edit1.text;

ExecSQL;
BitBtn4.Enabled:=true;
BitBtn6.Enabled:=true;
edit1.Text := ''
end;
end;

end;
end;

[cmoimeme]

j'ai bien essayé ton code mais il m'affiche encore une erreur:

Le projet Project1.exe a provoqué une classe d'exception EIBInterBaseError avec le message 'Dynamic SQL Error SQL eroor code=-104 Token unknown - line2 char -1 Update'
alors que j'ai bien mis le code :

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
 
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.Add('Update FORMAT set TYPE_FORMAT=:Type_Format');
             DataModule2.IBQuery_Format.Params[0].Asstring; // ici on définit le type du paramètre (string)
             DataModule2.IBQuery_Format.ParamByName('Type_Format').AsString:=edit1.text;
             ExecSQL;
           end;
       end;
 
       end;
end;

[Rayek]

Avec la requete update que tu fais, tu vas mettre à jour toute ta base.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
with DataModule2.IBQuery_Format do
begin
  SQL.Add('Update FORMAT set TYPE_FORMAT=:Type_Format');
  SQL.Add('Where [ID_FORMAT] =:Id_Format');
  ParamCheck := True;
  ParamByName('Type_Format').AsString:=edit1.text;
  PAramByName('Id_Format').Asstring :=   DBGrid1.DataSource.DataSet.FieldByName([ID_FORMAT]).AsString;
             ExecSQL;

[ID_FORMAT] = Le nom du champs qui sert de référence

[rsc]

Sans remettre en cause la correction de Malatar qui a parfaitement raison, je remarque que le message indique une erreur en ligne 2, alors qu'UPDATE est censé être en ligne 1. N'aurais-tu pas déjà une ligne qui "traîne" dans ta SQL ? Mets donc un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL.Clear;

avant le 1er

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL.Add

[Rayek]

Sans remettre en cause la correction de Malatar qui a parfaitement raison, je remarque que le message indique une erreur en ligne 2, alors qu'UPDATE est censé être en ligne 1. N'aurais-tu pas déjà une ligne qui "traîne" dans ta SQL ? Mets donc un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL.Clear;

avant le 1er

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL.Add

+1, manque un joli petit clear ^^

[cmoimeme]

il veut pas se compiler le compilateur me signale : Identificateur non signaler: 'ID_FORMAT'

ParamByName('Id_Format').Asstring := DBGrid1.DataSource.DataSet.FieldByName([ID_FORMAT]).AsString;

[AlexB59]

Ton champ dans ta requête est ID_FORMAT, essaie avec un paramètre :ID_FORMAT. Le nom du paramètre doit être le même que celui du champ, je pense casse comprise (à vérifier). Interbase et les composant IBX font attention à la casse.

[rsc]

Si le nom de ton champ est Id_Format, écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FieldByName('ID_FORMAT').AsString;

(entre apostrophes et non entre crochets).

[cmoimeme]

re

En réalité j'ai une table FORMAT et j'ai qu'un seul champs qui est TYPE_FORMAT qui est la clef primaire.

donc je vois pas pourquoi vous utilisez ID_FORMAT, j'ai pas ca dans ma table..


Merci pour votre aide

[rsc]

OK, de remarque en remarque, on s'est un peu égaré
Synthétisons donc : Essaie :

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
procedure TGes_Format.BitBtn5Click(Sender: TObject);
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:=edit4.text;
    ExecSQL;
  end;
end;

[cmoimeme]

Mercii encore je te remercierai jamais assez

Mais pourquoi edit4.text ?

En faite j'ai qu'un edit et c'est edit1.text

c'est à dire j'ai un bouton sélectionner qui permet de prendre la valeur de la donnée TYPE_FORMAT dans ma dbgrid et il met la donnée dans mon edit1.text et de la je modifie la donnée du edit1.text et logiquement ce que j'arrive pas c'est quand j'appuies sur le bouton Modifier qui change la donnée dans ma dbgrid dans le champs TYPE_FORMAT ... j'espere avoir été assez explicite

[rsc]

OK, je pensais que tu avais 2 Edit, parce que si tu dis "Mets le champ à Edit1.Text là où il vaut Edit1.Text", c'est sûr que ça ne va pas changer grand chose . Il faut donc stocker l'ancienne valeur de ton champ dans une variable (par ex. OldType) au moment de la sélection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OldType := ...FieldByName ('Type_Format') .AsString;

en mettent devant FieldBName le dataset associé à ton DBGrid.
Puis la récupérer au moment de la modification :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DataModule2.IBQuery_Format.ParamByName('OldType').AsString:=OldType;

Mais tu n'as pas pensé à utiliser tout simplement un DBEdit ? A mois que tu n'aies derrière ton DBGrid un Query non modifiable ?

[cmoimeme]

Donc tu dis que je dois faire comme ca ?

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
25
26
27
28
29
30
31
32
33
34
35
Var
oOdType : string;    // variable en global
 
procedure TGes_Format.BitBtn2Click(Sender: TObject);  // Bouton de  "Selectionner"
begin
  Edit1.Text:=DataModule2.IBQuery_Format.FieldByname('TYPE_FORMAT').AsString;
  OldType := DataModule2.IBQuery_Format.FieldByName ('TYPE_FORMAT') .AsString;
  BitBtn4.Enabled:=false;
 
end;
 
 
 
procedure TGes_Format.BitBtn5Click(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;
    BitBtn8.Click; //Bouton qui rafraichi
    edit1.Text:='';
 
  end;
end;
  end;

[cmoimeme]

Merciii d'avance ca marche super bien )).

Probléme résolue

[rsc]

[cmoimeme]

Je vais te demander la meme chose mais pour supprimer cette fois ci
dois je faire la meme chose seulement changer le update en delete???

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
 
procedure TGes_Format.BitBtn6Click(Sender: TObject);
begin
begin
  if  (edit1.Text = '')then
  begin
    messagedlg('Veuillez sélectionner le champs à supprimer', mtWarning,[mbok],0);
  end
  else
  with DataModule2.IBQuery_Format do
  begin
    SQL.Clear;
    SQL.Add('DELETE 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;
    BitBtn8.Click; //Bouton qui rafraichi
    edit1.Text:='';
 
  end;
end;
  end;