Mehrere Datensätze von mehreren Tabellen löschen

[Bummi]

wenn ich nicht völlig übermüdet bin, hast Du Dir gerade selbst widersprochen.
Wenn ich als Kunde 17 3 Sachen bestelle haben drei Sendungen die ID 17 ?

[DeddyH]

Zitat:

Delphi-Quellcode:

delKuQuery.SQL.Text :=' DELETE FROM Sendungsverfolgung WHERE Sendungsverfolgung_ID = '''+(Inttostr(AKunde.ID))+ ''';';
  delKuQuery.SQL.Text :=' DELETE FROM Kunden WHERE Kunden_ID = '''+(Inttostr(AKunde.ID))+ ''';';

So wird der erste SQL-Befehl durch den zweiten überschrieben und somit nie ausgeführt. Versuch es stattdessen einmal mit SQL.Add.

[Impulz]

dann sagt er mir unknown: DELETE (Er versteht das 2te delete nicht)



delKuQuery.SQL.Text :=' DELETE FROM Sendungsverfolgung WHERE Sendungsverfolgung_ID = '''+(Inttostr(AKunde.ID))+ ''';';
delKuQuery.SQL.Add(' DELETE FROM Kunden WHERE Kunden_ID = '''+(Inttostr(AKunde.ID))+ ''';');

[DeddyH]

Dann scheint es wohl wirklich so zu sein wie gestern bereits vermutet: eine Query kann nur einen einzigen Befehl ausführen. Du brauchst also entweder eine andere Komponente (welche, weiß ich allerdings auch nicht) oder musst die Befehle getrennt nacheinander zuweisen und ausführen.

[Impulz]

:( mist...

[DeddyH]

Ist doch so schlimm auch nicht:
- Transaktion starten
- Detaildatensätze löschen
- Hauptsatz löschen
- Commiten
- Bei Fehler zurückrollen (Rollback)

Oder eine SP schreiben und die dann ausführen ;)

[Impulz]

Okay habe eine andere Möglichkeit entdeckt...

----try except block-------
zB. Query.SQL.TEXT ' DELETE BLA FROM TABELLEBLA WHERE BLA_ID =.... '
Query.Exec.SQL
Query.SQL.TEXT ' DELETE BLUB FROM TABELLEBLUB WHERE BLUB_ID =.... '
Query.Exec.SQL

finaly...
free.

[Impulz]

:) danke hab ich auch grad so gedacht :)


vielen Dank wieder für deine Hilfe

[Impulz]

@ Bummi. ja warum nicht? die Send_ID ist dann mit dem Kunden Verknüpft und hat die gleiche KundenSendung_NR...
was gesendet wird sieht man dann über die Bücher_ID zb

[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;