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