[سعود]

شوف اخي الكريم المثال التالي قد تجد به طريقة للمطلوب
http://vb4arb.com/vb4/showthread.php?t=4442

[0theghost0]

اوكي اخوي ويفضل ان تكون قاعدة البيانات Access 2013 h, 2010 لانهم الكود يتشابهون وحاول تسرع اخوي لاني تأخرت واجد مع هذا البروجكت

[سعود]

الاصدار اللي عندي 2010 للاوفيس

[سعود]

اخي الكريم المقصود هل قمت بحفظ الصور بالكود ام بشكل يدوي؟
ان كان بشكل يدوي فلم تفلح معه لا طريقتي ولا طريقة الاخ اللي اجاب كسلاوي.
الافضل ان تستخدم الطريقة اللي بالمثال
http://vb4arb.com/vb4/showthread.php?t=4442
فهو يحفظ بالكود ويستدعي.

[0theghost0]

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

[0theghost0]

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

[سعود]

طيب اخوي اكتب الكود اللي استخدمت لحفظ الصورة.

[سعود]

سكايبي ما ينفع اما ابحث عن معلم تقابله او معهد.

[سعود]

المثال مرفق وهو بـ فيجوال بيسك 2013 التميت تحديث 3
و اكسس 2010

بالنسبة لاصدار الـ vs شوف الشرح هنا
http://vb4arb.com/vb/showthread.php?tid=757

[0theghost0]

تم تحميل البروجكت member pic لكن اصبح لدي خلل في الاضافة اكتشفت بأن البرنامج يقوم بحفظ الصورة داخل الاكسس ولكن لا يستطيع اظهارها في الفورم اعتقد الخلل في الاضافة هذا صورة للاضافة ولكن لا اعلم لماذا يقول لي هذا الخلل :

Dim cm As New OleDbCommand("insert into PcGame (Game_Name,Game_Release,Game_Rating,Game_Developed,Game_Published,Game_Genres,Game_Price,Game_Pic) values(@Game_Name,@Game_Release,@Game_Rating,@Game_Developed,@Game_Published,@Game_Genres,@Game_Price,@Game_Pic)", con)
cm.Parameters.AddWithValue("@Game_Name", TextBox1.Text)
cm.Parameters.AddWithValue("@Game_Release", DateTimePicker1.Value)
cm.Parameters.AddWithValue("@Game_Rating", TextBox2.Text)
cm.Parameters.AddWithValue("@Game_Developed", TextBox3.Text)
cm.Parameters.AddWithValue("@Game_Published", TextBox4.Text)
cm.Parameters.AddWithValue("@Game_Genres", TextBox5.Text)
cm.Parameters.AddWithValue("@Game_Price", TextBox6.Text)
cm.Parameters.AddWithValue("@Game_Pic", My.Computer.FileSystem.ReadAllBytes(ofd.FileName))

If con.State = ConnectionState.Closed Then
con.Open()

cm.ExecuteNonQuery()

MessageBox.Show("Add New Game", "My Systm", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

End Sub
End Class

الخلل يكون في :

cm.Parameters.AddWithValue("@Game_Pic", My.Computer.FileSystem.ReadAllBytes(ofd.FileName))

و ايضا

cm.ExecuteNonQuery()

اتمنى المساعدة وافهامي ماخلل الاضافة