| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Kak в TQuery програмно добавить поле (вычислимое)? [D3, IB6.x]

Stupid ©   (2004-06-18 13:36:00) 

Kak в TQuery програмно добавить поле (вычислимое)?

Пытаюсь так
Var
  SKonNosFld:TStringField;
Begin
AM.TmQuery.Close;
SKonNosFld:=TStringField.Create(AM.TmQuery);
SKonNosFld.Name:='SKonNos';
SKonNosFld.DataSet:=AM.TmQuery;
End;

говорит : Field name is missing.

Что ещё надо? или как будет правильнее?

---

Stupid   (2004-06-18 17:42:00) [1]

Если я добавляю поле, то после открытия запроса нет доступа к остальным полям по FieldByName.

У меня есть TQuery, поля не определены.
Использую его в разных местах программы для разных запросов.
В одной из форм понадобилось вычислимое поле. Отдельный TQuery на это создавать нехочется. Можно ли создавать поле когда понадобится, а потом удалять его?

---

Johnmen   (2004-06-18 13:43:00) [2]

Примерно так:
with TStringField.Create(TmQuery) do begin
 FieldName := 'MyCalcField';
 FieldKind:= fkCalculated;
 DataSet := TmQuery;  
 Name := Dataset.Name + FieldName;
 TmQuery.FieldDefs.Add(Name, ftString, 20, false);
 end;

---

Наверх