Meinst Du so:
Delphi-Quellcode:
ADOQuery_Preisliste.Active := False;
ADOQuery_Preisliste.SQL.Clear;
currentID := AdoQuery_Artikel.FieldValues['id'];
ShowMessage('CurrentID: ' + IntToStr(CurrentID));
AdoQuery_Artikel.SQL.Text := 'INSERT INTO Preisliste(ID_Artikel, Bezeichnung) VALUES( :ID, :Bezeichnung)';
AdoQuery_Artikel.Parameters.ParseSQL(AdoQuery_Artikel.SQL.Text, true);
AdoQuery_Artikel.Parameters.ParamValues['ID'] := AdoQuery_Artikel.FieldValues['id'];
AdoQuery_Artikel.Parameters.ParamValues['Bezeichnung'] := AdoQuery_Artikel.FieldValues['Bezeichnung'];
AdoQuery_Artikel.ExecSQL;
ADOQuery_Preisliste.Open;
end;
Auch hier habe ich, beim 1. Klick auf irgendeine Zeile im GRID beim ShowMessage: CurrentID: 1
anschliessend die Meldung: "Ein Parameterobjekt ..... " (wie oben)
und beim nächsten Klick auf eine Zeile die Meldung: Could not convert variant of type (Null) into type (Integer).
Die Felder ID sind Integer und Bezeichnung ist String bzw. Text