[Romix]

Всем привет! Опять обращаюсь к великим ГУРУ Delphi (форум, миленький, спасай)... Столкнулся с проблемой изменения размера поля в DBF через TTable. Вроде как есть такие свойства как Table.Fields[0].DateSize и TTable.Fields[0].DateType, но когда их используешь пишет такое... "cannot perform this operation on a open dataset" и я ХЗ чё с этим делать. В Гугле всё облазил толкового примера не нашел. Помогите кто чем может.

P.S. DbiDoRestructure не предлагать, я очень далёк от этого!!! Заранее благодарен!

[Pilot_Red]

Попробуй свойство Table active в false перевести. а потом попробуй изменить свои свойства

[lmikle]

Боюсь не поможет.
Тебе надо в ран-тайме или это разовая операция? Если разовая, то через BDE desktop открой табличку и сделай изменения. Если в рантайме - то создавай новую таблицу и переписывай данные.

[Romix]

Сообщение от lmikle

Боюсь не поможет.
Тебе надо в ран-тайме или это разовая операция? Если разовая, то через BDE desktop открой табличку и сделай изменения. Если в рантайме - то создавай новую таблицу и переписывай данные.

Так вот я видел как это делает DBFNavigator берет и создаёт новую таблицу переписывает туда старые данные с новым размером, а старую таблицу сохраняет с расширением *.bak. Я конечно понимаю что DBF древний формат, но всё таки создавать новую таблицу как то примитивно! Неужели нет другого выхода?

[Aristarh Dark]

(тут я долго ругаюсь матом) ТС пытается изменить ридонли (read-olni) свойства - это чревато. ИХМО, ТС следует получится, F1 спасает, реально, я сам так учился..

[lmikle]

Ну ладно, ругаться-то

Вообще, можно, конечно, попробовать сделать через BDE и SQL-запрос (не уверен, что получится, а если и получится, то будет сделано ровно тем же путем, что и "руками"). Тут такое дело, что DBF-файл имеет структуру, зависящую от длинн полей в нем, так что как бы ты не делал, все равно будет происходит полное изменение файла. А в этом случае просто создать новую структуру и туде все переписать будет просто быстрее, да и легче в реализации.

[NumLock]

Сообщение от Romix

Как изменить тип и размер поля в BDE?

да без проблем:

Код:

  Query1.DatabaseName:='DBDEMOS';
  Query1.SQL.Text:='create table "test.dbf" (name char(20), capital char (20), continent char(20), area char(20), population char(20))';
  Query1.ExecSQL;
  Query1.SQL.Text:='insert into "test.dbf" select cast(name as char(20)), cast(capital as char(20)), cast(continent as char(20)), cast(area as char(20)), cast(population as char(20)) from country';
  Query1.ExecSQL;

используй cast для преобразования типов.