Спасите, помогите !!!!!!

← →
Senator © (2002-12-18 12:22) [0]

Народ, 2-ой день сижу, не могу понять в чем дело!!!!
Есть Paradox-ая таблица на удаленном компе и надо перегонять данные на FireBird на другой тачке. Первый раз (после запуска все работает, правда очень тормозит), а потом - нехочет обновлять данные, выскакивает на проверке not EOF-типа уже конец, и новых данных нету, А ОНИ ЕСТЬ !!!! В чем дело ??????????

with EventTable do
begin
if state=dsBrowse
then Refresh;
IBTransaction1.CommitRetaining;
try
if Locate("idEvent",CurrentEventID,[])
then next
else first;
while not EOF do
begin
//--идет вставка данных из таблицы Paradox в IBQuery построчно
//-----
CurrentEventID:=FieldByName("idEvent").AsInteger;
next;
end; //while

и все это в Timer выполняеться .....

← →
Senator © (2002-12-18 12:48) [1]

Что, никто помочь не может ??????????

Спасите, помогите !!!!!! Найти похожие ветки