[0theghost0]

السلام عليكم

اريد معرفه الكود تبعي هل هو صحيح ام يوجد به تعديل :

متأكد بأن هناك كود ابسط منه لداتاجريد فيو

كود :

Private Sub UpdateIncreaseQuantity()

       Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
           conn.Open()
           Dim sql As String =
               "UPDATE INTO [Rent]" &
                   "( Equ_Qantity )" &
                   "VALUES" &
                   "( @Equ_Qantity )" &
                   "where" &
                   "( Equ_ID )" &
                   "( @Equ_ID )"

           Using cmd As New OleDbCommand(sql, conn)
               cmd.Parameters.AddWithValue("@QU", myTextBox.Text)
               cmd.Parameters.AddWithValue("@IN", "apple")
               cmd.ExecuteNonQuery()
           End Using
       End Using
   End Sub

اريد تعديل الكمية اثناء وضع الغرض في الداتاجريد فيو
واذا قمت بحذفه يتم التعديل الكمية لسابقها

شرح :
لدي قرص الكمية 5
قمت فقط اضافة 1
المجموع يظهر لي 4
قمت بحذفه او ارجاعه يرجع 5

وهكذا لداتا جريد فيو

---

كود أخر لك يعمل لدي بشكل الصحيح به خطأ

كود :

Private Sub updatestock()
       For Each Isold As DataGridViewRow In DataGridView1.Rows
           Dim pID As String
           Dim Inveupdate As New OleDb.OleDbCommand
           pID = Isold.Cells(1).Value.ToString()
           Inveupdate.CommandText = "UPDATE Equpment SET Equ_Qantity = Equ_Qantity - 1 WHERE Equ_ID = ?"
           Inveupdate.CommandType = CommandType.Text
           Inveupdate.Connection = myConnToAccess
           Inveupdate.ExecuteNonQuery()
       Next
       myConnToAccess.Close()
   End Sub

[0theghost0]

هل من مغيث شباب ؟؟

[0theghost0]

أين أنتم ياخبراء

[0theghost0]

هل يوجد احد ليساعدني شباب واتمنى الشرح

[حريف برمجة]

سبب عدم الرد كثير منها :

1 - طلبك غير واضح .
2 - وضعت كود وتريد التأكد هل يعمل بشكل صحيح او لا ،، والحقيقة الكود ما يفيد الافضل ارفق مثال للتعديل عليه ،، مع توضيح المطلوب بشكل دقيق .