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

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

Добавляю динамически поле в DataSet а при его открытии [D7, dBase, FoxPro]

Вован ©   (2003-07-07 12:35:00) 

исключение с сообщением про неправельный тип поля:


F:=TIntegerField.Create(Table);
F.FieldKind:=fkData;
F.FieldName:="ROW";
F.DataSet:=Table;
F.Name:="ROW";

Table.FieldDefs.Add(Name,ftInteger,0,false);

Table.Open;


Что я не так делаю?

---

koks   (2003-07-07 16:47:00) [1]

Насколько я вижу - ты создаешь компанент, а потом физические поля таблицы. При этом ОБЪЕКТЫ ПОЛЕЙ (что не одно и тоже) у тебя будут динамическими. (т.е. они у тебя будут создаваться автоматически при открытии Query.)

так у тубя до строчки Numer := TIntegerField.Create(MySql);

А потом ты динамически создаешь ОБЪЕКТ ПОЛЯ. (он был бы статическим если бы ты его создавал в дизайн-тайме). Затем ты его прикрепляешь к Query. получается, что Query при открытии у тебя будет одновременно иметь статические (Number) и динамические ОБЪЕКТЫ ПОЛЕЙ, что не допускается теорией. Потомки TDataSeta могут работать либо со статическими либо с динамическими ОБЪЕКТАМИ ПОЛЕЙ!

Читай в учебнике про ПОЛЯ и ОБЪЕКТЫ ПОЛЕЙ....

---

Sandman25   (2003-07-07 15:10:00) [2]

Вован (07.07.03 13:16)

Потому что судя по имени поля (Name), это поле строкового типа.

---

Соловьев   (2003-07-07 14:15:00) [3]

MySql := TQuery.Create(FirstForm);
with MySql do
begin
DataBaseName := "cadr";
AutoCalcFields := true;
OnCalcFields := MyCalcFields;
with FieldDefs do
begin
Add("phone", ftFloat, 0, true);
FieldDefs[0].CreateField(MySql);

Add("FIO", ftString, 100, true);
FieldDefs[1].CreateField(MySql);

Add("N_D", ftString, 100, true);
FieldDefs[2].CreateField(MySql);

Add("L_of_S", ftString, 100, true);
FieldDefs[3].CreateField(MySql);

Add("NOTE", ftString, 100, true);
FieldDefs[4].CreateField(MySql);

Add("TYPE", ftString, 100, true);
FieldDefs[5].CreateField(MySql);

Add("DATA", ftDate, 0, true);
FieldDefs[6].CreateField(MySql);

Add("ID", ftString, 15, true);
FieldDefs[7].CreateField(MySql);

Add("VYDAN", ftString, 250, true);
FieldDefs[8].CreateField(MySql);

Add("PLASE_WORK", ftString, 250, true);
FieldDefs[9].CreateField(MySql);


Numer := TIntegerField.Create(MySql);
with Numer do
begin
FieldName := "Numer";
Calculated := True;
DataSet := MySql;
Name := MySql.Name + FieldName;
MySql.FieldDefs.Add(Name, ftInteger, 0, true);
end;
end;
end;

---

Вован   (2003-07-07 14:14:00) [4]

Ну так-как Active=false то нету

---

koks   (2003-07-07 13:24:00) [5]

Да-да, неблагодарное это дело динамически создавать статические поля. Для начала - на момент вызова Table.FieldDefs.Add(Name,ftInteger,0,false) у тебя уже есть хоть одно статическое поле для Table ?

---

Вован   (2003-07-07 13:16:00) [6]

2Sandman25 ??? почему ???

---

Sandman25   (2003-07-07 12:47:00) [7]

Table.FieldDefs.Add(Name,ftInteger,0,false);
->
Table.FieldDefs.Add(Name,ftString,0,false);

---

Anatoly Podgoretsky   (2003-07-07 12:43:00) [8]

А вообще что ты делаешь, щачем первые 5 строк или зачем следующая строка, что такое Name? В какой строчке ругается.

---

Наверх