Doppel-Select-Anweisung zu langsam

[Ykcim]

Hallo Zusammen,

es ist mir etwas unangenehm, aber die Tabelle hat tatsächlich keine Indizes. Ich habe drei identische Tabellen. Mit zweien wird gearbeitet und die dritte dient nur zur Archiviereung, falls ich mal historische Daten benötige. Das ist jetzt der Fall...

Ich war mir sicher, dass ich auch in der dritten Tabelle die Indizes gestzt hatte, aber da lag ich leider falsch.

Jetzt versuche ich seid fast einer Stunde die Dublikate, die tatsächlich aufgetaucht sind zu entfernen, aber leider klappt das nicht so richtig...

Delphi-Quellcode:

Create TEMPORARY TABLE tmpTab
SELECT WAAUNR, WAAUPO, OAAGNR
FROM as400archiev
GROUP BY WAAUNR, WAAUPO, OAAGNR
HAVING count(*) > 1;

Delphi-Quellcode:

Delete from as400archiev where (WAAUNR, WAAUPO, OAAGNR) in
(select WAAUNR, WAAUPO, OAAGNR from tmpTab);

Drop TABLE tmpTab;

Wenn ich das geschafft habe, setze ich die Indizes und teile Euch das Ergebnis mit...

Vielen Dank schon mal
Patrick