Форум: "Базы";
Поиск по всему сайту: 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.162 c
14-66336          Dima-k17              2001-11-23 11:24  2002.01.21  
Недочёт


4-66405           Dimich                2001-11-10 13:31  2002.01.21  
Прочитайте вопрос


14-66347          anod                  2001-11-25 00:12  2002.01.21  
?


7-66367           Sergiu                2001-10-04 10:15  2002.01.21  
Вызов диалоговых окон из .rc файлов


1-66284           StelZ                 2002-01-04 00:44  2002.01.21  
Всегда наверху