بسم الله الرحمن الرحيم

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

كيفية استخدام الاداة ....

الخطوة الاولى ...قم بتحميل الملف المرفق وبعد فك الضغط ستجد الملف EgyImageToAccess.ocx قم بادراج هذا الملف فى مجلد النظام system32 ثم قم بتسجيل الملف فى مسجل النظام عن طريق Run ثم أكتب الامر التالى :

الكود:

RegSvr32 EgyImageToAccess.ocx

كما فى الشكل التالى ...ثم النقر فى زر الامر ok تظهر لك رسالة تخبرك بانه تم تسجيل الاداة



الخطوة الثانية ...قم بانشاء مشروع قياسى جديد ثم قم بادراج الاداة للمشروع وذلك بتحديد شريط الادوات ثم كليك شمال ثم أختيار الامر Components ستظر لك مربع حوارى بالاداة قم باختيار الاداة كما فى الشكل التالى :



وكما هو ملاحظ فان الاداة تأخذ اسم راابط المنتدى egy-tech.forumegypt.ne الان اضغط Ok ستجد الاداة ايكون الاداة فى شريط الادوات كما فى الشكل التالى :


الخطوة الثالثة : قم بإنشاء قاعدة بيانات ...ثم انشىء الحقول التى ترغب فيها مع مراعاة أن يكون الحقل الذى سوف يتم حفظ الصورة فية من نوع OLE Object كما فى الصورة التالية :


الخطوة الرابعة :قبل البدء فى كتابة اى كود برمجى يجب عليك اولا تحديد تقنية الربط المستخدمة فى الاتصال بقاعدة البيانات هل هى ado أم dao ....فأن كنت تستخدم تقنية الربط ado فلابد أن تجعل الخاصية ConnectionType للاداة تساوى useAdo كما فى الشكل التالى :


الخطوة الخامسة :كتابة الاكواد

فى زر الامر استعراض نكتب الامر التالى :

الكود:

EgyImage1.OpenPhotoFile

حيث ان هذا الامر يقوم بفتح مربع حوارى لاختيار صورة من الجهاز و عرضها داخل الاداة نفسها

فى زر الامر "حفظ"

الكود:

Dim Rs As New ADODB.Recordset
Rs.Open "Select * from tblPhoto where name='" & txtName & "'", Con, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs!Name = txtName
EgyImage1.SavePhoto Rs!Photo  'حفظ الصورة فى قاعدة البيانات
Rs.Update
Rs.Close


ما يهمنا فى الكود السابق هو السطر رقم 6 وهو الذى يقوم بحفظ الصورة فى قاعدة البيانات فى الحقل Photo

زر الامر استرجاع الصورة

الكود:

Dim Rs As New ADODB.Recordset
Rs.Open "Select * from tblPhoto where name='" & txtName & "'", Con, adOpenKeyset, adLockOptimistic
Do While Not Rs.EOF
    If Len(Rs!Photo) > 0 Then EgyImage1.LoadPhoto Rs!Photo 'أسترجاع الصورة من قاعدة البيانات
Rs.MoveNext
Loop
Rs.Close


اية يابنى دة ....لا لا لا كده بدأت اغيرك منك

روووووعة يامبدع

ولكن بصراحة انا لا انصح بوضع الصور (كبيرة الحجم ) في قاعدة بيانات اكسيس لان قاعدة بيانات اكسيس تتحمل فقط لغاية 2 جيجا بايت من البيانات (على حد علمي) ..

جزاك الله خيرا أخى الكريم

جزاك الله خيرا أخى الكريم

والله اداة جميلة واغنتنى عن محاولات فاشلة ومغير مجدية
جزاك الله خير

[size=15.555556297302246]فعلا اداه تجنن next[/size]
[size=15.555556297302246]واحب اضيف شىء يارب تتقبله منى بصدر رحم.. ويتقبله منى كل مبتداء[/size]
[size=15.555556297302246]وهو استخدام برنامج تسجيل الادوات( تحميل برنانج تسجيل الادوات)([ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط])[/size]
[size=15.555556297302246]فهو اكيد سوف يفيد اثناء اعداد المشروع ف تسجيل الادوات ocx  و  dll  وايضا بعد تحزيم البرنامج فهو سوف يقوم بتسجيل كل ادواتك بدون الحاجه للقيام بوضع الاداه ف فولدر السيستم .... ثم كتابة اسم الاداة ف run[/size]
[size=15.555556297302246]وايضاً توفر على كل من يستخدم برنامجك ع اجهزه اخره من اجراء تسجيل ادوات برنامجك لكى يعمل بدون مشاكل [/size]
[size=15.555556297302246]سامحنى اخى الغالى لو تعديت طرحك للموضع ووالله من قلبى اشكرك لطرحك المثمر [/size]

مشكوووووووور
ياريت لو توضح بكود Ado اذا كانت ماشية مع VB6