Скачать: CL | DM;

Создание 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]

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

---

← →
Danilka ©   (2004-11-09 13:55) [4]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c