Мне не совсем понятно, дл чего нужно получить данные именно из процедуры?
Не надо пытаться применять методы, которые применялись в MSSQL - в Oracle. В Oracle, в процедуре нельзя использовать стандартный SQL запрос непосредственно в теле процедуры, как это можно в MSSQL.
Тот вариант SQL запроса, который можно использовать
используется только с фразой INTO:
SELECT <list field> INTO <list variable> FROM <table>, которая подразумевает помещение данных в переменную(нные) памяти, в связи с чем, такой запрос не должен возвращать более 1-ой строки, иначе будет исключение.
Обычный же запрос может быть произведён только через курсор: сначала он должен быть описан:CURSOR c_ind IS SELECT ....., затем считан разными способами.
Что-бы вернуть курсор из процедуры, используется тип REF_CURSOR(сам не использую, подробнее сказать не могу).
Есть еще вариант через создание обьекта(рабочий пример, сам писал - сам проверял):
CREATE TYPE pages_object AS OBJECT
(
page_serial NUMBER(16),
name VARCHAR2(15),
page_file VARCHAR2(255),
sequritylevel NUMBER(3),
uses NUMBER(16)
);
/
CREATE TYPE pages_table AS TABLE OF pages_object;
/
CREATE OR REPLACE FUNCTION GetPagesCursor RETURN pages_table IS
CURSOR c_pages IS
SELECT page_serial, UPPER(name), pagefile, securitylevel, uses FROM pages;
v_pages pages%ROWTYPE;
t_pages pages_table := pages_table();
n INTEGER:=0;
BEGIN
FOR v_pages IN c_pages LOOP
n:=n+1;
t_pages.EXTEND;
t_pages(n):=v_pages;
END LOOP;
RETURN t_pages;
END GetPagesCursor;
/
-- Использование
-- Здесь запрос данные получает непосредственно из функции:
SELECT
page_serial,
name
FROM
TABLE( CAST(GetPagesCursor() AS pages_table));
А вообще почему не хочешь просто получать данные из запроса, без всяких процедур? С использованием TQuery и тому подобных?
