Hallo, Dank dem Forum kann ich mit unten anstehenden Anweisungen doppelt eingegebene Datensätze aufspüren. Nun sollen die doppelten Datensätze nach dem schließen der Tabelle automatisch gelöscht werden ohne das der Anwender etwas bemerkt. Einfach das select durch delete ersetzen funktioniert nicht. Kann man mir einen Tipp geben wie ich das bewerkstelligen kann. Ich arbeite mit Local Sql, Paradox7, Delphi5. Danke Gruß ph.
<br>Query1.SQL.Clear;
<br>Query1.SQL.Add('select count(*) N_Name, V_Name, GebDat, Abteilung');
<br>Query1.SQL.Add('from Sin_Adre.db');
<br>Query1.SQL.Add('group by N_Name, V_Name, GebDat, Abteilung');
<br>Query1.SQL.Add('having count(*) > 1');
<br>Query1.Open;
<br>Query1.SQL.Clear;
<br>Query1.SQL.Add('select count(*) N_Name, V_Name, GebDat, Abteilung');
<br>Query1.SQL.Add('from Sin_Adre.db');
<br>Query1.SQL.Add('group by N_Name, V_Name, GebDat, Abteilung');
<br>Query1.SQL.Add('having count(*) > 1');
<br>Query1.Open;
Comment