13-08-14, 04:28 PM
شوف اخي الكريم المثال التالي قد تجد به طريقة للمطلوب
http://vb4arb.com/vb4/showthread.php?t=4442
http://vb4arb.com/vb4/showthread.php?t=4442
[سؤال] عضو جديد وحاب اتواصل معاكم في قسم البرمجة بس اتمنى المساعدة
|
13-08-14, 04:28 PM
شوف اخي الكريم المثال التالي قد تجد به طريقة للمطلوب
http://vb4arb.com/vb4/showthread.php?t=4442
13-08-14, 04:41 PM
اوكي اخوي ويفضل ان تكون قاعدة البيانات Access 2013 h, 2010 لانهم الكود يتشابهون وحاول تسرع اخوي لاني تأخرت واجد مع هذا البروجكت
13-08-14, 04:45 PM
الاصدار اللي عندي 2010 للاوفيس
13-08-14, 05:35 PM
اخي الكريم المقصود هل قمت بحفظ الصور بالكود ام بشكل يدوي؟
ان كان بشكل يدوي فلم تفلح معه لا طريقتي ولا طريقة الاخ اللي اجاب كسلاوي. الافضل ان تستخدم الطريقة اللي بالمثال http://vb4arb.com/vb4/showthread.php?t=4442 فهو يحفظ بالكود ويستدعي.
13-08-14, 08:54 PM
اخي لم اقم بوضع الصورة يدوي بل بالبرنامج هو الذي قام بوضع الصورة والمشكلة هي قراءة الصورة من القاعدة للفورم على كل اسم اختاره تظهر صورته المعنية
13-08-14, 09:28 PM
تم تحميل الشرح لكن اسمح لي اخبرك اني مافهمت له وحاولت اسوي مثله لكن كيف اعمل مثله وانا مو فاهم فيه شيء بس كوبي بيست ابغي احترف البرمجة هل لديك اسكايبي اتمنى انك تملك حساب في اسكايبي ليتم تدريبي عن طريق الاسكايبي
13-08-14, 10:19 PM
طيب اخوي اكتب الكود اللي استخدمت لحفظ الصورة.
13-08-14, 10:24 PM
سكايبي ما ينفع اما ابحث عن معلم تقابله او معهد.
14-08-14, 02:22 AM
المثال مرفق وهو بـ فيجوال بيسك 2013 التميت تحديث 3
و اكسس 2010 بالنسبة لاصدار الـ vs شوف الشرح هنا http://vb4arb.com/vb/showthread.php?tid=757
14-08-14, 02:24 PM
تم تحميل البروجكت 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() اتمنى المساعدة وافهامي ماخلل الاضافة |
|