Discussion :

[forzaxelah]

Bonjour,

J'ai un petit probleme!

J'ai plusieurs lignes avec le meme identifiant. je veux copier ces lignes (les dupliquer en fait) et changer l'identifiant (passer de zzz à ttt) (non primary key) pour avoir un truc du style:

Avant

zzz f f f
zzz e e e



Après

zzz f f f
zzz e e e
ttt f f f
ttt e e e



Je ne sais pas si le code est bon:

Code :

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

1
2
3
4
5
6
7
8
9
10
WITH DataModule1.MyQMP DO
BEGIN
  SQL.Clear;
  SQL.Add('INSERT INTO ID_M');
  SQL.Add('SELECT * FROM ID_M');
  SQL.Add('WHERE ID_Engin_FK2 = '+ QuotedStr(Form1.IDLoco_Edit.Text));
  SQL.Add('AND ID_Engin_FK2 IN (');
  SQL.Add('    UPDATE ID_M SET ID_Engin_FK2 =:'+ QuotedStr(IDLoco_Edit.Text)+')');
 
END;

????

[Rayek]

Déjà rien qu'avec l'Update ca ne fonctionnera pas car il ne renvoi pas de données.

Pour ce que tu veux faire il faut que tu le fasses à la mimine.

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
 
WITH DataModule1.MyQMP DO
BEGIN
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM ID_M');
  SQL.Add('WHERE ID_Engin_FK2 = '+ QuotedStr(Form1.IDLoco_Edit.Text));
  Open;
 
  While not EOF do
  begin
    MyQuery2.Close;
    MyQuery2.SQL.Clear;
    MyQuery2.SQL.Add('Insert into ID_M');
    MyQuery2.SQL.Add('Values(''ttt'', ' + QuotedStr(FieldByName('LeDeuxiemeChamp').asString) + ')');
    try
      ExecSQL;
    Except on E:Exception do
      Showmessage('Echec de l''insert !!');
    end;
 
    next;
  end;

Enfin un truc du style ^^ à toi d'adapter