Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

lSergey © (2001-12-17 09:19:00)
Уважаемые мастера, помогите новичку :-))
Есть прога которая написана еще для 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();

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

Anatoly Podgoretsky (2001-12-17 22:08:00) [1]
gek (17.12.01 15:47)
Сомнительно, во времена win3.1 у dbf таблиц не было первичных индексов.

lSerg123 (2001-12-17 16:37:00) [2]
Спасибо всем, уже справился :-)))

gek (2001-12-17 15:47:00) [3]
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;

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

DmitryA (2001-12-17 15:36:00) [4]
А зачем в Runtime"е? Вообще-то, не совсем понятен вопрос...

lSerg123 (2001-12-17 10:44:00) [5]

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

Lserg123 (2001-12-17 10:42:00) [6]
Говорит что поле не найдено
По очереди на все поля ругается

Shoo (2001-12-17 09:37:00) [7]
Попробуй
TableVisa->TableType = ttFoxPro;
У меня в D5 работает. Правла, кодировка Win, но это уже другой вопрос.

gek (2001-12-17 09:26:00) [8]
А че она грит?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »