Datensatz löschen

[Sharky]

Hai Budda,

ich würde das über einen SQL-Befehl machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ADOQuery2.Close;
 ADOQuery2.SQL.Text := 'DELETE FROM geschenktabelle WHERE kunden_id = ' + ADOQuery1.FieldByName ('kunden_id').AsString;
 ADOQuery2.ExecSQL;
end;