Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.25;
Скачать: CL | DM;

Вниз

Проблема с импортом большого числа записей   Найти похожие ветки 

 
RDA ©   (2003-07-29 17:22) [0]

Необходимо перенести записи из одной таблицы в другую. Принимающая таблица TDBISAM (Urd) отдающая TDbf (ImpUrd). При переносе по одной - все нормально. Пытаюсь перенести сразу все записи виснет без всяких сообщений.
Переношу самым простым способом:

function TfmImpDos.UrdImpAll:Integer;
begin
Result:=0;
with DM do
while not ImpUrd.Eof do
if ImpUrdRRAX.AsString=PrdRAXP.AsString then
begin
Urd.Append;//замена на Insert не проходит.
UrdNOMER.AsInteger:=GetUrdMaxNumber; //не здесь - пробовал отключать
UrdDATA.AsDateTime:=ImpUrdDATER.AsDateTime;
UrdD_DOC.AsDateTime:=ImpUrdDATEDOC.AsDateTime;
UrdF_DOC.AsDateTime:=ImpUrdDATETERM.AsDateTime;
UrdN_DOC.AsString:=ImpUrdNDOC.AsString;
UrdKM.AsString:=ImpUrdSK.AsString;
UrdSUMA.AsFloat:=ImpUrdS.AsFloat;
UrdPSUMA.AsFloat:=ImpUrdSO.AsFloat;
UrdKEKV.AsString:=ImpUrdKEKV.AsString;
UrdEDRO.AsString:=ImpUrdEDRPOUR.AsString;
UrdNAZVO.AsString:=Zamena(DosToWin(ImpUrdPOLUT.AsString)); // не здесь - пробовал отключать
Urd.Post;
ImpUrd.Next;
Result:=Result+1;
end;
end;


 
RDA ©   (2003-07-29 17:24) [1]

Забыл добавить - большого количества это максимум 300 штук.
Если эти триста по одной импортировать то все нормально.


 
Dred2k ©   (2003-07-29 19:40) [2]

У тебя > ImpUrd.Next; только по условию выполняется. На первой же записи, не удовлетворяющей условию, прога войдет в бесконечный цикл while. Вынеси переход за if и будь внимательнее.


 
RDA ©   (2003-07-30 08:05) [3]

>> Dred2k
Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2003.08.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
1-81744
Vulko
2003-08-10 06:31
2003.08.25
Работа с текстом.


9-81523
Dark[Kain]
2003-02-24 14:55
2003.08.25
Стратегия


4-82006
chernoruk
2003-06-24 21:21
2003.08.25
Путь к файлу по заголовку окна?


1-81639
xn0bys
2003-08-12 15:07
2003.08.25
Как сделать кнопку к новой форме (Child) на панели задач.


14-81881
ZeroDivide
2003-08-05 10:25
2003.08.25
Что за белая точка, в правом верхнем углу рядом с домиком?