Datensatz löschen

[Leuselator]

1. Poste mal ein bischen source (Anhängen)
2. ganz wichtiger Aspekt beim Löschen der Geschenkdatensätze:

Delphi-Quellcode:

procedure DeletePresent(idDeleteKunde : Integer);
var TempQuery : TADOQuery;
    idLeuselator : Integer;
begin
  TempQuery := TADOQuery.Create(nil);
  TempQuery.Connection := ADOQuery1.Connection;
  TempQuery.SQL.Add('select idKunden from Kunden where name = ''Leuselator''');
  TempQuery.Open;
  idLeuselator := TempQuery.FieldByName('idKunden').AsInteger;
  TempQuery.Close;
  TempQuery.SQL.Clear;
  TempQuery.SQL.Add('update Geschenke set idKunden = '+IntToStr(idLeuselator));
  TempQuery.SQL.Add('where idKunden = '+IntToStr(idDeleteKunde));
  TempQuery.ExecSQL;
  TempQuery.Free
end;