Hallo m-werk,
ich glaube ich habe den Fehler gefunden. Die Tabelle muss natürlich für die Abfrage FindField geöffnet sein, darf aber dann für das Hinzufügen der Felder nicht geöffnet sein, also:
In der Schleife:
Code:
DM.ADOSFinanzierung.Open;
if DM.ADOSFinanzierung.FindField(FeldName[i])=NIL then
begin
DM.ADOSFinanzierung.Close;
DM.QueryFinanzierung.Close;
DM.QueryFinanzierung.SQL.Clear;
DM.QueryFinanzierung.SQL.Add(InsertStr[i]);
DM.QueryFinanzierung.ExecSQL;
end;
So hat es bei mir funktioniert. Übrigens ist die o.g. Annahme richtig, dass die alten Felder nicht über den Feldeditor hinzugefügt worden sein dürfen. Das heißt also, dass du ggf. doch ein zweites "Update" Programm erstellen musst.