[mohamedassim]

الكود التالي استخدمه لعمل تحديث لكامل قاعدة البيانات والتي تتضمن 3000 سجل

كود :

'  تصفير الاسعار والكميات
   Public Sub Reset()
       For i As Integer = 0 To DGridItems.Rows.Count - 1
           Dim dt As New DataTable
           Dim Adapter As New SqlDataAdapter
           dt.Clear()
           Adapter = New SqlDataAdapter("select * from Items where ItemID = " & DGridItems(0, i).Value & "", sqlcon)
           Adapter.Fill(dt) '  
           Dim c As Boolean
           c = DGridItems.Rows(i).Cells(8).Value
           If c = True Then
               If dt.Rows.Count > 0 Then
                   dt.Rows(0).Item("ItemLargePrice") = 0
                   dt.Rows(0).Item("ItemLargeBuyPrice") = 0
                   dt.Rows(0).Item("ItemQtyLarge") = 0
                   dt.Rows(0).Item("ItemQtyMeduim") = 0
                   dt.Rows(0).Item("ItemMeduimPrice") = 0
                   dt.Rows(0).Item("ItemMeduimBuyPrice") = 0
                   Dim save As New SqlCommandBuilder(Adapter)
                   Adapter.Update(dt)
                   dt.AcceptChanges()
               End If

           End If
       Next

   End Sub

لكن المشكلة لا يتم التنفيذ وتظهر المشكلة التي في الصورة ادناه