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()
اتمنى المساعدة وافهامي ماخلل الاضافة
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()
اتمنى المساعدة وافهامي ماخلل الاضافة

