Форум: "Базы";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Вниз

Добавление динамически нового поля   Найти похожие ветки 

← →
niko4543   (2003-09-18 09:43) [0]

Привет всем Делфистам.
Есть проблемка. Надо добавить в базу данныз динамически поле. Вот. Добавить получается, но при закрытии программы новое поле не сохраняется в базе в чём дело не подскажите. Если есть какие либо альтернативы моему коду буду признателен помощь.
Короче вот код:
var
f : TField;
i : integer;
begin
Form1.Query3.Close;
for i := 0 to Form1.Query3.FieldDefs.Count - 1 do
begin
Form1.Query3.FieldDefs.Items[i].CreateField(Form1.Query3);
end;
f := TStringField.Create(Form1.Query3);
f.Name := "Table1CalcField";
f.FieldName := Edit1.Text;
f.DisplayLabel := Edit1.Text;
f.Calculated := True;
f.DataSet := Form1.Query3;
Form1.Query3.Open;
Close;

Заранее спасибо за помощь.!!!!!!!

---

← →
Reindeer Moss Eater   (2003-09-18 10:00) [1]

Надо добавить в базу данныз динамически поле.

Твой код добавляет поле в ДАТАСЕТ, а не в таблицу.

В таблицу так:
Alter mytable add NewField FieldType

---

← →
niko4543   (2003-09-18 13:51) [2]

for >> Reindeer Moss Eater

Ты не мог бы написать пример кода а то я что то не разберу что и как делать.

---

← →
Reindeer Moss Eater   (2003-09-18 13:52) [3]

Я тебе его уже написал. В последней строке.

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.10.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c