Hallo,
in einem Projekt muss ich TurboDB verwenden.
Ich möchte ein neue Datenbank und darin ein Table anlegen.
Irgendwie klappt das nicht.
Hat wer einen Tip oder ein funktionierendes Stück Code?
Hier mein Versuch:
Delphi-Quellcode:
TdbDatabase.Connected := false;
if not DirectoryExists(strgFullArchiveDBPath) then
ForceDirectories(strgFullArchiveDBPath);
TdbDatabase.DatabaseName := strgFullArchiveDBPath + strgDatabaseName;
TdbDatabase.CreateDatabase;
TdbDatabase.Connected := True;// alternativ mit Open probiert
TdbDatabase.Open;
TdbCrTable.DatabaseName := strgFullArchiveDBPath + strgDatabaseName; // auch weglassen bringt nichts
TdbCrTable.TableName := TableName;
TdbCrTable.FieldDefs.Clear; // Hier wahlfrei Fielddefinitionen vor oder nach Create eingefügt
TdbCrTable.CreateTable;