Создание dbf в runtime

← →
Uran (2004-11-09 11:36) [0]

Необходимо в runtime создать таблицу dbf, но при обязательном условии, что бы потом она открылась в Excel.
Создаю следующим образом

procedure MakeDataBase;
begin
with TTable.Create(nil) do
begin
DatabaseName := "c:\temp"; (* alias *)
TableName := "test.dbf";
TableType := ttDBase;
with FieldDefs do
begin
Add("F_NAME", ftString,20,false);
Add("L_NAME", ftString,30,false);
end;
CreateTable;
{ create a calculated index }
with IndexDefs do
begin
Clear;
{ don"t forget ixExpression in calculated indexes! }
AddIndex("name","Upper(L_NAME)+Upper(F_NAME)",[ixExpression]);
end;
end;
end;
Excel ругается на неправильный формат и таблица не открывается. F DatabaseDesktop нормально открывает. Подскажите как создать удобоваримый для Excel dbf?

← →
dolmat (2004-11-09 11:43) [1]

А почему не сразу в Excel ?

Возможно перед открытием надо убить индекс.

← →
VICTOR_ (2004-11-09 12:00) [2]

Открыл в Excel 2000 таблицу, созданную при помощи данного кода. Без проблем.
ФОрмат действительно должен быть ttDBase

← →
Uran (2004-11-09 12:47) [3]

гм ... а что тогда у меня может быть !? на что надо обратить внимание... все уже перепробовал! :(

[3] Uran (09.11.04 12:47)
> все уже перепробовал!

Без индекса тоже пробовал?

[1] dolmat (09.11.04 11:43)
Вообще, большой объем данных записать в ДБФ-ку которую уже открыть в экселе и отформатировать получается немного быстрее, чем писать в эксель все данные через ОЛЕ.

Создание dbf в runtime Найти похожие ветки