Кодом добавить поля в ADOQuery

[Janger]

Программа выдаёт данные о продукте, и я сделал такую функцию, что пользователь может сам решать, какие поля он хочет видеть, к примеру, он создаёт поля с названиями "Срок годности продукта", и "Наименование продукта", и такие данные в дальнейшем будут выводиться в таблице.
Далее ...
В программе пользователь создаёт поле с названием "Фирма изготовитель", программа в sql server-e создаёт поле с именем - "mmm1"(к примеру)
Далее, у меня есть компонент DBEdit (создаётся динамически), и я хочу связать его с новосозданной таблицей "mmm1"

      
with TDBEdit.Create(Form1) do
      try
        Parent :=  Form1;
        Name := 'DBEdit'+IntToStr(x);
          DataSource := ds1;
          DataField := 'mmm'+IntToStr(m);
        Text := '';
        left := 14;
        top := 24;
        width := gb.Width-28;
        height := 21;
        anchors := [akLeft,akTop,akRight];
      except
        ShowMessage('Проблемы при создании DBEdit');
      end;

В общем, если поле базы уже "добавлено" в ADOQuery, то всё создаётся нормально, и никаких сообщений не выдаётся. Но если поле из базы "отсутствует" в ADOQuery, вот тогда программа выдаёт сообщение ('Проблемы при создании DBEdit') .....
==================================
Я начал думать, каким образом можно сделать (add fielfs ...)
Но так ничего и не придумал.
Нашёл в интернете код, как можно динамически добавить поле в "список" ADOQuery, но я повторюсь, что это динамический ... т.е. мне грубо говоря придётся где то хранить перечень всех полей которые добавил пользователь, и каждый раз при открытии формы, он должен будет их по новой добавлять в ADOQuery. Это можно перетерпеть, если всего два поля будет, но если этих полей будет штук 50 ? Я думаю, прога основательно подвиснет при открытии.
=================================== =
В общем вопрос:
Можно ли как то скопом добавить все поля в АДОшку, каким нибудь Рефрешем или Апдейтом ...
Помогите выйти из ситуации, пожалуйста

[Stilet]

если поле из базы "отсутствует" в ADOQuery

А зачем ты тогда создаешь эдит, если поля нет? Создавай его уже когда query открыт, и поле сие появилось в наборе.

[JUDAS]

Если не объявлять статический поля (не делать addfields) в TDAtaSet (потомком которого есть TADOQuery) , то при открытии таблицы, они автоматически в него добавятся .
---------
К примеру когда я делаю какую то форму с отображением новых таблиц (сцепок таблиц), я сначала добавляю все поля addfileds. Потом настраиваю все контролы в форме, открываю проверяю как работает, а потом удаляю все эти поля с TAdoQuery.
В случае, если мне нужно присобачить обработчики по типу Onvalidate OnGet(Set)Text я делаю это на этапе инициализации формы перед открытием TAdoQuery посредством присвоение обработчика в коде

[Janger]

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

А зачем ты тогда создаешь эдит, если поля нет? Создавай его уже когда query открыт, и поле сие появилось в наборе.

-
Я немного не понял ....
Вы имеете в виду, что мне нужно перед подключением нового поля к DBEdit перезапустить АДОшку?

ADOQuery1.Close; ADOQuery1.Open

-
Если так, то ....
Я пробовал данный код:
(В базе было 12 полей, а в ADOQuery я только 10 добавил)

ShowMessage(IntToStr(ADOQuery1.FieldCount));
ADOQuery1.Close;
ADOQuery1.Open;
ShowMessage(IntToStr(ADOQuery1.FieldCount));

Данный код, вывел следующие сообщения:
-
Message_#1: 10
Message_#2: 10
-
Так что, либо я что то не так понял, либо данное действо не поможет мне ...

[JUDAS]

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

-
(В базе было 12 полей, а в ADOQuery я только 10 добавил)

ShowMessage(IntToStr(ADOQuery1.FieldCount));
ADOQuery1.Close;
ADOQuery1.Open;
ShowMessage(IntToStr(ADOQuery1.FieldCount));

Данный код, вывел следующие сообщения:
-
Message_#1: 10
Message_#2: 10
-
Так что, либо я что то не так понял, либо данное действо не поможет мне ...

Автор, удали все 10 полей которые добавил и попробуй свой код.
Потом, в базе данных в табличку добавть ещё одно поле и опять попробуй код.

[Janger]

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

Если не объявлять статический поля (не делать addfields) в TDAtaSet (потомком которого есть TADOQuery) , то при открытии таблицы, они автоматически в него добавятся

В принципе согласен. Но что мне делать с тем фактом, что если я удалю все поля из ADOQuery, то все компоненты которые стоят по умолчанию на форме, будь то: DBEdit или DBMemo, они пусты? p.s. хотя текст на них появляется в том случае когда я кликаю по компоненту мышкой ... это не очень эстетично

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

Автор, удали все 10 полей которые добавил и попробуй свой код.
Потом, в базе данных в табличку добавть ещё одно поле и опять попробуй код.

Уже попробовал, прочтите сообщение. Всё сразу отображается, но проблема с изначальным выводом данных в компоненты

[Stilet]

а в ADOQuery я только 10 добавил

Ну вот убери их из списка полей. Не нужны они там.

Кстати, а зачем тебе понадобилось все это? Чует мое "пэрце", что твою задачу точно можно решить более простым способом.

[JUDAS]

Всё сразу отображается, но проблема с изначальным выводом данных в компоненты

В таком случае я бы сделал по другому, отключал бы и включал бы DataSet к компоненте по клику.
Например

procedure TForm1.DBEdit1OnCLick(Sender : TObject);
begin
  with TDBEdit(Sender) do
  if Assigned(DataSet) then 
    DataSet:=nil else
    DataSet:=TAdoQuery1; 
end;

[Janger]

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

В таком случае я бы сделал по другому, отключал бы и включал бы DataSet к компоненте по клику.
Например

procedure TForm1.DBEdit1OnCLick(Sender : TObject);
begin
  with TDBEdit(Sender) do
  if Assigned(DataSet) then 
    DataSet:=nil else
    DataSet:=TAdoQuery1; 
end;

Я бы наверное вашу строчку DataSet:=TAdoQuery1 поместил бы на событие onShow, что бы данные сразу показались ... А то при открытии, все DBEdit-ы пустые у меня

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

Ну вот убери их из списка полей. Не нужны они там.

Кстати, а зачем тебе понадобилось все это? Чует мое "пэрце", что твою задачу точно можно решить более простым способом.

1) Если я уберу все поля из АДОшки, то при открытии формы, у меня DBEdit-ы будут пустыми ....
2) Я ничего не смог придумать лучше этого ... Вроде бы всё просто, только вот с этими полями я замучился ...

[JUDAS]

Если нужна обратная реакция то тогда на OnShow вешается всё для отображения, а на клике снимается. При этом, связка контрол-поле таблицы остаётся корректным на весь сеанс работы с приложением