TurboDb neue Datenbank und Table

[hanspeter]

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;

[omata]

Vielleicht hilft das hier weiter.

[hanspeter]

Zitat von omata:

Vielleicht hilft das hier weiter.

Nicht wirklich.
Der Text ist von 2003 und die dort verwendete Componente gibt es nicht mehr.
Ich habe zwischenzeitlich aber eine Ursache gefunden. Pfad und Datenbankname müssen nach Location.

Ich arbeite sonst mit SQL Datenbanken. TurboDB kommt mir wie Steinzeit vor.

Gruß
Peter

[omata]

Zitat von hanspeter:

Der Text ist von 2003 und die dort verwendete Componente gibt es nicht mehr.

Oh, sorry. Aus deinen Beitrag geht aber auch nicht hervor, von welchem Typ "TdbDatabase" ist.

Zitat von hanspeter:

Ich habe zwischenzeitlich aber eine Ursache gefunden. Pfad und Datenbankname müssen nach Location.

Was ist Location? Geht die Erstellung dann?

[hanspeter]

Zitat von omata:

Was ist Location? Geht die Erstellung dann?

TdbDatabase.Location und nicht Databasename, dann geht es.
Vor Table.Create müssen Felder erzeugt sein.

Gruß
Peter

[omata]

Ah, ok.

Nur weiß ich jetzt leider immer noch nicht, welche Komponente du da verwendest.

Schade, hätte mich schon interessiert.

[hanspeter]

Zitat von omata:

Ah, ok.

Nur weiß ich jetzt leider immer noch nicht, welche Komponente du da verwendest.

Schade, hätte mich schon interessiert.

Die Componenten sind doch bei TurboDB dabei.
(Kostenpflichtiges Produkt)

Delphi-Quellcode:

 TdbDatabase.Connected := FALSE;
    if not DirectoryExists(strgFullArchiveDBPath) then
      forcedirectories(strgFullArchiveDBPath);
    TdbDatabase.Location := strgFullArchiveDBPath + strgDatabaseName;
    TdbDatabase.CreateDatabase;
    TdbDatabase.Connected := TRUE;
    TdbDatabase.Open;
 
with TdbTable do
begin
  FieldDefsTdb.Clear;
  FieldDefsTdb.Add('Index', dtAutoInc);
  FieldDefsTdb.Add('Column2', dtString, 51);

  TableName := aTableName;
  CreateTable;
end;

Die Componenten sind TdbDatabase und TdbTable.
Jetzt alles klar?

Gruß
Peter