[css2015]

سلام عليكم شباب  
عندي كم سؤال بس بسيطات حيل ... 
1- ما نوع البيانات اللي بقاعدة البيانات بحيث اخزن بي صورة..؟؟ 
2- كيف اعرض صورة من قاعدة البيانات بــ picturebox  ..؟؟ 
3- كيف احفظ صورة من الــ picturebox الى قاعدة البيانات ..؟؟ 
حتى لو اكواد عامة .. طبعا اللغة المستخدمة : vb.net 2010 
نوع قاعدة البيانات access 
شكرا جزيلا مقدما .. 

[ربيع]

ابحث بالمنتدى فيه مواضيع كثيره عن هالموضوع

[atefkhalf2004]

حضرتك الذي يجد كيفية حفظ صورة معروضة في picturebox وليس في ملف ثم عرضها في picturebox

برجاء كتابة الكود
فعلا هو الاهم

[سعود]

الصورة اللي تظهر بمربع الصورة من اين تم عرضها؟؟
تستطيع معرفة المسار ثم تقراها بطريقة ReadAllbytes وتحفظها بعمود من نوع ole باكسس.
1
2
3
4
اتمنى بصراحة ان تجدوا الحل بهذه الروابط .

[css2015]

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

[سعود]

اخي الكريم .. حفظ الصورة احد امرين او ثلاثة:
1-حفظ مسارها بالجدول  وهي بمكانها الاصلي.
2-نسخ الصورة لمسار البرنامج وحفظ  اسم الصورة بالجدول  حيث ان المسار ثابت بما انه في مجلد البرنامج.
3-تحويل الصورة الى بيناري  وتوجد عدة طرق اسهلها  ReadAllBytes

وطريقة عرضها في الطريقتين الاوليين للحفظ هي بالاسناد المباشر لمربع الصورة

كود :

pic.image=image.fromfile(dr("pic")

اما طريقة عرضها لو حفظت بالطريقة الاخيرة  ايضا عدة طرق اسهلها 

كود :

pic.databindings.add("image",ds,"tb.pic",true)

أرجو اني كتبت الجواب

[css2015]

احسنت اخي سعود ... عاشت يدك ...
بالنسبة لطريقة ألــ databinding هي الطريقة المفضلة لدي بعرض الصورة ...
لكن اطلب منك طلب بسيط ... طريقة حفظ الصورة الى قاعدة البيانات اكسس وتحويلهة الى الباينري بشي من التفصيل ... واكون شاكر الك ولتعبك الغالي علية
شكرا جزيلا ..

[سعود]

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

كود :

       Dim b() As Byte = My.Computer.FileSystem.ReadAllBytes("path to picture")

الان لديك المتغير b يحمل الصورة بصيغة  بيناري(ان صحت التسمية)

كود :

       Dim b() As Byte = My.Computer.FileSystem.ReadAllBytes("path to picture")
       Dim insert As New OleDbCommand("insert into tb(pic) values(@pic)", con)
       insert.Parameters.AddWithValue("@pic", b)
       con.open()
       insert.ExecuteNonQuery()

لابد يكون العمود في الجدول من نوع كائن ole

[css2015]

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