Bonjour, je me lance dans la POO vb.net mais je rencontre un problème avec ma classe de connexion.

Voici mon code et l'erreur que j'ai lorsque je tente de m'identifier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
''' Gère la connexion à la base de donnée

Public Class DataBaseConnexion

#Region "Fields"
    
    ' chaine de connexion
    Private _connexionString As String
 
    ' objet de connection à la base de donnéee
    Private _connexion As SqlConnection

#End Region

#Region "properties"
    
   ''obtient ou définit l'objet de connexion à la base
    
    Public Property Connection() As SqlConnection
        Get
            Return Me._connexion
        End Get
        Set(ByVal value As SqlConnection)
            Me._connexion = value
        End Set
    End Property

    
   '' obtient ou définit la chaine de connexion de la base donnée
    
    Public Property ConnexionString() As String
        Get
            Return Me._connexionString
        End Get

        Set(ByVal value As String)
            Me._connexionString = value
        End Set

    End Property

#End Region

#Region "methods"


    
  ''' créer la connexion à la base de donnée
    
    Public Function CreateDatabaseConnection() As Boolean
        Dim result As Boolean = False

        Try
            'instanciation de l'objet de connexion
            Me._connexion = New SqlConnection

            'donne la chaine
            Me._connexion.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\cyril\Documents\Visual Studio 2008\Projects\projet stage\WebApplication3\App_Data\bddLogim.mdf;Integrated Security=True;User Instance=True;MultipleActiveResultSets=True;"

            Me._connexion.Open()
            result = True

        Catch ex As Exception
            Throw ex

        End Try

        Return result

    End Function

    
   '' Execute la requete SQL en paramètre
   
    Public Function ExecuteSQLQuery(ByVal sqlQuery As String) As SqlDataReader
        Dim result As SqlDataReader
        Dim sqlCommand As SqlCommand

        Try
            'formatage de la requete sql
            sqlCommand = New SqlCommand(sqlQuery, Me._connexion)
            'lance l'execution de la requete
            result = sqlCommand.ExecuteReader
        Catch ex As Exception
            Throw ex
        End Try --->> ExecuteReader : la propriété Connection n'a pas été initialisée.

        Return result

    End Function
#End Region

End Class

Pouvez vous me dire se qui ne va pas car étant débutant je ne sais pas trop ou chercher.