il codice completo è questo:
le 2 sub che richiamo (creaMyDB e killMyDB) sono queste:codice:Dim myDB As EF_DB = creaMyDB() Try Dim lstToDel As List(Of movimenti) = myDB.movimenti.Where(Function(m) idToDel.Contains(m.id_Mov)).ToList myDB.movimenti.RemoveRange(lstToDel) myDB.SaveChanges() MsgBox("Movimenti Eliminati", MsgBoxStyle.Information, "Operazione Effettuata") out = True Catch ex As Exception errMsg(ex) Finally killMyDB(myDB) End Try
codice:Function creaMyDB() As EF_DB Return New EF_DB End Function Function killMyDB(ByVal myDB As EF_DB) As Boolean myDB.Dispose() Return IsNothing(myDB) End Function

Rispondi quotando



).
