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