VPF::Ошибка. В чем? - Форум программистов

Mde

Дата 31.8.2005, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 15.11.2004
Где: Азов, Ростовской области

Репутация: нет
Всего: нет

Есть код

Код


table1.DatabaseName:=PatchBaz;
table1.TableName:=labeledEdit1.Text+'_Gr'table1.TableType:=ttParadox;
table1.FieldDefs.Clear;
table1.FieldDefs.Add('Nn',ftAutoInc,0,False);// Автоинкрементное
Table1.IndexDefs.Add('','Nn',[ixPrimary,ixUnique]);
table1.FieldDefs.Add('Name_Grup',ftString,20,false);
table1.FieldDefs.Add('Year',ftstring,6,false); 
table1.FieldDefs.Add('Point',ftstring,100,false);
table1.FieldDefs.Add('Otdelenie',ftString,100,False);
table1.FieldDefs.Add('OG1',ftstring,150,false);
table1.FieldDefs.Add('OG2',ftstring,150,false); 
table1.FieldDefs.Add('OG3',ftstring,30,false);
table1.FieldDefs.Add('OG4',ftstring,80,false);
 table1.FieldDefs.Add('OG5',ftstring,120,false);
table1.FieldDefs.Add('OG6',ftstring,100,false);
 For i:=1 to 5 do
Begin
table1.FieldDefs.Add('KP'+inttostr(i),ftstring,100,false);
table1.FieldDefs.Add('Pr'+inttostr(i),ftstring,100,false); 
table1.FieldDefs.Add('GE'+inttostr(i),ftstring,100,false); 
table1.FieldDefs.Add('ZS'+inttostr(i),ftstring,200,false); 
End;
table1.FieldDefs.Add('ZB0',ftBoolean,0,false);
table1.FieldDefs.Add('ZB1',ftBoolean,0,false);
 For i:=1 to 80 do
begin
table1.FieldDefs.Add('NGD'+inttostr(i),ftstring,200,false); table1.FieldDefs.Add('TGD'+inttostr(i),ftstring,4,false);
End;
table1.CreateTable  ;
Table1.FieldDefs.Clear;

Но выдается ошибка вот такая:
Project xxx.exe raised exception class EDBEngineError with message ‘Record size is to big for table. Table does not exist.’
Добавлено @ 21:19
В чем загвоздка?
Добавлено @ 21:19
smile

~FoX~

Дата 1.9.2005, 06:50 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

На каком этапе появляется ошибка?
И еще:

Код


table1.FieldDefs.Add('ZB0',ftBoolean,0,false); <- Почему 0?
table1.FieldDefs.Add('ZB1',ftBoolean,0,false); <- Почему 0?

--------------------

…множественность никогда не следует полагать без необходимости…

SergeBS

Дата 1.9.2005, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22

Mde
Посмотри на максимальный размер записи в таблице. Сравни со своими аппетитами.
Добавлю: если в таблице вводится аж 80 полей по 200 символов - база спроектирована неверно. Эти 16000 символов ты весь день вбивать будешь. Т.е. 1 запись в день при заполнении.

Цитата

table1.FieldDefs.Add('Year',ftstring,6,false);

тоже очень мило смотрится. Намек: кроме символьных и булевских есть еще числовые и поля даты.

Так что бегом в библиотеку читать Дейта, Ульмана и т.п. А потом переделывать структуру базы, повесив на видном месте плакатик: "База = справочники+связи".

Mde

Дата 1.9.2005, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

SergeBS ну тип намек на то что читать нужно это конечно полезно, но вот незадача ты не думал что мне так удобнее? а главное мне так нужно? smile

Цитата

table1.FieldDefs.Add('ZB0',ftBoolean,0,false); <- Почему 0?
table1.FieldDefs.Add('ZB1',ftBoolean,0,false); <- Почему 0?

А что не так? в книжках так дается, по моему?

А ошибка выдается после строчки: table1.CreateTable;

SergeBS

Дата 1.9.2005, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22

Mde

Цитата

ну тип намек на то что читать нужно это конечно полезно, но вот незадача ты не думал что мне так удобнее? а главное мне так нужно?

Так и я об этом же. Тебе сейчас так удобнее и так нужно, поскольку ты просто не знаешь, как делать по-другому (читай - правильно делать smile

). Что ж, после того как ты развалишь таблицу на 2 и жестко их свяжешь для преодоления барьера по длине записи, ты что-то понаделаешь, а через 2-3 месяца налетишь уже не на эти меленькие грабельки, а на большую стенку. Сэкономив время на продумывании структуры, потратишь гораздо больше на частичные переделывания, а в конце концов будешь все делать заново. Флаг в руки. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »