Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

FibPlus [D7, IB6.x]


ligor ©   (2003-04-28 21:25:00) 

Записываю в БД из текстовых файлов большой объем
информации где то на 1500-2000 выскакивает ошибка
"Out of memory"


Johnmen   (2003-04-28 23:39:00) [1]

Используй запрос в TpFIBQuery для прямой вставки. И никаких локальных наборов данных !


Zacho   (2003-04-28 23:04:00) [2]

Скорее всего, тебе действительно не хватает памяти. Посмотри, достаточно ли места на винте под своп. Поставь UniDirectional:=true или для записи в БД воспользуйся аналогом TIBSQL (не помню, как он называется в FIBPlus) Кстати, не плохо бы приводить более подробную информацию, по твоему коду ничего вразумительного сказать нельзя, непонятно даже какой именно компонент используешь. Или может вообще у тебя бесконечный цикл где-нибудь получается, вот свободная память и заканчивается.


ligor   (2003-04-28 22:51:00) [3]

После каждой записи
AutoComit
with dm.tbPack do begin
Append;
FieldByName("ENTNMB").AsString:= EntNmb;
FieldByName("PERIOD").AsString:= SList[6];
FieldByName("KODKAT").AsString:= SList[7];
FieldByName("TPFIS4I").AsString:= SList[10];
FieldByName("TPFIS4K").AsString:= SList[11];
FieldByName("PACKNMB").AsString:= SList[1];
FieldByName("FILENAME").AsString:= ExtractFileName(FName);
Post;
Result:= FieldByName("ID").AsInteger;
end;
что типа этого


Johnmen   (2003-04-28 22:43:00) [4]

Как записываешь ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо