Discussion :

[étudiant49]

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.

[Pol63]

si tu n'exécutes pas CreateDatabaseConnection avant d'appeler l'exécution de la requete c'est normal que ca plante

sinon ta classe pourrait etre mieux, si tu as besoin d'une seule connexion, tu pourrais mettre la création de la connexion dans le sub new
et dans ce cas pas besoin de variable chaine de connexion
(d'ailleurs il n'y a pas besoin d'une propriété pour le connection, une variable suffit, enfin je ne pense qu'avoir accès à cette variable de l'extérieur soit utile)

il faudrait que l'open soit dans l'exécution
et il fautdrait disposer la connexion sur le dispose de ta classe (implémenter IDisposable)


et à la place de la fonction ExecuteSQLQuery
il te faudrait ExecuteNonQuery et ExecuteReader (l'une pour les insert/delete/update qui retourne un boolean ou un integer quand ca passe et throw une exception quand ca passe pas et l'autre pour les select qui retourne un datareader)

[étudiant49]

oula beaucoup d'info d'un coup pour un novice

mais je pense avoir saisi l'essentiel , je vais tester ca et si j'ai des questions je repasserai.

Merci