Bonjour

J'ai un petit problème avec la récuperation d'un enregistrement à partir d'une dbgrid

J'ai essayer ça:

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
procedure TForm6.Ajouteramaliste1Click(Sender: TObject);
var
cnum:integer;
cnom,citemprt :string;
csct,csmt,cslt,crct,crmt,crlt : real;
 
begin
 dm.IBQuery1.Close;
 dm.IBQuery1.SQL.Clear;
 dm.IBQuery1.SQL.Text:=('select NUM, NOM, ITEMPRT, SCT, SMT, SLT, RCT,    RMT, RLT from '+ ComboBox1.text); 
 dm.IBQuery1.Open;
  cnum:= dm.IBQuery1.FieldByName('num').AsInteger;
  cnom:=dm.IBQuery1.FieldByName('nom').asString;
  citemprt:=dm.IBQuery1.FieldByName('itemprt').asString;
  csct:=dm.IBQuery1.FieldByName('SCT').AsFloat;
  csmt:=dm.IBQuery1.FieldByName('SMT').AsFloat;
  cslt:=dm.IBQuery1.FieldByName('SLT').AsFloat;
  crct:=dm.IBQuery1.FieldByName('RCT').AsFloat;
  crmt:=dm.IBQuery1.FieldByName('RMT').AsFloat;
  crlt:=dm.IBQuery1.FieldByName('RLT').AsFloat;
 
dm.IBQuery1.Close;
dm.IBQuery1.SQL.Clear;
dm.IBQuery1.SQL.Add('insert into ' + combobox2.Text + '(NUM, NOM, ITEMPRT, SCT, SMT, SLT, RCT, RMT, RLT) values ('+inttostr(cnum)+','+cnom+','+citemprt+','+floattostr(csct)+','+floattostr(csmt)+','+floattostr(cslt)+','+floattostr(crct)+','+floattostr(crmt)+','+floattostr(crlt)+')');
decimalseparator:=',';
dm.IBQuery1.ExecSQL;
 
end;

combobox1 contient le nom de la table de l'enregistrement à copier
et combobox2 le nom de la table de destination

Le but de cette procedure qui ce trouve dans un menupopup est qu'en me positionnant sur une ligne d'une dbgrid je puisse recopier juste cette ligne vers mon autre table .

Actuellement j'ai un message d'erreur me disant "token unknown-line1,char 85 _AC...".

Le 1_AC est une donner de ma table mais il m'indique "_AC "je sais que mon code copie le premier enregistrement de ma table mais ce n'est pas ce que je recherche si quelqu'un pouvait me donner une piste pour me positionner sur le bon enregistrement via la dbgrid ce serrait sympa

Merci à tous