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

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

Проблема с памятью [D7, FireBird 1.5.4, DB2]


pavel_guzhanov ©   (2009-01-20 09:15:00) 

Задача следующая - сверить данные в двух базах. Одна база DB2, вторая - FireBird 1.5.4. К DB2 подключаюсь через ADO, к FireBird - IBX
Получаю значение ключевого поля запросом, и по этому значению в цикле получаю данные из баз. Сверяю их по полям, обрабатываю результаты сверки.

После обработки более 2000 записей (каждый раз разное количество), получаю исключение Out of memory при открытии Query FireBird.

Выглядит это примерно вот так:

 IBQ.Close;
 IBQ.SQL.Clear;
 IBQ.SQL.Add('select firstname, middlename, lastname, birth_date, sex, inn from naturals where selfnumber=:n');
 ADOQSn.Close;
 ADOQSn.SQL.Clear;
 ADOQSn.SQL.Add('select id, selfnumber from "FORM"."PERSON" where selfnumber like '''+'10НПО%'+''' order by selfnumber');
 ADOQPegas.Close;
 ADOQPegas.SQL.Clear;
 ADOQPegas.SQL.Add('select ID_PERSON, FIRSTNAME, MIDDLENAME, LASTNAME,');
 ADOQPegas.SQL.Add('BIRTH_DATE, SEX, INN');
 ADOQPegas.SQL.Add('from "FORM"."NATURAL" where id_person =:n');
   ADOQSn.Open;
   while not ADOQSn.Eof do
   begin
     ADOQPegas.Close;
     IBQ.Close;
     ADOQPegas.Parameters[0].Value:= ADOQSn.FieldByName('id').AsInteger;
     ADOQPegas.Open;
     IBQ.Params[0].Value:= ADOQSn.FieldByName('selfnumber').AsString;
     IBQ.Open; // здесь вылетает ошибка после более чем 2000 итераций
// далее сравнение данных по полям


Где может возникать проблема с памятью? И как это победить?


pavel_guzhanov   (2009-01-22 11:20:00) [1]


> UniDirectional=True

Спасибо, это помогло.


Правильный$Вася   (2009-01-20 15:28:00) [2]

может, открытие всего 2 наборов данных было бы эффективнее, чем открывать в цикле столько раз, сколько записей?


Виталий Панасенко(дом)   (2009-01-20 12:30:00) [3]

UniDirectional=True


Медвежонок Пятачок   (2009-01-20 10:00:00) [4]

убрать этот замысловатый алгоритм и сделать простой цикл
на открытие/закрытие простого запроса

потом смотреть у какого именно движка появляется эффект. если он вообще появляется


Наверх

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