Hallo,

ich möchte eine Tabelle samt Indiezies neu ertsellen, so sieht mein Code dazu aus:

markieren

Delphi-Quellcode:

table1.Close;
table1.DatabaseName:=ADB;
if not table1.Exists then
  begin
  table1.CreateTable;
  table1.IndexDefs.Clear;
  table1.IndexDefs.Add('SortErledigt','ErledigtDatum',[ixDescending]);
  end;
table1.IndexName:='SortErledigt';
table1.Open;

Wenn ich das so ausführe bekomme ich bei dem Open die Meldung:
---------------------------
Fehler
---------------------------
Index does not exist.

Index: SortErledigt
---------------------------
OK
---------------------------


Wenn ich die IndexDefs vor dem CreateTable mache, kommt folgende Meldung:
---------------------------
Fehler
---------------------------
Table is not indexed.

Table does not exist.

Table: D:\Pfad\XTabelle.db

File or directory does not exist.

File: D:\Pfad\XTabelle.db
---------------------------
OK
---------------------------

Was genau mach ich falsch, das hinzufügen von Indizies ging doch über IndexDefs oder?

Hast Du Dir das C++-Beispiel aus dem DocWiki einmal angeschaut?

Hallo,

stell' bitte mal die Indexdefinitionen vor das CreateTable.

So sind die Indexdefinitonen beim Erstellen noch nicht bekannt und können daher auch nicht berücksichtigt werden.

Das hat er ja auch versucht.

Danke danke, so klappts:

zusammenfalten · markieren

Delphi-Quellcode:

table1.Close;
table1.DatabaseName:=ADB;
if not table1.Exists then
  begin
  table1.IndexDefs.Clear;
  with table1.IndexDefs.AddIndexDef do
    begin
    Name:='';
    Fields:='Id';
    Options:=[ixPrimary,ixUnique];
    end;
  with table1.IndexDefs.AddIndexDef do
    begin
    Name:='SortErledigt';
    Fields:='Erledigt';
    Options:=[ixCaseInsensitive];
    end;
  table1.CreateTable;
  end;
table1.IndexName:='SortErledigt';
table1.Open;

Einmal musste ich einen Primärindex definieren und dann wird eine leere Option nicht akzeptiert, also muss man da was reinschreiben, da ich nicht descending sondern ascending sortieren will, hab ich das halt mal so gelöst.