[DEBUTANT] - Pb pour ajout dans une collection
Bonjour,
je souhaite créer une collection.
Dans cette collection, j'y mettrai des objets "persos"
mon code comporte 3 classes : connexion (mysql), film et mesFilms
la classe film comporte juste un constructeur qui affecte une variable privée (titre)
voici le code de la classe mesFilms
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Public Class mes_films
Public _mesFilms As Collection
Public _conn As New connexion
Dim film As film
Public Sub New()
_conn._initilize("localhost", "root", "", "films")
Dim dr As MySql.Data.MySqlClient.MySqlDataReader
dr = _conn._execSelect("SELECT * FROM films;")
While dr.Read
_mesFilms.Add(New film(dr("titre")))
End While
Dim aa As film
For Each aa In _mesFilms
MessageBox.Show(aa._titre)
Next
End Sub
End Class |
Lorsque j'execute tout ca, mon code plante sur la ligne :
Code:
_mesFilms.Add(New film(dr("titre")))
Citation:
La référence d'objet n'est pas définie à une instance d'un objet.
Quelqu'un aurait une idée ??
D'avance merci
Nic0