TIBQuery fields

[Rowi]

Вот набросал тестовый проектик. Может, кто попробует...

[Serge_Bliznykov]

Rowi

фактически, Вам нужен такой код:

             field := TWideStringField.Create(nil);
             with field do begin
               Size:= 20;
               FieldName := FieldNameAdd;
               Dataset := ADODataSet1;
             end;

вот, кинул такой код на кнопочку (добавляет отсутствующие в датасете поля):

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
  field : TField;
  FieldNameAdd : string;
begin
    ADODataSet1.Close;
    for I := 0 to ADODataSet1.FieldDefList.Count - 1 do
      with ADODataSet1.FieldDefList[I] do
        if (FieldClass <> nil) and not (faHiddenCol in Attributes) then
        begin
          FieldNameAdd := ADODataSet1.FieldDefList.Strings[I];
          Field := ADODataSet1.FindField(FieldNameAdd);
          if (Field = nil) or (Field.Owner <> ADODataSet1.Owner) then begin
             field := TWideStringField.Create(nil);
             with field do begin
               Size:= 20;
               FieldName := FieldNameAdd;
               Dataset := ADODataSet1;
             end;
             with DBGrid1.Columns.Add do
             begin
                FieldName:= FieldNameAdd;
             end;

          end;
        end;
    ADODataSet1.Open;
end;

[Rowi]

Сообщение от Serge_Bliznykov

Rowi
фактически, Вам нужен такой код:

             field := TWideStringField.Create(nil);
             with field do begin
               Size:= 20;
               FieldName := FieldNameAdd;
               Dataset := ADODataSet1;
             end;

Здорово!!! Это именно то, что было нужно!!!
Теперь кнопочка работает: новое поле добавляется в БД и сразу отображается в DBGrid для редактирования.

А вот это я поставил на OnCreate формы и при запуске программы подхватываются поля, которые были добавлены в RunTime ранее:

Сообщение от Serge_Bliznykov

вот, кинул такой код на кнопочку (добавляет отсутствующие в датасете поля):
...

ОГРОМНОЕ спасибо, Serge_Bliznykov!
Проблема решена.