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

Вниз

Добавление данных в DB   Найти похожие ветки 

 
Kirill_21   (2005-06-08 16:33) [0]

мастера, скажите, плз, что не так, почему виснет прога:
With Table2 do begin
First;
while not eof do begin
n:=Table2.FieldByName("NNN").AsString;
IF Table1.Lookup("NNN",n,"Fio")=NULL Then begin
Table1.Append;
Table1.FieldByName("NNN").AsString:=Table2.FieldByName("Npd").AsString;
Table1.FieldByName("Fio").AsString:=Table2.FieldByName("Fm").AsString+" "+
 Table2.FieldByName("Im").AsString+" "+Table2.FieldByName("Ot").AsString;
Table1.Post;
Next;
end;
end;
end;


 
Sergey13 ©   (2005-06-08 16:38) [1]

Из цикла выйти не может.


 
Anatoly Podgoretsky ©   (2005-06-08 16:40) [2]

Цикл бесконечный


 
Johnmen ©   (2005-06-08 16:44) [3]

Когда не знаком с форматированием исх. текста, то жди и дальше и больше...:)))
А With зачем писАл ?


 
Kirill_21   (2005-06-08 17:00) [4]

а без with не работает while not eof...
а через query то же самое можно обеспечить?


 
Johnmen ©   (2005-06-08 17:25) [5]

>а без with не работает while not eof...

А что такое eof ?


 
Kirill_21   (2005-06-08 17:30) [6]

"пока не конец файла"


 
Johnmen ©   (2005-06-08 17:32) [7]

>"пока не конец файла"

Какого файла ?


 
Kirill_21   (2005-06-08 17:35) [8]

Table2


 
Johnmen ©   (2005-06-08 17:37) [9]

Прикольно :)))


 
stakan ©   (2005-06-08 17:49) [10]

Next вынеси из условия IF


 
Kirill_21   (2005-06-08 18:00) [11]

а через SQL как это можно сделать?


 
Johnmen ©   (2005-06-08 18:08) [12]

>а через SQL как это можно сделать?

А что такое SQL ? И что это "это" ?


 
evvcom ©   (2005-06-09 09:00) [13]

Используй без with: Table2.Eof и т.д.
А еще Table2.Next у тебя сидит в блоке if ... then begin ... end; отсюда и "невыход из цикла"


 
Anatoly Podgoretsky ©   (2005-06-09 09:10) [14]

Kirill_21   (08.06.05 18:00) [11]
"это" не определено.



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

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

Наверх




Память: 0.49 MB
Время: 0.056 c
14-1118846605
Vulko
2005-06-15 18:43
2005.07.18
Как вам сайт?


3-1118132041
Тучудище
2005-06-07 12:14
2005.07.18
Обновление lookup кэша при автоматическом обновлении НД


1-1119952704
SergZ
2005-06-28 13:58
2005.07.18
DevExpress


14-1119365736
Зеленая Майка
2005-06-21 18:55
2005.07.18
Предлагаю отметить выход из клинической смерти любимого форума


14-1119768113
Viktop
2005-06-26 10:41
2005.07.18
Халявные FTP