While NOT IBQuery.Eof не работает - БД в Delphi

dualtrey · 02.03.2015, 13:02

Здравствуйте, помогите, пожалуйста, разобраться с циклом. Мне необходимо скопировать все записи таблицы и вставить их в нее же с изменением значений некоторых полей. Использую While NOT IBQuery.Eof
но вставляется в итоге только одна запись - первая. Что не так в коде? Eof не работает? Уже голову сломал.
Код:
Eof.jpg

lomastr_ · 02.03.2015, 13:06

Зачем тут весь этот с позволения сказать код?

Аватар · 02.03.2015, 13:17

Цитата:

Что не так в коде?

Append - запись в конец набора
Next - сразу Eof

Цитата:

Eof не работает?

Работает

dualtrey · 02.03.2015, 15:37

Цитата:

Сообщение от lomastr_

Зачем тут весь этот с позволения сказать код?

Если это вопрос, то я написал зачем. Если это насмешка, покажи как можно сделать лучше.

dualtrey · 02.03.2015, 15:39

Цитата:

Сообщение от Аватар

Append - запись в конец набора
Next - сразу Eof
Работает

А на что заменить Append? Insert, например, выдает тот же результат.

Fleg · 02.03.2015, 15:45

могу ошибаться, но по моему eof работает правильно. смотрите Вы добавили новую запись (Append) сохранили изменения (Post) находитесь в на последней записи запроса пробуете перейти на следующую запись (которой нет), поэтому выходите из цикла. сделайте все тоже самое, только записи добавляйте не Query1, а другим запросом, например, Query2.

lomastr_ · 02.03.2015, 16:29

Цитата:

как можно сделать лучше

например 1 запросом, раз и готово

dualtrey · 02.03.2015, 17:21

Цитата:

Сообщение от lomastr_

например 1 запросом, раз и готово

Сестра таланта а код?

dualtrey · 02.03.2015, 17:23

Цитата:

Сообщение от Fleg

могу ошибаться, но по моему eof работает правильно. смотрите Вы добавили новую запись (Append) сохранили изменения (Post) находитесь в на последней записи запроса пробуете перейти на следующую запись (которой нет), поэтому выходите из цикла. сделайте все тоже самое, только записи добавляйте не Query1, а другим запросом, например, Query2.

Пробовал insert тоже самое, с двумя квериками получились пустые записи, но количество совпадает, поколдую еще. Спасибо Вам за совет.

Stilet · 02.03.2015, 18:06

Цитата:

вставить их в нее же с изменением значений некоторых полей.

Оффтоп: Неудачная идея, особенно учитывая наличие аналитических функций современных СУБД.

02.03.2015, 13:02	#1
dualtrey Пользователь Регистрация: 11.01.2015 Сообщений: 20	While NOT IBQuery.Eof не работает Здравствуйте, помогите, пожалуйста, разобраться с циклом. Мне необходимо скопировать все записи таблицы и вставить их в нее же с изменением значений некоторых полей. Использую While NOT IBQuery.Eof но вставляется в итоге только одна запись - первая. Что не так в коде? Eof не работает? Уже голову сломал. Код: Eof.jpg

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Чтение из БД (IBQuery)	Harikolo	БД в Delphi	4	30.10.2010 15:15
Подскажите как работает eof()[Console C++]	sawer5	Помощь студентам	3	01.01.2010 12:11
Filter в IBQuery	Yurk@	БД в Delphi	3	23.01.2009 23:26

02.03.2015, 13:06	#2
lomastr_ Форумчанин Регистрация: 16.01.2015 Сообщений: 672	Зачем тут весь этот с позволения сказать код?

02.03.2015, 15:45	#6
Fleg Регистрация: 24.05.2011 Сообщений: 3	могу ошибаться, но по моему eof работает правильно. смотрите Вы добавили новую запись (Append) сохранили изменения (Post) находитесь в на последней записи запроса пробуете перейти на следующую запись (которой нет), поэтому выходите из цикла. сделайте все тоже самое, только записи добавляйте не Query1, а другим запросом, например, Query2.