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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة من طرف NEXT في الخميس مارس 14, 2013 8:58 am

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

أخوانى الكرام اهلا وسهلا بكم ...اليوم اقدم لكم الاداة 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
المرفقات
EgyImageToAccess.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(50 Ko) عدد مرات التنزيل 119

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف أحمد مناع في الخميس مارس 14, 2013 10:41 am

إبداع ليس بعدة إبداع ....جزاك الله خيرا يا كبير

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف جورج صبحى في الخميس مارس 14, 2013 11:29 am

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

جورج صبحى
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 98
النقاط : 211
التقيم : 3
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف mustafas في السبت مايو 25, 2013 5:50 pm

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

mustafas
.
.

تاريخ التسجيل : 25/05/2013
المساهمات : 5
النقاط : 5
التقيم : 0
الدولة : العراق
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف mustafas في السبت مايو 25, 2013 5:53 pm

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

mustafas
.
.

تاريخ التسجيل : 25/05/2013
المساهمات : 5
النقاط : 5
التقيم : 0
الدولة : العراق
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف بنت البلد في الأربعاء نوفمبر 20, 2013 9:21 am

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

بنت البلد
....
....

تاريخ التسجيل : 18/02/2011
المساهمات : 66
النقاط : 126
التقيم : 6
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف hanch في السبت فبراير 01, 2014 1:45 pm

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

hanch
.
.

تاريخ التسجيل : 15/06/2013
المساهمات : 5
النقاط : 5
التقيم : 0
الدولة : المغرب
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف نظريه في الخميس فبراير 27, 2014 4:55 pm

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

نظريه
.
.

تاريخ التسجيل : 05/01/2014
المساهمات : 3
النقاط : 3
التقيم : 0
الدولة : السودان
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف torky1985 في الأحد مارس 23, 2014 2:57 am

[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]

torky1985
.....
.....

تاريخ التسجيل : 25/05/2013
المساهمات : 81
النقاط : 114
التقيم : 1
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة من طرف salamfaraj2002 في الأربعاء فبراير 03, 2016 4:31 am

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

salamfaraj2002
....
....

تاريخ التسجيل : 18/04/2015
المساهمات : 54
النقاط : 68
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى