Einzelnen Beitrag anzeigen

-187-

Registriert seit: 24. Sep 2005
483 Beiträge
 
Delphi 2010 Architect
 
#1

Datenbank Duplicates

  Alt 22. Jun 2010, 18:57
Datenbank: Firebird • Version: - • Zugriff über: Interbase
Ich hab nochmal ne Frage zur Datenbank. Und zwar füge ich hin und wieder neue Einträge hinzu. Da ich keine Duplicates haben möchte habe ich auf das betroffene Feld folgendes gemacht:

IBTable1.AddIndex('UNIQUE', 'NAMES', [ixUnique, ixCaseInsensitive]);
Jetzt wollte ich die Einträge mal überprüfen und habe das Feld exportiert und in einem separatem Tool auf Duplicates geprüft. Komischer weise fehlen nach der Überprüfung 60 Einträge. Gesamt waren es rund 9000.

So überprüfe ich die Duplicates:


Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl:=TStringList.Create;
  sl.Duplicates:=dupIgnore;
  sl.Sorted:=True;
  sl.Text:=Memo1.Text;
  Memo1.Text:=sl.Text;
end;

Geändert von mkinzler (22. Jun 2010 um 19:33 Uhr) Grund: Code-Tags durch Delphi-Tags ersetzt
  Mit Zitat antworten Zitat