Hallo mkinzler,
Danke für Deine Hilfe.
Ein Problem habe ich leider noch:
Es wird immer der 1. Datensatz in die Zieltabelle geschrieben, egal welchen ich im Grid1 markiere.
Vielleicht kannst Du mir nocheinmal einen Tip geben.
Delphi-Quellcode:
procedure Tfrm_Testformular.Button1Click(Sender: TObject);
var
i, currentID: Integer;
begin
inherited;
with dm_Nails4You_Artikel do
BEGIN
ADOQuery_Preisliste.Active := False;
ADOQuery_Preisliste.SQL.Clear;
for i := 0 to DBGrid1.SelectedRows.Count - 1 do
BEGIN
DBGrid1.DataSource.DataSet.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
currentID := AdoQuery_Artikel.FieldValues['id'];
ShowMessage('CurrentID: ' + IntToStr(CurrentID));
ShowMessage('i: ' + InttoStr(i));
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.Refresh;
End;
end;
end;