Hallo Zusammen,
ich versuche Daten aus einem Grid in ein 2. Grid zu kopieren:
Delphi-Quellcode:
procedure Tfrm_Testformular.DBGrid1DblClick(Sender: TObject);
var
currentID: Integer;
begin
with dm_Nails4You_Artikel
do
begin
with ADOQuery_Artikel
do
Begin
currentID := AdoQuery_Artikel.FieldValues['
id'];
ShowMessage('
CurrentID: ' + IntToStr(CurrentID));
SQL.Text := '
INSERT INTO Preisliste(ID_Artikel, Bezeichnung, VK_Netto, VK_Brutto) SELECT Artikel.ID, Artikel.Bezeichnung, Artikel.VK_Netto, Artikel.VK_Brutto FROM Artikel WHERE Artikel.ID = 17';
Parameters.ParseSQL(
SQL.Text, true);
Parameters.ParamValues['
ID'] := currentID;
ExecSQL;
End;
end;
end;
Das Ergebnis aus ShowMessage ist immer CurrentID: 1.
Anschliessend erhalte ich die Meldung: ADOQuery_Artikel: Parameter 'ID' nicht gefunden.
Hinter dm_Nails4You_Artikel steckt je ein ADOQuery und ein DataSource beider Tabellen. Die zu kopierenden Felder der Tabellen sind identisch.
Weiss jemand Rat?
Gruss
Dieter
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]