بتاريخ: 11 أكتوبر 200916 سنة comment_172427 الزملاء الاعزاء،لدي مشكلة بسيطة ، و هي انني عملت procedure لقراءة صور موجودة على aps من خلال معرفة اسمها و الذي هو موجود على ملف على db ، المشكلة التي اواجهها هي انه في حال عدم وجود صورة على ps فانه يتم اخراجي تلقائيا من ال loop و لا يكمل قراة باقي الصور ،و الكود هو : PROCEDURE CNV_READ_IMAGE_PROC(P_BRCH_CODE IN NUMBER, P_PROGRAM_ID IN VARCHAR2) IS CURSOR C1 IS SELECT T1.ACCNO || LPAD(T1.AUTH_NO, 2, '0') ACC, BRCHCODE FROM SIGICBS T1; F_LOB BFILE; B_LOB BLOB; V_IMAGE VARCHAR2(25); BEGIN BEGIN DELETE CNV_SIG_IMG WHERE SIG_BRCH = P_BRCH_CODE; -- DELETE BBSD_CNV_EXCEPTIONS_D -- WHERE FILE_NAME LIKE 'CNVSIGIMG'; END; FOR I IN C1 LOOP V_IMAGE := I.ACC; INSERT INTO CNV_SIG_IMG VALUES (I.ACC, EMPTY_BLOB(), I.BRCHCODE) RETURN SIG_IMAGE INTO B_LOB; F_LOB := BFILENAME('CNV_READ_IMAGE_DIR', I.ACC || '.jpg'); DBMS_LOB.FILEOPEN(F_LOB, DBMS_LOB.FILE_READONLY); DBMS_LOB.LOADFROMFILE(B_LOB, F_LOB, DBMS_LOB.GETLENGTH(F_LOB)); DBMS_LOB.FILECLOSE(F_LOB); COMMIT; END LOOP; EXCEPTION WHEN OTHERS THEN BEGIN INSERT INTO BBSD_CNV_EXCEPTIONS_D (BRCH_CODE, USER_ID, TIME_STAMP, ERROR_DESC, PROGRAM_ID, FILE_NAME) VALUES (P_BRCH_CODE, USER, SYSDATE, 'COULDN''T FIND THE IMAGE FOR ' || V_IMAGE, P_PROGRAM_ID, 'CNVSIGIMG'); END; commit; تقديم بلاغ
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.