سلام عليكم شباب
عندي كم سؤال بس بسيطات حيل ...
1- ما نوع البيانات اللي بقاعدة البيانات بحيث اخزن بي صورة..؟؟
2- كيف اعرض صورة من قاعدة البيانات بــ picturebox ..؟؟
3- كيف احفظ صورة من الــ picturebox الى قاعدة البيانات ..؟؟
حتى لو اكواد عامة .. طبعا اللغة المستخدمة : vb.net 2010
نوع قاعدة البيانات access
شكرا جزيلا مقدما ..
ابحث بالمنتدى فيه مواضيع كثيره عن هالموضوع
حضرتك الذي يجد كيفية حفظ صورة معروضة في picturebox وليس في ملف ثم عرضها في picturebox
برجاء كتابة الكود
فعلا هو الاهم
الصورة اللي تظهر بمربع الصورة من اين تم عرضها؟؟
تستطيع معرفة المسار ثم تقراها بطريقة ReadAllbytes وتحفظها بعمود من نوع ole باكسس.
1
2
3
4
اتمنى بصراحة ان تجدوا الحل بهذه الروابط .
اشكركم اخواني على متابعتكم للموضوع ...
اهم ما اريده هو انه الطريقة وليست الكود .. فقط الطريقة .. اني حفظت الصورة الى قاعدة البيانات ... فقط الطريقة احتاج التي بواسطتها استطيع عرض الصورة الى اداة الــ picturebox ...
اخي الكريم .. حفظ الصورة احد امرين او ثلاثة:
1-حفظ مسارها بالجدول وهي بمكانها الاصلي.
2-نسخ الصورة لمسار البرنامج وحفظ اسم الصورة بالجدول حيث ان المسار ثابت بما انه في مجلد البرنامج.
3-تحويل الصورة الى بيناري وتوجد عدة طرق اسهلها
ReadAllBytes
وطريقة عرضها في الطريقتين الاوليين للحفظ هي بالاسناد المباشر لمربع الصورة
كود :
pic.image=image.fromfile(dr("pic")
اما طريقة عرضها لو حفظت بالطريقة الاخيرة ايضا عدة طرق اسهلها
كود :
pic.databindings.add("image",ds,"tb.pic",true)
أرجو اني كتبت الجواب
احسنت اخي سعود ... عاشت يدك ...
بالنسبة لطريقة ألــ 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
حبيبتي استاد سعود عاشت ايدك اخي ... افتهمت الفكرة وهذا كلة بفضل توجيهاتك ...
كملت البرنامج وعرفت شلون احفظ صورة وكيف اعرضها واني اشكرك اخي