Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с курсором [D7]


tytus ©   (2006-09-06 17:17:00) 

Доброго дня мастера. Пишу так:
SQL> declare
 2  cursor mcur is
 3    select * from admin.maintable;
 4  currec mcur%ROWTYPE;
 5  Anum varchar2(50);
 6  begin
 7    for currec in mcur
 8      loop
 9        if mcur%NOTFOUND then exit;
10        end if;
11        fetch mcur into currec;
12        ANum:=currec.mnumb;
13        dbms_output.put_line(ANum);
14      end loop;
15    close mcur;
16  end;
17  /
ругается:
ORA-01001:
ORA-06512:...line 15.
Что сдесь неправильно?


Val   (2006-09-06 17:30:00) [1]

declare
2  cursor mcur is
3    select * from admin.maintable;
4  --currec mcur%ROWTYPE;
5  Anum varchar2(50);
6  begin
7    for currec in mcur
8      loop
9      --  if mcur%NOTFOUND then exit;
10     --   end if;
11       -- fetch mcur into currec;
12        ANum:=currec.mnumb;
13        dbms_output.put_line(ANum);
14      end loop;
15    --close mcur;
16  end;
17  /


Наверх

Титульная страница Поиск, карта сайта Написать письмо