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

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

Хранимая процедура [D7]


Erden ©   (2003-11-03 12:18:00) 

Уважаемые знатоки!
Имеется процедура на Interbase, возвращающая набор записей.
Как она будет выглядеть на ORACLE. Спасибо.

CREATE PROCEDURE GET_ORGANIZATIONS (
FINDNAME VARCHAR(46)
) RETURNS (
CODE CHAR(3),
NAME VARCHAR(46)
) AS
BEGIN FOR
SELECT CODE,NAME FROM ORGANIZATIONS
WHERE UPPER(NAME) LIKE :FINDNAME
ORDER BY NAME
INTO :CODE,:NAME DO
SUSPEND;
END


Vlad   (2003-11-03 16:19:00) [1]

В оракле это будет функция.
FUNCTION GET_ORGANIZATIONS(FINDNAME IN VARCHAR2) RETURN TRefCursor IS
fResult TRefCursor;
BEGIN
OPEN fResult FOR
SELECT CODE,NAME FROM ORGANIZATIONS
WHERE UPPER(NAME) LIKE FINDNAME
ORDER BY NAME;
RETURN fResult;
END;

P.S.
TYPE TRefCursor is Ref Cursor;


Наверх

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