[ابو يوسف النواوي 2]

السلام عليكم

تعديل في جزء من كود الأستاذ ابو ليلى حسب ما ذكرت آخراً

على اعتبار انه يوجد عمود باسم id وهو رقم الصنف في الجدول
وأن عمود التشيك بوكس هو الأول (0) وأن رقم الصنف id هو الثاني (1)

كود :

Dim ids As New List(Of Integer)
For Each r As DataGridViewRow In Me.DataGridView1.Rows
   If r.Cells(0).Value Then ids.Add(CInt(r.Cells(1).Value))
Next

Dim _Update As String = "Update [TableName] Set [Price]=@Price Where [ID] IN(" & String.Join(",", ids) & ") "

مع حذف سطر

كود :

Cmd.Parameters.AddWithValue("@kind", elem)

تمام هجرب واوافيكم بالاخبار جزاكم الله خيرا

---

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

PHP كود :

Dim _Update As String = "Update TableName Set Price=@Price Where Kind = @Kind"
        Using Cmd As New OleDb.OleDbCommand With {.CommandText = _Update, .Connection = Conn}
            Dim array() As String = {"قهوة", "سكر", "عصير"}

            For Each elem As String In array
                Cmd.Parameters.Clear()
                Cmd.Parameters.AddWithValue("@Price", 500)
                Cmd.Parameters.AddWithValue("@kind", elem)
                Cmd.ExecuteNonQuery()
            Next

        End Using 


جزاك الله خيرا