Mehrere Datensätze von mehreren Tabellen löschen

[DeddyH]

So sollte es hoffentlich klappen:

Delphi-Quellcode:

procedure TDataconnect.deleteKunde(AKunde: TKunde);
var
  delKuQuery: TIBOQuery;
  delKuTransa: TIBOTransaction;
begin
  delKuQuery:= TIBOQuery.Create(nil);
  try
    delKuQuery.IB_Connection:=FDataBase;
    delKuTransa:= TIBOTransaction.Create(nil);
    try
      delKuTransa.IB_Connection:= FDataBase;
      try
        delKuQuery.SQL.Text :=' DELETE FROM Sendungsverfolgung WHERE Sendungsverfolgung_ID = :id';
        delKuQuery.ParamByName('id').Value := AKunde.ID;
        delKuQuery.ExecSQL();
        delKuQuery.SQL.Text :=' DELETE FROM Kunden WHERE Kunden_ID = :id';
        delKuQuery.ParamByName('id').Value := AKunde.ID;
        delKuQuery.ExecSQL();
        delKuTransa.Commit;
      except
        on E: Exception do
          begin
            //Fehlermeldung ausgeben oder etwas in der Art
            delKuTransa.Rollback;
          end;
      end;
    finally
      delKuTransa.Free;
    end;
  finally
    delKuQuery.Free;
  end;
end;