السلام عليكم

عندي مشكلة بسيطة عملت تريجر للبحث وهو يعمل بشكل صحيح

ولكن جزء الEXCEPTION لا يعمل فلا يظهر ال ALERT

اي انني اريد ان اظهر ALERT عندما لا توجد هناك نتائج للبحث

هذا هو الكود

DECLARE ALERT_CHOICE NUMBER;	
M_DATE varchar(50):=:FIND_MEETING_DATE;
M_ROOM varchar(50):=:ROOM_ID;

CURSOR GETMEETING IS
SELECT MEETING_ID,ROOM_ROOM_ID,MEETING_DATE,MEETING_START_TIME,MEETING_FINISH_TIME
FROM DNRD_MEETINGS
WHERE MEETING_DATE like '%'||M_DATE||'%' AND ROOM_ROOM_ID like '%'||M_ROOM||'%';


BEGIN
	GO_BLOCK('DNRD_MEETINGS');
	CLEAR_BLOCK;
	IF (:SEARCH.FIND_MEETING_DATE IS NULL OR :SEARCH.ROOM_ID IS NULL) THEN
			SET_ALERT_PROPERTY('ERROR_ALERT',ALERT_MESSAGE_TEXT,'fields can not be empty!!!');
			SET_ALERT_PROPERTY('ERROR_ALERT',TITLE,'ERROR');
			ALERT_CHOICE := SHOW_ALERT('ERROR_ALERT');
			GO_ITEM('FIND_MEETING_DATE');
	ELSE		
	
		OPEN GETMEETING;
		LOOP
		FETCH GETMEETING INTO :MEETING_ID,:ROOM_ROOM_ID,:MEETING_DATE,:MEETING_START_TIME,:MEETING_FINISH_TIME;
		GO_BLOCK('DNRD_MEETINGS');
			NEXT_RECORD;	
			
		EXIT WHEN GETMEETING%NOTFOUND;
		
		END LOOP;
		
		END IF;
	
		CLOSE GETMEETING;

			:SEARCH.FIND_MEETING_DATE := NULL;
				:SEARCH.ROOM_ID := NULL;
			GO_ITEM('FIND_MEETING_DATE');
			
	EXCEPTION
		WHEN NO_DATA_FOUND THEN
		SET_ALERT_PROPERTY('ERROR_ALERT',ALERT_MESSAGE_TEXT,'fields can not be empty!!!');
			SET_ALERT_PROPERTY('ERROR_ALERT',TITLE,'ERROR');
			ALERT_CHOICE := SHOW_ALERT('ERROR_ALERT');
			:SEARCH.FIND_MEETING_DATE := NULL;
				:SEARCH.ROOM_ID := NULL;
			GO_ITEM('FIND_MEETING_DATE');
			
		
END;

بانتظار ردودكم
LUNE

dear lune
the exception fires when u issue a select statment and returnes no record
but cursor need another handle
this is an exampl
DECLARE
CURSOR C1 IS
SELECT ’anything’ FROM S_ORD
WHERE customer_id = :S_CUSTOMER.id;
BEGIN
OPEN C1;
FETCH C1 INTO :GLOBAL.dummy;
IF C1%FOUND THEN
CLOSE C1;
MESSAGE(’There are orders for this customer!’);
RAISE form_trigger_failure;
ELSE
CLOSE C1;
END IF;
END

Essamshabeeb

Thanks for help
I solve it by doing this

fetch getmeeting ...;

if getmeeting%rowcount = 0 then
  put_the_alert_here;
end if;

exit when getmeeting%notfound;

Anyway it is good to know diffrent way of coding I will try yours as well

Thanks again

lune

at your service