Главная страница
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.017 c
1-81665
GIL
2003-08-12 02:52
2003.08.25
реальные размеры изображения


1-81687
h@1f-e1f
2003-08-11 11:50
2003.08.25
Загрузка HTML кода


14-81879
_Alex_
2003-08-08 14:22
2003.08.25
пинпонг в стиле матрицы


14-81895
Vlad Oshin
2003-08-07 12:37
2003.08.25
Не понимаю Теорию Большого взрыва.


1-81787
ivc_andr
2003-08-14 10:20
2003.08.25
Программное выключение компьютера