Использование SQLCODE для управления циклами

Наш предыдущий пример для выхода из цикла автоматически, при условии что курсор пуст, все строки выбраны, или произошла ошибка:
Look_at_more: = lhe; EXEC SQL OPEN CURSOR Londonsales; while Look_at_more and SQLCODE = O do begin EXEC SQL FETCH London $ales INTO :id_num, :Salesperson, :loc, :comm; writeln (id_num, Salesperson, loc, comm); writeln (‘Do you want to see more data? (Y/N)’); readln (response); If response = ‘N’ then Look_at_more: = Fabe; end; EXEC SQL CLOSE CURSOR Londonsales;

‹ SQL коды
Вверх
Модифицирование курсоров позже ›

Оцените статью
Айтистанция
Добавить комментарий

Adblock
detector