Datensatz löschen

[Budda]

Moin,

hier der Code vom LöschButton:

Delphi-Quellcode:

ADOQuery2.Close;
ADOQuery2.SQL.Text := 'DELETE FROM t_lizenz WHERE KGGUID = ' + ADOQuery1.FieldByName 'GGUID').AsString;
ADOQuery2.ExecSQL;
ADOQuery1.Delete;
DBGrid1.Refresh;