Модераторы: LSD
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как правильно выйти из цикла в курсоре? 
V
    Опции темы
Лапоть
Дата 14.3.2014, 08:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 185
Регистрация: 3.4.2009

Репутация: нет
Всего: 2



Здравствуйте все!
Есть функция... с нюансом:
Код
    create or replace
    function LMM_ALTNAMES(REG_ID in int) return varchar2 is
      cursor cur is select GN.GEONAME.GEONAME
                    from GN.GEONAME  
                    where REG_ID = GN.GEONAME.REG_N and GN.GEONAME.NORM = 0
                    order by GN.GEONAME.GEONAME;
      anames varchar2(1000);
      aname  varchar2(100);
    begin
      anames := NULL;
      open cur;
      loop
        fetch cur into aname;
        if aname is NULL    /* без этого при пустом датасете цикл срабатывает один раз */      
          then exit;
        anames := concat(anames, aname);
        anames := concat(anames, '\n');  /* ??? для Rave Reports DataMemo, ещё не проверял... */
        exit when cur%NOTFOUND;
      end loop;
      close cur;
      return anames;
    end LMM_ALTNAMES;

Если датасет непустой, то последняя запись дублируется:
Код
Connecting to the database homedb_gn.
v_Return = Адыгейск\nТеучежск\nТеучежск\n << два раза!!!
Process exited.
Disconnecting from the database homedb_gn.

Как корректно выйти из цикла?



Это сообщение отредактировал(а) Лапоть - 14.3.2014, 08:41
PM MAIL   Вверх
Лапоть
Дата 14.3.2014, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 185
Регистрация: 3.4.2009

Репутация: нет
Всего: 2



Вышел smile 
Код
    create or replace
    function    LMM_ALTNAMES(REG_ID in int) return varchar2 is
      cursor cur is select GN.GEONAME.GEONAME
                    from GN.GEONAME  
                    where REG_ID = GN.GEONAME.REG_N and GN.GEONAME.NORM = 0
                    order by GN.GEONAME.GEONAME;
      anames varchar2(1000);
      aname  varchar2(100);
    begin
      anames := NULL;
      open cur;
      loop
        fetch cur into aname;
        exit when cur%NOTFOUND;  
        anames := concat(anames, aname);
        anames := concat(anames, '\n');      
      end loop;      
      close cur;
      return rtrim(anames);
    end LMM_ALTNAMES;

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Oracle"
Zloxa
LSD

Данный раздел предназначен для обсуждения проблем с Oracle Database, другие продукты Oracle здесь не обсуждаются. Просьба при создании темы, придерживаться следующих правил:

  • при создании темы давайте ей осмысленное название, описывающее суть проблемы
  • указывайте используемую версию базы, способ соединения и язык программирования
  • при ошибках обязательно приводите код ошибки и сообщение сервера
  • приводите код в котором возникла ошибка, по возможности дайте тестовый пример демонстрирующий ошибку
  • при вставке кода используйте соответсвующие теги: [code=sql] [/code] для подсветки SQL и PL/SQL кода, [code=java] [/code] - для Java, и т.д.

  • документация по Oracle: 9i, 10g, 11g
  • книги по Oracle можно поискать здесь
  • действия модераторов можно обсудить здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Zloxa, LSD.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Oracle | Следующая тема »


 




[ Время генерации скрипта: 0.0993 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.