Datenbank zur Laufzeit erstellen?

[eddy]

Hallo Snooze,

ich bin erst jetzt auf Deine Frage gestoßen, vielleicht nützt Dir folgendes ja noch etwas:

Code:

procedure TFDaSi.GenSVAuftragsdatei1Click(Sender: TObject);
begin
  Tab1.Active := false;
  Tab1.DatabaseName := DataPath; //d:\myprog\daten
  Tab1.TableName := fnSVOrder;   //d:\myprog
  Tab1.TableType := ttParadox;
  Tab1.FieldDefs.Clear;
  with Tab1.FieldDefs do begin
    Add('ID', ftAutoInc, 0, false);      // für den Primärindex
    Add('Gruppe', ftString, 20, false);
    Add('QLW', ftString, 80, false);
    Add('CopySubDir', ftBoolean, 0, false);
    Add('AktRotation', ftInteger, 0, false);
    Add('InklFilter', ftMemo, 0, false);
    Add('Datum', ftDate, 0, false);
    Add('Zeit', ftTime, 0, false);
  end;     { of FieldDefs }
  try
    Tab1.CreateTable;
  except
  end;
  // Index erzeugen
  Tab1.IndexDefs.Clear;
  Tab1.IndexDefs.Update;
  Tab1.AddIndex('','ID', [ixPrimary]);
  Tab1.AddIndex('Gruppe','Gruppe',[ixCaseInsensitive]);
end;

mfg
eddy