![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Добавление динамически нового поля [D7, MSSQL, Paradox]
niko4543 © (2003-09-18 09:43:00)
Привет всем Делфистам.
Есть проблемка. Надо добавить в базу данныз динамически поле. Вот. Добавить получается, но при закрытии программы новое поле не сохраняется в базе в чём дело не подскажите. Если есть какие либо альтернативы моему коду буду признателен помощь.
Короче вот код:
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 13:52:00) [1]
Я тебе его уже написал. В последней строке.
niko4543 (2003-09-18 13:51:00) [2]
for >> Reindeer Moss Eater
Ты не мог бы написать пример кода а то я что то не разберу что и как делать.
Reindeer Moss Eater (2003-09-18 10:00:00) [3]
Надо добавить в базу данныз динамически поле.
Твой код добавляет поле в ДАТАСЕТ, а не в таблицу.
В таблицу так:
Alter mytable add NewField FieldType