Не могу программно создать таблицу DBF
Здравствуйте!
Пытаюсь программно создать DBF-файл: есть компонент tbl_dbf типа TTable
tbl_dbf.Active:=false;
tbl_dbf.DatabaseName:='D:\temp';
tbl_dbf.TableName:='test.dbf';
tbl_dbf.TableType:=ttDBase;
tbl_dbf.FieldDefs.Add('id', ftInteger, 0, false);
tbl_dbf.FieldDefs.Add('str', ftString, 30, false);
tbl_dbf.CreateTable;
Ошибок не выдается, но в результате получается странный DBF-файл:
Имя поля Тип Длина Точность
db866ru0 unknown 0 0
unknown 0 0
unknown 0 0
unknown 0 0
#1# # Dummy 19 0
Если задавать тип Paradox, то все нормально. Если использовать TQuery и
такой запрос:
CREATE TABLE "test.dbf"
(
id INT,
str CHAR(30)
);
,то создается точно такой же DBF-файл, что и при попытке использования
TTable.CreateTable.
Искал в Интернете, нашел много примеров, но все они одинаковые (см. выше).
В
чем моя ошибка, как надо правильно?
Если что, используется Delphi 7 и тот BDE, что идет с ней.
Спасибо за ответы-советы.
Ошибки никакой нет.
Это формат DBase 7 (вроде такой номер версии).
В нем увеличена длина имен полей и добавлены другие расширения.
Чтобы создавались "обычные" файлы, нужно в настройках
драйвера DBASE сменить значение
параметра LEVEL с 7 на 5.
В TTable есть свойство TableLevel, используемое при создании таблицы.
Но воспользоваться им мне не удалось - валится по
ошибке "Таблица не существует" (Delphi 3.02).
А жаль, зависеть от настроек
драйвера неудобно.
Номер выпуска : 5138
Возраст листа : 856 (дней)
Количество подписчиков : 548
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/505110
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru