EMP image not being removed

Question

DECLARE
jpeg_image_dir VARCHAR2(280) := 'C:\photos';
photo_filename VARCHAR2(280);
BEGIN
*:System.Message_Level := '25';*
photo_filename := jpeg_image_dir||'\'||LOWER(:key_block.key_item)||'.jpg';
READ_IMAGE_FILE(photo_filename, 'JPG', 'key_block.image');
IF NOT FORM_SUCCESS THEN
MESSAGE('This employee does not have a photo on file.');
END IF;
*:SYSTEM.MESSAGE_LEVEL := '0';*
END;
I have used the abv code to get image of an emp corresponding to the empno...but i got one small problem....suppose i enter 3021 i get the image with his personal details and now when i enter 3032 i get his personal details but the image doesnot changes(the image displayed is of 3031 instead of showing some thing blank) as he does have his image stored in the direcory
Edited by: Suhail Faraaz on Dec 14, 2009 10:17 PM

Answer 1

I have solved just had to make a small change and i got it so late in my head
DECLARE
jpeg_image_dir VARCHAR2(280) := 'C:\photos';
jpeg_image_dir2 VARCHAR2(280) := 'C:\photos\no';
photo_filename VARCHAR2(280);
BEGIN
:System.Message_Level := '25';
photo_filename := jpeg_image_dir||'\'||LOWER(:empa.empno)||'.jpg';
READ_IMAGE_FILE(photo_filename, 'JPG', 'empa.image');
IF NOT FORM_SUCCESS THEN
read_image_file('C:\photos\no\noimage.jpg','jpg','empa.image');
END IF;
END;