Проблема с создание DBF файла

← →
lSergey (2001-12-17 09:19) [0]

Уважаемые мастера, помогите новичку :-))
Есть прога которая написана еще для win3.1
Ей нужен dbf файл. Я его создаю в рантайме вот так
TableVisa->Active = false;
TableVisa->DatabaseName = PathBase->DirectoryListBox->Directory;
TableVisa->TableType = ttDefault;
TableVisa->TableName = "Visa.dbf";
TableVisa->FieldDefs->Clear();
TableVisa->FieldDefs->Add("NUMBER", ftString, 19, True);
TableVisa->FieldDefs->Add("EMPTY", ftString, 23, True);
TableVisa->FieldDefs->Add("DATA", ftString, 17, True);
TableVisa->FieldDefs->Add("NAME", ftString, 26, True);
TableVisa->FieldDefs->Add("BANK", ftString, 26, True);
TableVisa->FieldDefs->Add("MAG_1", ftString, 76, True);
TableVisa->FieldDefs->Add("MAG_2", ftString, 37, True);
TableVisa->CreateTable();

Это булдер, но я думаю что это не принципиально :-))
Так вот, ничего не получается. Прога на эту базу ругается.
Помогите плиз

← →
gek (2001-12-17 09:26) [1]

А че она грит?

← →
Shoo (2001-12-17 09:37) [2]

Попробуй
TableVisa->TableType = ttFoxPro;
У меня в D5 работает. Правла, кодировка Win, но это уже другой вопрос.

← →
Lserg123 (2001-12-17 10:42) [3]

Говорит что поле не найдено
По очереди на все поля ругается

← →
lSerg123 (2001-12-17 10:44) [4]

TableVisa->TableType = ttFoxPro;
не помогло :-((

← →
DmitryA © (2001-12-17 15:36) [5]

А зачем в Runtime"е? Вообще-то, не совсем понятен вопрос...

← →
gek (2001-12-17 15:47) [6]

table1.tablename:="my";
table1.TableType:=ttFoxPro;
with table1.Fielddefs do
begin
clear;
add("kuku",ftstring,50,true);
add("kuku_1",ftstring,50,false);
end;
table1.indexdefs.clear;
table1.indexdefs.add("kuku_index","kuku",[ixprimary,ixunique]);
table1.CreateTable;
table1.Open;

так должно заработать

← →
lSerg123 (2001-12-17 16:37) [7]

Спасибо всем, уже справился :-)))

gek (17.12.01 15:47)
Сомнительно, во времена win3.1 у dbf таблиц не было первичных индексов.

Проблема с создание DBF файла Найти похожие ветки