منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

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

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

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

تم تحميل البروجكت 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()

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