Форум: "Базы";
Поиск по всему сайту: 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.73 MB
Время: 0.019 c
4-66414           Русский               2001-11-19 17:43  2002.01.21  
Людииии ааааааа Help :)))


4-66413           cit5                  2001-11-19 08:20  2002.01.21  
Обовление экрана


1-66274           Paul_2                2002-01-04 11:32  2002.01.21  
Работа с Word через Delphi


3-66200           IM                    2001-12-15 08:58  2002.01.21  
Delphi и MS SQL


4-66391           Floyn                 2001-11-20 10:00  2002.01.21  
Как в DLL создать окно?