Einfügen eines neues Feldes in AdoTable

[DavidKlimas]

Hallo zusammen,

ich möche zur laufzeit neue felder in meine Access Datenbank einfügen. Es gibt mehrere vorschläge in diesem Forum aber es klappt bei mir nicht.

Folgenden Code hab ich derzeit:

Code:

  var
  AdoTable1: TAdoTable;
  Field: TField;
  Str1: String;

  ...

  If ADOTable1.FieldList.Find(Str1) = nil then
  Begin
    ADOTable1.Active := False;
    Field := TIntegerField.Create(AdoTable1);
    Field.FieldName := Str1;
    Field.DataSet := AdoTable1;
    AdoTable1.FieldDefs.Add(Str1, ftInteger);
    AdoTable1.Active := true;   //-> Hier fehlermeldung das das Feld (Name im Str1) nicht gefunden wird
  End;

   ...

Weiss jemand warum das neue Feld nicht zugefügt wird ? Ich hab es auch mit "AdoTable1.Refresh" und sonstigem versucht, ohne erfolg.

Danke

David