Bonjour a tous,

Comme je l'ai mentionné dans le titre j'ai eu erreur
ExecuteNonQuery : la propriété Connection n'a pas été initialisée.
quand j’exécute ma fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
    Public connectionString As String = "Data Source=JEROME-PC\SQLEXPRESS;Initial Catalog=MonAlbum;Integrated Security=True"
 
   Public Sub OuvrirConnexion()
        Dim connexion As SqlConnection = New SqlConnection(connectionString)
        connexion.Open()
    End Sub
    Public Sub FermerConnexion()
        Dim connexion As SqlConnection = New SqlConnection(connectionString)
        connexion.Close()
    End Sub
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
 
    Public Sub AjouterUtilisateur(ByVal newUser As MonAlbumLibrairie.Utilisateur) Implements ImyService.AjouterUtilisateur
 
        Dim query As String
        query = "INSERT INTO utilisateur (nom, prenom,adresse,idNiveau,pseudo,password) "
        query += "VALUES (@nom,@prenom,@adresse,@idNiveau,@pseudo,@password)"
 
        Dim cxString As New SqlConnection("Data Source=JEROME-PC\SQLEXPRESS;Initial Catalog=MonAlbum;Integrated Security=True")
        Dim commande As SqlCommand = New SqlCommand(query)
        OuvrirConnexion()
        With commande.Parameters
            .Add("@nom", SqlDbType.NVarChar, 50)
            .Add("@prenom", SqlDbType.NVarChar, 50)
            .Add("@adresse", SqlDbType.VarChar)
            .Add("@idNiveau", SqlDbType.Int)
            .Add("@pseudo", SqlDbType.VarChar, 15)
            .Add("@password", SqlDbType.VarChar, 10)
        End With
 
        With commande
            .Parameters("@nom").Value = newUser.nom
            .Parameters("@prenom").Value = newUser.prenom
            .Parameters("@adresse").Value = newUser.adresse
            .Parameters("@idNiveau").Value = newUser.idNiveau
            .Parameters("@pseudo").Value = newUser.pseudo
            .Parameters("@password").Value = newUser.password
        End With
 
        OuvrirConnexion()
        commande.ExecuteNonQuery()
        FermerConnexion()
    End Sub
Merci de votre aide