TurboDb neue Datenbank und Table

[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