Question

This code results in an error

System.OutOfMemoryException

Using VT As New BidiEntities  
    For Each dr In Bidis

        Dim hkBidi As New hkBidi
        hkBidi.UserId = Userx
        VT.AddTohkBidis(hkBidi)
    Next    
   *VT.SaveChanges()*    
End Using

VT.SaveChanges() results in this error when looping through 500,000 records.

How can this be resolved?

Answer 1

I thought this method. competent_tech and p.campbell thanks! 🙂

        Dim i As Integer
        Dim uList As New List(Of hkBidi)

        For Each dr In Bidis
            i += 1

            uList.Add(New hkBidi With {.UserId = dr.UserId})

            If i > 9999 Then
                i = 0
                BidiSave(uList)
                uList.Clear()
            End If
        Next
' Up to 500000 if the (sample 502500) and smaller than 10000
        If uList.Any() Then
            BidiSave(uList)
        End If

–

Public Sub BidiSave(uList As List(Of hkBidi))
    Using VT As New BidiEntities
        For Each dr In uList
            VT.AddTohkBidis(dr)
        Next
        VT.SaveChanges() ' No Problem
    End Using ' No Exception
End Sub