Текущий архив: 2003.10.09;
Скачать: CL | DM;
Вниз
Добавление динамически нового поля Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
