Bonjour à tous,
dans mon apprentissage d'ADO.net, je cherche aujourd'hui à faire une Sub
qui me permettrait de fermer tous les objets "DataBase" fournis en paramètres.
Les DataTables, DataAdapters...etc s'accumulent et j'aurais aimé avoir une Sub
qui s'occupe de les .Close, .Dispose et Nothing.
J'ai donc fait une Sub qui passe en paramètre un tableau d'objets,
de manière à tous les fermer l'un derrière l'autre dans une boucle "For each...".
Sans vouloir trop rentrer dans les détails, à un moment je dois faire quelque chose
qui ressemble à ça :
Je m'attends à pouvoir mettre "a" à Nothing par l'intermédiaire de "b", mais ça ne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim a As DataTable = New DataTable Dim b As DataTable = DirectCast(a, DataTable) b = Nothing 'Vérification If a IsNot Nothing Then MessageBox.Show("Pas ok")
fonctionne pas, sans message d'erreur, comme si "b" était une copie.
Comment résoudre ce problème ?
Partager