Hallo Kaemmi,
bin nicht sicher was Du mit Attributen meinst - oder sollte es doch Felder heißen?
Dann könne soetwas so aussehen. Wichtig dabei ist das "CREATETABLE"
WITH tblProtokoll DO
BEGIN
DataBaseName := '';
TableName := IstDir + 'Work.db';
TableType := ttParadox;
Active := FALSE;
FieldDefs.Clear;
FieldDefs.Add('LfdNr', ftAutoInc, 0, FALSE);
FieldDefs.Add('Eingetragen', ftBoolean, 0, FALSE);
FieldDefs.Add('Zeitstempel', ftDatetime, 0, FALSE);
FieldDefs.Add('Nr', ftInteger, 0, FALSE);
FieldDefs.Add('MELDER', ftString, 40, FALSE);
try
CreateTable;//
Active := True;
except
exit;
end;
Active := True;
END;
wenn Du aber eine bestehende Tabelle nur erweitern willst, dann muss ich auch im Moment passen. In der Delphi5-Version ging das wohl noch nicht. Wie das heute in den neueren Versionen aussieht weiß ich noch gar nicht.
Befürchte aber eher, das es noch immer keine Methode "EditTable" gibt.
Auszug der Delphi-Hilfe:
Hinweis: Mit AddFieldDef können Sie nur Felddefinitionen für Tabellen erzeugen, die danach mit der Methode CreateTable oder CreateDataSet erstellt werden. Die Methode AddFieldDef kann nicht zum Hinzufügen von Feldern in eine bereits vorhandene Tabelle verwendet werden.
Gruß, Jochen