Problem with a stored procedure to search in a table

Question

h5.
Hi,
h5.
As many people on the forum, I'm new on PL/SQL programming.
h5.
I'm trying to program a stored procedure that allow to search on my table fields with different parameters.
h5.
All this parameters doesn't need to be set, at least one.
h5.
I'm looking for the solution from 2 weeks ago.
h5.
I have looked everywhere
h5.
Could someone help me, please??
h5.
Here is my code:
* HERE WE CREATE PACKAGE FOR THE CURSOR
create or replace
PACKAGE HOTEL_DEST_PKG
IS
/* Define the REF CURSOR type. */
TYPE HOTEL_DEST_TYPE IS REF CURSOR;
END HOTEL_DEST_PKG;
* HERE WE CREATE OUR STORE PROCEDURE TO SEARCH
create or replace
PROCEDURE Search_Hotel (
IdDocument IN number,
MyFilter IN VARCHAR2,
IdCountry IN number,
DepartureDateFirst IN DATE,
DepartureDateSecond IN DATE,
HD_Cursor OUT HOTEL_DEST_PKG.HOTEL_DEST_TYPE)
IS
SQL_REQ VARCHAR2(5000);
BEGIN
/* all columns were entered */
IF ((IdDocument > 0) OR
((MyFilter IS NOT NULL) AND (length(MyFilter) > 0)) OR
(IdCountry > 0) OR
(DepartureDateFirst IS NOT NULL) OR
(DepartureDateSecond IS NOT NULL))
THEN
SQL_REQ := 'SELECT HOTEL_DESTINATION.*
FROM HOTEL_DESTINATION
WHERE 1=1';
/* Search on the hotel id*/
IF IdDocument > 0 THEN
SQL_REQ := SQL_REQ || ' AND HOTEL_DESTINATION.HD_ID = :IdDocument';
ELSE
SQL_REQ := SQL_REQ || ' AND :IdDocument IS NULL';
END IF;
     /*Search on different indexed fields*/
IF MyFilter IS NOT NULL AND LENGTH(MyFilter)>0 THEN
SQL_REQ := SQL_REQ || ' AND CONTAINS(HOTEL_DESTINATION.HD_FILTER, :MyFilter)';
ELSE
SQL_REQ := SQL_REQ || ' AND :MyFilter IS NULL';
END IF;
/* Search on the hotel country id*/
IF IdCountry > 0 THEN
SQL_REQ := SQL_REQ || ' AND HOTEL_DESTINATION.HD_CN_ID = :IdCountry';
ELSE
SQL_REQ := SQL_REQ || ' AND :IdCountry IS NULL';
END IF;
/* Search on the dates*/
IF DepartureDateFirst IS NOT NULL THEN
SQL_REQ := SQL_REQ || ' AND HOTEL_DESTINATION.HD_DEPARTURE_DATE >= :DepartureDateFirst';
ELSE
SQL_REQ := SQL_REQ || ' AND :DepartureDateFirst IS NULL' ;
END IF;
IF DepartureDateSecond IS NOT NULL THEN
SQL_REQ := SQL_REQ || ' AND HOTEL_DESTINATION.HD_DEPARTURE_DATE <= :DepartureDateSecond';
ELSE
SQL_REQ := SQL_REQ || ' AND :DepartureDateSecond IS NULL';
END IF;
OPEN HD_CURSOR FOR SQL_REQ USING IdDocument,
MyFilter,
IdCountry,
DepartureDateFirst,
DepartureDateSecond;
END IF;
END;
* HERE WE CALL AND EXECUTE OUR STORE PROCEDURE TO SEARCH
* ON WORD
set serveroutput on
DECLARE
     IDDOCUMENT NUMBER;
     MYFILTER VARCHAR2(200);
     IDCOUNTRY NUMBER;
     DEPARTUREDATEFIRST IN DATE;
     DEPARTUREDATESECOND IN DATE;
     HD_CURSOR OUT HOTEL_DEST_PKG.HOTEL_DEST_TYPE);
BEGIN
IDDOCUMENT := 0;
MYFILTER := 'test';
IDCOUNTRY := 0;
DEPARTUREDATEFIRST := NULL;
DEPARTUREDATESECOND := NULL;
SEARCH_HOTEL(
IDDOCUMENT => IDDOCUMENT,
MYFILTER => MYFILTER,
IDCOUNTRY => IDCOUNTRY,
DEPARTUREDATEFIRST => DEPARTUREDATEFIRST,
DEPARTUREDATESECOND => DEPARTUREDATESECOND,
HD_Cursor => HD_Cursor
-- Modify the code to output the variable
--DBMS_OUTPUT.PUT_LINE('HD_Cursor = ' || HD_Cursor);
END;

Answer 1

You need to grant right on the table to the owner of the stored procedure directly (not via Role).
When there are only rights via role everything is fine in sql, but it will not work in stored procedures, functions or packages.
So as Table-Owner do:
grant select on <table> to <procedure, package or function-owner>;Edited by: hm on 22.10.2010 08:49