Discussion :

[benny-blanco]

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

[meziantou]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Pol63]

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

[benny-blanco]

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

Merci a vous deux.