добавить программно поле в таблицу dbf Заманался уже!!!!

← →
Sergey_Elf (2002-11-25 09:13) [0]

как можно добавить поле в таблицу dbase из программы?
какие есть способы?

← →
Valeron (2002-11-25 09:46) [1]

В таблицу на физическом уровне? Или в компоненте?

← →
Sergey_Elf (2002-11-25 09:51) [2]

есть таблица - файл dbf
могу открыть как компоненту table

← →
Valeron (2002-11-25 10:09) [3]

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;

← →
Sergey_Elf (2002-11-25 10:27) [4]

что-то у меня не работает....
а это случайно не расчетные поля?
мне надо постоянные..... у меня таблица на 40 отдельных машинах
надо в эту таблицу автоматом добавить поля
а на dbf работает такое?
я написал:
ttable1.FieldDefs.Add("ls_fio", ftString, 30, true);
ttable1.FieldDefs[ttable1.FieldDefs.Count-1].CreateField(ttable1);
потом делаю open а он говорит такого поля нет

← →
Valeron (2002-11-25 10:31) [5]

У тебя ls_fio написан не верхнем регистре, у меня тоже не работало пока не написал в все слово в верхнем регистре. Это наверное глюк, а может так по умолчанию в BDE.

← →
Sergey_Elf (2002-11-25 10:36) [6]

не помогло.........
вообще такое ощущение, что системку переставлять надо
а то даже datetimepicker такую фигню выдавал на машине..
у соседа скомпилил все ок

← →
Fishka (2002-11-25 12:11) [7]

Поле в существующую таблицу можно добавить SQL-запросом:
ALTER TABLE "C:\aa.dbf" ADD New_pole character(21)

Используй ALTER TABLE и не мудри. Почитай еще какую-нибудь литературку по основам SQL.

добавить программно поле в таблицу dbf Заманался уже!!!! Найти похожие ветки