ExecuteNonQuery : la propriété Connection n'a pas été initialisée.

Bonjour a tous,

Comme je l'ai mentionné dans le titre j'ai eu erreur

Citation:

quand j’exécute ma fonction :

Code:

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:

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

Le problème est que tu n'utilises pas la connexion que tu ouvres.
Il faut faire quelque chose comme
Code:

1 2 3 4 Dim connexion As New SqlConnection("Data Source=JEROME-PC\SQLEXPRESS;Initial Catalog=MonAlbum;Integrated Security=True") connexion.Open() Dim commande As SqlCommand = New SqlCommand(query, connexion)

ou faire commande.connection = mavariableconnection

rien n'est implicite, il n'y a pas une connexion par application, il peut même y avoir plusieurs connexions ouvertes sur des bases différentes, c'est pour ca qu'il est normal de dire à un command (requete) où il doit s'exécuter

Ah oui effectivement, mais ou avais-je la tête :calim2::calim2:

Merci a vous deux. :ccool::ccool::ccool: