Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Вниз

Проблема с создание 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]

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



Anatoly Podgoretsky   (2001-12-17 22:08) [8]

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




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.013 c
4-66398           Delfin                2001-11-21 12:39  2002.01.21  
Как в IE получить доступ к строке адреса


14-66358          Merlin                2001-11-22 23:53  2002.01.21  
Вопрос, который меня мучает уже больше месяца...


3-66182           Polevi                2001-12-14 12:03  2002.01.21  
Отзовитесь, кто нибудь :))


1-66241           Raven                 2001-12-28 17:15  2002.01.21  
Потоки


1-66271           VVG                   2002-01-04 08:24  2002.01.21  
Общие вопросы