Du meinst:
Delphi-Quellcode:
ADOQuery_Preisliste.Active := False;
ADOQuery_Preisliste.SQL.Clear;
currentID := AdoQuery_Artikel.FieldValues['id'];
ShowMessage('CurrentID: ' + IntToStr(CurrentID));
ADOQuery_Preisliste.SQL.Text := 'INSERT INTO Preisliste(ID_Artikel, Bezeichnung) VALUES( :ID, :Bezeichnung)';
ADOQuery_Preisliste.Parameters.ParseSQL(ADOQuery_Preisliste.SQL.Text, true);
ADOQuery_Preisliste.Parameters.ParamValues['ID'] := AdoQuery_Artikel.FieldValues['id'];
ADOQuery_Preisliste.Parameters.ParamValues['Bezeichnung'] := AdoQuery_Artikel.FieldValues['Bezeichnung'];
ADOQuery_Preisliste.ExecSQL;
ADOQuery_Preisliste.Open;
end;
Ergebnis:
- ShowMessage zeigt wieder den 1. Datensatz
- der 1. Datensatz wird kopiert
- folgende Fehlermeldung wird angezeit: ADOQuery_Preisliste: CommandText gibt keine Ergebnismenge zurück
[edit=mkinzler]Delphi-Tag gefixt Mfg, mkinzler[/edit]