منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كم سؤال بسيط جدا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] كم سؤال بسيط جدا (/showthread.php?tid=11840)

كم سؤال بسيط جدا - css2015 - 23-03-15

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

RE: كم سؤال بسيط جدا - ربيع - 23-03-15

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

RE: كم سؤال بسيط جدا - atefkhalf2004 - 24-03-15

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

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

RE: كم سؤال بسيط جدا - سعود - 25-03-15

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

RE: كم سؤال بسيط جدا - css2015 - 25-03-15

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

RE: كم سؤال بسيط جدا - سعود - 25-03-15

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

وطريقة عرضها في الطريقتين الاوليين للحفظ هي بالاسناد المباشر لمربع الصورة
كود :
pic.image=image.fromfile(dr("pic")
اما طريقة عرضها لو حفظت بالطريقة الاخيرة  ايضا عدة طرق اسهلها 
كود :
pic.databindings.add("image",ds,"tb.pic",true)
أرجو اني كتبت الجواب

RE: كم سؤال بسيط جدا - css2015 - 25-03-15

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

RE: كم سؤال بسيط جدا - سعود - 25-03-15

اخي الكريم انت طلبت شرح الفكرة بشكل عام وماذكرته لك هو اكثر ما استطيع قوله عن الامر .. حيلتي الباقية هي بكتابة الكود او ان ارفع لك مثال جاهز (بالمصدر طبعا).
لكن لن اترك الموضوع من دون أثر.
لتحويل صورة الى بيناري
كود :
       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

RE: كم سؤال بسيط جدا - css2015 - 29-03-15

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