19-12-14, 05:07 AM
كود :
home.Open()
Dim cmd As New OleDbCommand
cmd.Connection = home
cmd.CommandText = "update MODZ set رقم الصنف='" & TextBox1.Text & "', اسم الصنف='" & TextBox2.Text & "', تاريخ الاستلام= '" & TextBox4.Text & "' where الكمية= " & (TextBox3.Text) & ""
cmd.ExecuteNonQuery()
cmd.Dispose()
home.Close()يقولي خطا في الجملة الاستعلام وكلام كثير مع اني متأكد
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها 
