Datensatz per Button in eine Tabelle einfügen...

[swoob]

HI!
Also ich stehe mal wieder vor einem rießen problem.
Und zwar will ich aus einer Tabelle den markierten Datensatz in eine andere Tabelle einfügen. Dies ging mit der SQL Komponente gleich gar nicht. (read-only fehler).
Daher habe ich eine Table Komponente genommen.
Es klappt nun auch den markierten Datensatz in die andere Tabelle einzufügen. Versuche ich allerdings diesen Datensatz nochmals in die Tabelle einzufügen kommt eine "Key Violation".
Kann mir dabei jemand helfen?

Ich benutze diesen Programmcode:

Zitat:

procedure TForm4.Button2Click(Sender: TObject);
begin
Table1.edit;
Table1.Append;
Table1.Insert;
Table1Datum.Value := DateTimePicker1.Date;
Table1ArtikelNr.Value := Query1.FieldByName('ArtikelNr').AsInteger;
Table1Produktname.Value := Query1.FieldByName('Produktname').AsString;
Table1Produkttyp.Value := Query1.FieldByName('Produkttyp').AsString;
Table1KundenNr.Value := StrToInt(Label7.Caption);
Table1.Post;
Table1.Next;
end;

mfg
swoob

PS: weiß auch jemand ob man das nicht doch auch mit einer SQL Komponente machen kann? Kann man mit einer SQL Komponente den Datensatz auch bearbeiten, zb mit einem DBNavigator??[/quote]