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

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

اذهب الى الأسفل

تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Empty تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object

مُساهمة من طرف أحمد مناع السبت فبراير 09, 2013 1:03 pm

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

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


تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Egy-tech13604142921


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

تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Egy-tech13604146101
الخطوة الثالثة : قم بأدراج المكتبة Microsoft ActiveX Data Objects 2.5 Library فما فوق ...لانك لو أستخدمت أقل من هذا الاصدار لن تستطيع حفظ الصورة أو أسرجاعها

الخطوة الرابعة : قم بأدراج الاداة Microsoft Common Dialog Control 6.0 لاستعراض الصورة من جهازك .

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

1_ فى قسم التصريحات نقوم بكتابة الاكواد الخاصة بفتح قاعدة البيانات و الجدول و ايضا نقوم بتعريف متغير لحفظ مسار الصورة فية على النحو التالى :

الكود:
Dim cnnEmp As ADODB.Connection
Dim rsEMP As ADODB.Recordset

Dim fileName As String


2_ فى حدث الضغط على مربع الصورة Picturebox نكتب الكود التالى و ذلك لفتح المربع الحوارى لاختيار صورة من الجهاز و ذلك على النحو التالى :

الكود:
    cdgPhoto.Filter = "(*.bmp;*.ico;*.gif;*.jpg)|*.bmp;*.ico;*.gif;*.jpg"
    cdgPhoto.ShowOpen
   
    fileName = cdgPhoto.fileName
   
    If fileName <> "" Then
        Set imgPhoto.Picture = LoadPicture(fileName)
    End If

ويجب ان تلاحظ أننا فى الكود السابق حددنا أمتداد الصور و انواعها التى يجب أن تظهر للمستخدم و ذلك عن طريق الامر Filter للاداة CommonDialog ثم فتحنا المربع الحوارى ثم جعلنا المتغير fileName يساوى مسار الصورة المختارة ...و أخيرة تطبيق الصورة و اظهارها فى مربع الصورة imgPhoto


3 _ زر الامر (حفظ ) سنقوم بكتابة الكود التالى :

الكود:

        Dim smEmp As ADODB.Stream
        Set smEmp = New ADODB.Stream
     
        smEmp.Type = adTypeBinary
        smEmp.Open
     
        smEmp.LoadFromFile fileName
     
        If smEmp.Size > 0 Then
            'Save the Employee Information
            rsEMP.AddNew
            rsEMP("FirstName") = txtFName
            rsEMP("MiddleName") = txtMName
            rsEMP("LastName") = txtLName
            rsEMP("SSN") = txtSSN
            rsEMP("Photo") = smEmp.Read
            'Update the data
            rsEMP.Update
            'Clear the form
            ClearFields
       
            MsgBox "Employee Information Saved Successfully"
        Else
            MsgBox "The Employee's Photo is not valid"
        End If
       
     
        smEmp.Close
        Set smEmp = Nothing



السطر الاول و الثانى ...قمنا بإنشاء الكائن stram object و الذى سيقوم بحفظ الصورة فى قاعدة البيانات

السطر الثالث و الرابع...جعل الكائن stram object من نوع بيانات ثنائى binary data وذلك لنستطيع فتح و حفظ الصورة فى تلك الهيئة .

السطر الخامس
...تحميل محتوى الصورة الى الكائن stram object

السطر السادس ...التحقق من حجم محتوى الكائن stram object فإن كان أكبر من الصفر معنى ذلك وجودة صورة بالكائن و ذلك لتفادى الخطأ فى حالة عدم أختيار صورة

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

وبهذا نكون قد انتهيانا من حفظ بيانات و و صورة الموظف على النحو المبين أعلاه ....


الخطوة السادسة ...أسترجاع الصورة المخزنة فى قاعدة البيانات و ذلك عن طريق إنشاء إجراء يقوم بقرائه الصورة و التى هى على شكل بيانات ثنائية فى قاعدة البيانات ثم بعد ذلك يقوم بتحويلها وإنشاء صورة مؤقته فى مجلد البرنامج و من ثم أستخدامها فى عنصر التحكم imgPhoto وذلك على النحو التالى :


الكود:
Private Sub ReadPictureData()
               
    Dim diskFile As String
    diskFile = App.Path & "\temp\emp.bmp"
         
 
    Dim smEmp As ADODB.Stream
    Set smEmp = New ADODB.Stream
   
    smEmp.Type = adTypeBinary
    smEmp.Open
   
 
    smEmp.Write rsEMP.Fields("Photo").Value
   
    If smEmp.Size > 0 Then
       
            smEmp.SaveToFile diskFile, adSaveCreateOverWrite
     
              imgPhoto.Picture = LoadPicture(App.Path & "\temp\emp.bmp")
    Else
        MsgBox "Error reading the Photo"
    End If
   
    'Close and destroy the stream object
    smEmp.Close
    Set smEmp = Nothing
   
   
End Sub


قمنا بإنشاء الاجراء ReadPictureData و يحتوى على الاسطر التالية :


السطر الاول و الثانى
....قمنا بإنشاء المتغير diskFile و ذلك لحفظ المسار الذى سيحتوى على الصور المؤقتة و التى سيتم إنشائها من قاعدة البيانات .


السطر الثالث و الرابع و الخامس و السادس ......قمنا بإنشاء الكائن stram object و الذى سيقوم استرجاع الصورة من قاعدة البيانات و تحديد نوع البيانات التى تم حفظها وهى من نوع Binary

السطر السابع ...تحميل بيانات الصورة الثانية binary image المخزنة فى الحقل Photo الى الكائن stram object

السطر الثامن و التاسع ...جملة شرطية للتحقق من وجودة بيانات ثنائية فى هذا الحقل فإن تم التحقق من ذلك نجل البرنامج يقوم بتحويل تلك البيانات أو الصورة الى صورة مؤقته فى المجلد temp الموجود فى مجلد مشروعنا

السطر العاشر .... تحميل و استخدام تلك الصورة فى مربع الصورة imgPhoto

و اخيرا أغلاق الكائن stram object ومن ثم إنهاء الاجراء ....بعد ذلك يمكنك أستخدام هذا الاجراء فى حدث التنقل بين السجلات و ستجد أن لك صورة تم حفظها لموظف سيتم عرضها فى مربع الصورة imgPhoto على النحو التالى :

تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Egy-tech13604142932


و اليكم المشروع فى المرفقات

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

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

https://egy-tech.forumegypt.net

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

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

مُساهمة من طرف NEXT السبت فبراير 09, 2013 6:47 pm


درس رائع يا ريس ....ربنا ما يحرمنا منك

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Do.php?imgf=154090993464951
NEXT
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة : مصر
الجنس : ذكر

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

تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Empty تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object

مُساهمة من طرف 2NEXT الثلاثاء يونيو 04, 2013 9:19 am

مشكووووووووووووووووووووووووووووووووووووووووووووووووور
Anonymous
2NEXT
زائر


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

تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Empty تشكر اخي

مُساهمة من طرف sadek al badany الخميس أغسطس 29, 2013 3:30 pm

بس اتمنى يكون هذى المثال ب vb.net لا ني اريدة هذة المثال بس vb.net
sadek al badany
sadek al badany
.
.

تاريخ التسجيل : 29/08/2013
المساهمات : 2
النقاط : 2
التقيم : 0
الدولة : اليمن
الجنس : ذكر

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

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

مُساهمة من طرف أحمد مناع الخميس أغسطس 29, 2013 8:57 pm

sadek al badany كتب:بس اتمنى يكون هذى المثال ب vb.net لا ني اريدة هذة المثال بس vb.net
تفضل أخى الكريم .....هذا الدرس من اجلك

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

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

https://egy-tech.forumegypt.net

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

تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Empty شكر

مُساهمة من طرف ???? السبت أغسطس 31, 2013 5:52 pm

مشكور على الموضوع الرائع
Anonymous
????
زائر


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

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

مُساهمة من طرف hanch الجمعة مارس 14, 2014 8:00 pm

مشكور على الموضوع الرائع
hanch
hanch
.
.

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

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

تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Empty تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object

مُساهمة من طرف ناصر المقدسي الأحد يوليو 27, 2014 1:08 pm

بارك الله فيك أخي الكريم على هذه المجهودات الرائعة..

لو تكرمت أخي أن تضع لنا رابط المشروع ...وجزيت خيرا.
ناصر المقدسي
ناصر المقدسي
.
.

تاريخ التسجيل : 27/07/2014
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة : السعودية
الجنس : ذكر

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

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

مُساهمة من طرف magdy_sabra الإثنين ديسمبر 15, 2014 4:31 pm

جزالك الله كل خير
magdy_sabra
magdy_sabra
.
.

تاريخ التسجيل : 14/12/2014
المساهمات : 2
النقاط : 2
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

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

مُساهمة من طرف magdy_sabra الأربعاء ديسمبر 24, 2014 6:05 pm

فين يا اخى رابط للمشروع
magdy_sabra
magdy_sabra
.
.

تاريخ التسجيل : 14/12/2014
المساهمات : 2
النقاط : 2
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

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

مُساهمة من طرف NEXT الخميس ديسمبر 25, 2014 7:09 pm

رابط المشروع

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Do.php?imgf=154090993464951
NEXT
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة : مصر
الجنس : ذكر

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

تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Empty جهد مشكور

مُساهمة من طرف alnilensf الأحد يناير 31, 2016 10:53 am

اخب العزيز, بارك الله فيك على جهودك
alnilensf
alnilensf
.
.

تاريخ التسجيل : 09/01/2016
المساهمات : 4
النقاط : 4
التقيم : 0
الدولة : العراق
الجنس : ذكر

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

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

مُساهمة من طرف salamfaraj2002 الأحد فبراير 07, 2016 12:50 am

منك نستفيد 
رائع من اروع مبدع
salamfaraj2002
salamfaraj2002
....
....

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

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

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

مُساهمة من طرف asasas الثلاثاء فبراير 23, 2016 6:53 pm

احسنت اخي
asasas
asasas
.
.

تاريخ التسجيل : 23/01/2016
المساهمات : 7
النقاط : 7
التقيم : 0
الدولة : العراق
الجنس : ذكر

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

تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Empty مجهود رائع

مُساهمة من طرف engshady الخميس مايو 18, 2017 5:59 am

جزاكم الله كل خير
engshady
engshady
.
.

تاريخ التسجيل : 18/05/2017
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة : فلسطين
الجنس : ذكر

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

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

مُساهمة من طرف bozo2 الإثنين أكتوبر 09, 2017 1:22 am

مجهود رائع  Smile Smile Smile Smile Smile Smile 
ولكن هل يمكن استرجاع جميع الصور المخزنة في الجدول ووضعها في ازرار او كائنات الصور
bozo2
bozo2
.
.

تاريخ التسجيل : 04/09/2017
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة : سوريا
الجنس : ذكر

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

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

مُساهمة من طرف manaf الأحد نوفمبر 03, 2019 4:35 pm

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

مجهود رائع ومشكور عليه
لكن هل من الممكن اعادة ارفاق المشروع مرة اخرى لأن الرابط لايعمل اعتقد بعد مضي فترة طويلة على رفعه للمنتدى
 ومشكور مرة اخرى
manaf
manaf
.
.

تاريخ التسجيل : 24/04/2019
المساهمات : 3
النقاط : 3
التقيم : 0
الدولة : اليمن
الجنس : ذكر

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

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

مُساهمة من طرف أحمد مناع الأحد نوفمبر 03, 2019 8:20 pm


ساحاول رفع المشروع ان شاء الله تعالى ....أتمنى اجدة على جهازى فمنذ زمن طويل لم اعد اهتم بالفجوال بيسك 6 بعد اكتشافى لروعة لغة الجافا

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

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

https://egy-tech.forumegypt.net

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

تعلم كيفية حفظ و أسترجاع الصورة فى قاعدة بيانات أكسس باستخدام الكائن Stream object Empty حفظ الصورة في حقل ما بداخل أحد جداول قاعدة بيانات آكسس

مُساهمة من طرف الباحث الإثنين أغسطس 29, 2022 6:19 pm

لايوجد مرفقات ولا مشروع مرفق
الباحث
الباحث
.
.

تاريخ التسجيل : 29/08/2022
المساهمات : 1
النقاط : 1
التقيم : 0
الدولة : السودان
الجنس : ذكر

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

كاتب هذه المساهمة مطرود حالياً من المنتدى - معاينة المساهمة

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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