Problem mit der erstellung von Paradox 7 Datenbank

[Christian18]

Hallo,

ich habe ein Problem mit der erstellung einer Paradox 7 Tabelle zur Laufzeit. Und zwar kommt immer ein Fehler. "Merkmal nicht verfügbar." Hat jemand eine Idee woran das liegen kann??? Ich schicke einfach mal meinen Code mit.

Delphi-Quellcode:

          Table1.Active:=False;
          Table1.DatabaseName:='DBDEMOS';
          Table1.TableType:=ttParadox;
          Table1.TableName:=ExtractFilePath(Application.ExeName) + '\Temp.db';
          if not Table1.Exists then Table1.DeleteTable;

          Table1.FieldDefs.Clear;

          Table1.FieldDefs.AddFieldDef.Name:='Idx';
          Table1.FieldDefs.AddFieldDef.DataType:=ftInteger;
          Table1.FieldDefs.AddFieldDef.Required:=True;

          Table1.FieldDefs.AddFieldDef.Name:='F01';
          Table1.FieldDefs.AddFieldDef.DataType:=ftString;
          Table1.FieldDefs.AddFieldDef.Size:=1;

          Table1.FieldDefs.AddFieldDef.Name:='F02';
          Table1.FieldDefs.AddFieldDef.DataType:=ftString;
          Table1.FieldDefs.AddFieldDef.Size:=5;

          Table1.FieldDefs.AddFieldDef.Name:='F03';
          Table1.FieldDefs.AddFieldDef.DataType:=ftString;
          Table1.FieldDefs.AddFieldDef.Size:=1;

          Table1.FieldDefs.AddFieldDef.Name:='F04';
          Table1.FieldDefs.AddFieldDef.DataType:=ftString;
          Table1.FieldDefs.AddFieldDef.Size:=6;

          Table1.FieldDefs.AddFieldDef.Name:='F05';
          Table1.FieldDefs.AddFieldDef.DataType:=ftString;
          Table1.FieldDefs.AddFieldDef.Size:=7;

          Table1.FieldDefs.AddFieldDef.Name:='F06';
          Table1.FieldDefs.AddFieldDef.DataType:=ftString;
          Table1.FieldDefs.AddFieldDef.Size:=6;

          Table1.FieldDefs.AddFieldDef.Name:='F07';
          Table1.FieldDefs.AddFieldDef.DataType:=ftString;
          Table1.FieldDefs.AddFieldDef.Size:=100;

          Table1.FieldDefs.AddFieldDef.Name:='Status';
          Table1.FieldDefs.AddFieldDef.DataType:=ftString;
          Table1.FieldDefs.AddFieldDef.Size:=1;

          Table1.IndexDefs.Clear;

          Table1.IndexDefs.AddIndexDef.Name:='';
          Table1.IndexDefs.AddIndexDef.Fields:='Idx';
          Table1.IndexDefs.AddIndexDef.Options:=[ixPrimary];

          Table1.CreateTable;

Mit freundlichen Grüßen

Christian18

[MrSpock]

Hallo Christian18,

was mir auffällt ist, dass du als Tabellennamen einen Namen mit Pfad angibst. Er wird aber nur ein Name ohne Pfad erwartet. Der Pfad steht in DatabaseName oder wird über ein ALIAS (wie in deinem Beispiel) festgelegt.