Добавление данных в 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 как это можно сделать?

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

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

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

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

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