nachträglich Attribute in Tabelle einfügen

[kaemmi]

Hallo,

mein Problem is Folgendes. Ich habe eine Paradox DB und möcht nun nachträglich 3 Attribute einfügen. Ich würde das so machen:

Delphi-Quellcode:

DataModule2.Table1.StoreDefs:=true;
with DataModule2.Table1.FieldDefs do begin
     add('getestetam',ftDate,0,false);
     add('pruefungsfach',ftString,3,false);
     add('testbestanden',ftBoolean,0,false);
end;

Allerdings werden diese neuen Felder nicht gespeichert. Was hab ich falsch gemacht? Oder kann ich nachträglich garkeine Attribute mehr hinzufügen?

Bin dankbar für jede Antwort

Kaemmi

[HaJo]

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

[kaemmi]

Danke für deine Antwort. Sieht wohl so aus, als wenn es nicht funktioniert wie ich es mir gedacht habe.

Kaemmi

[woki]

Falls du Felder in eine vorhandene Paradoxtabelle einfügen möchtest, schau dir mal LocalSQL an, damit geht das.