MARCO BREVEGLIERI
Software and Web Developer, Teacher and Consultant
Home | Blog | Delphi Podcast | Twitch | Altro...
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
Non è che questi record lasciano degli orfani all'interno del DB, ossia record che puntano a essi e così non hanno più a disposizione il figlio nella relazione?Originariamente inviata da Veronica80
Il valore di ritorno booleano non ti serve a nulla: se si verifica un errore, è l'eccezione che deve "uscire" e veicolare questa condizione, gestendola all'esterno della procedura anche con la visualizzazione di un messaggio; inserendola qui, sei costretta sempre a testare il valore booleano di ritorno complicando il codice, e a gestire in un sol modo l'errore, mentre magari all'esterno potresti voler cambiare idea o fare qualcosa di più.Originariamente inviata da Veronica80
Anche queste due sub non ti servono a nulla e complicano soltanto: la prima fa solamente una New senza particolari aggiunte, la seconda chiama Dispose (che è corretto) e restituisce sempre un booleano inutile, anche perché sarà sempre "True" in quanto myDB è diverso da Nothing, sebbene rimanga inutilizzabile poiché hai fatto Dispose() dell'oggetto a cui la variabile fa riferimento, quindi è pure fuorviante.le 2 sub che richiamo (creaMyDB e killMyDB) sono queste [...]
Semplificare, semplificare, semplificare.![]()
MARCO BREVEGLIERI
Software and Web Developer, Teacher and Consultant
Home | Blog | Delphi Podcast | Twitch | Altro...