VB 6.0 - Save/Retrieve Images From Access Database


بسم الله الرحمن الرحيم
طريقة حفظ صورة فى قاعدة يانات اكسس و استرجاعهـــــــــــــا مرة أخرى عن طريق vb6

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

  • الاكواد بالصور و ستكون مفهومة ان شاء الله .

الكود الاول General Declarations

vb6 save image to database


14. الكود الثانى () Form_Load


vb6 save image to database


15. الكود الثالث () Command1_Click


vb6 save image to database

vb6 save image to database


16. الكود الرابع () Command2_Click


vb6 save image to database


17. الكود الخامس () Command3_Click

vb6 save image to database

اضافة للموضوع :

هذه الطريقة السابقة سيصعب اضافة ازرار (التالى - السابق - الاول - الاخير - تعديل) عليها فهذه الطريقة تناسب عملية الحفظ و الاسترجاع لصورة واحده أو مجموعة صور و لكن بشروط معينة لن أتحدث عنها , و لكن الطريقة العملية للتعامل مع الصور من و الى قاعدة البيانات الاكسس بالذات هى عن طريق استخدام وسيط و هو الهارد ديسك حيث يتم حفظ الصورة مع الزر (حفظ) داخل الفولدر باسم معين يتم تخزينة بقاعدة البيانات عن طريق الدالة SavePicture و عند استرجاع الصورة من قاعدة البيانات الى الفورم نستخدم الدالة LoadPicture و يكون اسم الصورة التى سيتم تحميلها على الفورم هو نفسه اسم الصورة المخزن بقاعدة البيانات .

و سأقوم برفع مثال قريبا ان شاء الله

ايضا هناك بعض الامثلة الجاهزة المفيدة هنــــــــــــا فقط سجل بمنتهى السهوله

    VB6 Popular Posts

    Free download Visual Basic 6 Documentation MSDN

    VB 0.6 TreeView Control lesson Part3

    VB 0.6 TreeView Control Lesson Part2