السلام عليكم ورحمة الله وبركاته




هل استطيع ان اعمل attachment لملف ما



في الفورم 10g بحيث يكون كل ريكورد له اتاتش وتتخزن في قاعدة البيانات



ارجوووووووووو الافادة الضرورية

تابع الموضوع التالي للمتميز عبد اللطيف

http://www.araboug.org/ib/index.php?showtopic=2427&hl=

يا اخي هذه اذا اردت ان ترسل ايميل



انا اريدها تخزن في قاعدة البيانات واريد ها حسب كل ريكيورد


بمعنى كل ما اضع ريكورد جديد استطيع ان اضع له attach


هل يمكن عمل ذلك


ارجووووووووووو الرد

تم تعديل 4 فبراير 201016 سنة بواسطة the past

هذة الطريقة استخدمها لنفس طلبك و لاكنى لا احفظ الملف فى قاعدة البيانات لعدم الاخلال ب جودة اداء قاعدة البيانات و المحافظة على حجم الداتابيز من التضخم و بدلا من ذلك احفظ اسم الملف فى الجدول و الملف نفسة على السى الخاص بال APPLICATION SERVER بعدما اغيرة الى اى تسلسل من خلال SEQUENCE لعدم تكرار اسم الملف

Declare
 vDoc     VARCHAR2(100);
  vResult  BOOLEAN ;
  vCvNUM   NUMBER;
  vExt  VARCHAR2(3);
  vSeq   NUMBER;

Begin vDoc := WEBUTIL_FILE.FILE_OPEN_DIALOG('','','(Word Files)|*.doc|(Excel Files)|*.xls|(Jpg Files)|*.jpg',
																			'حدد الملف الخاص بالمرفقات');
	vExt := SUBSTR(vDoc,-3);
  SELECT BOOK_ATT_SEQ.NEXTVAL INTO vSeq FROM DUAL;
	vResult := webutil_file_transfer.client_to_as( vDoc,'C:\BOOKS\'||vSeq||'.'||vExt);
	:BOOK_ATTACHMENTS.ATTACH_FILE := vSeq||'.'||vExt;
			IF vExt IS NULL THEN 
		MESSAGE('لم يتم ارفاق الملف .. برجاء اعادة ارفاقة');
		MESSAGE('لم يتم ارفاق الملف .. برجاء اعادة ارفاقة');
	ELSE	
		SAVE;
		IF FORM_SUCCESS THEN
			MESSAGE('تم إرفاق الملف بنجاح');
			MESSAGE('تم إرفاق الملف بنجاح');
		END IF;
	END IF;
	
	
End ;

تم تعديل 8 فبراير 201016 سنة بواسطة egyhamada