بسم الله الرحمن الرحيم
طريقة حفظ صورة فى قاعدة يانات اكسس و استرجاعهـــــــــــــا مرة أخرى عن طريف الفيجوال بيزك 6
How to Save/Retrieve Pictures To/From Access DB Using VB 0.6
أولا :
شكل الفورم النهائى
قم بتصميم مشروع عبارة عن Form1 و ضع عليها الادوات (Command1 و Image1 و Command2و Command3)
وظيفة الـــ Command1 هى حفظ الصورة و بالتالى تكون وظيفة الـــ Command2 هى استرجاع الصورة من قاعدة البيانات و الـــ Command3 لاختيار صورة من الكمبيوتر لعرضها و الــــ Image1 لعرض الصورة المراد حفظها و التى سيتم استرجاعها.
قم بحفظ المشروع
انشاء قاعدة البيانات باسم Mydb.mdb و وضعها فى فولدر المشروع (كما هو دائما متبع)
انشاء جدول باسم MyTbl عبارة عن عدد (2) حقل الاول باسم Img نوعه OLE و الثانى باسم ImgSz و نوعه Number Integer
قم بحفظ قاعدة البيانات و الجدول
من المشروع نستدعى مكتبة ADO النسخة 2.8 او اى نسخه
المنطقية : ما سنقوم بعمله هو كالاتى ( عمل متغيرين الاول من نوع Long و اسمة ImgLen ووظيفتة هى تخزين قيمة حجم الصورة المراد تخزينها فى قاعدة البيانات , و المتغير الثانى من نوع ()Byte وهو مصفوفة ايضا و اسمة DataByt ووظيفتة هى تخزين قيمة الصورة على شكل Binary ) و بالتالى عند الحفظ فى قاعدة البيانات ستتحول الصورة من على الفورم من صيغة صورة الى ملف Binary يتم تخزينه بقاعدة البيانات بدلالة المتغيرين السابقين و عند استدعاء الصورة سيتم استدعاء القيمتين و لكن ليس الى الفورم مباشرة و لكن عن طريق ملف صورة وسيط بصيغة صورة ليقرأ المتغيرين ثم نحملة على الفورم .
للأسف هذه هى الطريقة السهلة جدا.
سنقوم بوضع اداة DialogBox على الفورم و نسميها Cdl و هى الاداه التى سنقوم عن طريقها باختيار الصورة.
حمل صورة من هنا مثلا و احفظها فى فولدر المشروع مع قاعدة البيانات و ليكن اسم الصورة MyPic و امتدادها JPG
الاكواد بالصور و ستكون مفهومة ان شاء الله .
و باقى الموضوع بصور الاكواد هنا