salut à tous
j'ai ecrit un code dans le but d'ajouter une ligne à une table mais j'obtiens un erreur que je n'arrive pas à comprendre l'erreur est la suivante :
must declare the scalar variable "@codemodule".
voici mon code:
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
Private Sub BoutonEnregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoutonEnregistrer.Click
        If TextBoxCodeModule.Text = "" Or TextBoxLibelleModule.Text = "" Then
            MsgBox("Vous devez remplir tous les champs avant d'ajouter une ligne à la table module.", MsgBoxStyle.Critical, "Gestionnaire de stagiaires")
        Else
            Try
                Connexion = New SqlConnection("Data Source=ordinateur;" _
                & "Initial Catalog=GestionStagiaires;Integrated Security=True")
                Connexion.Open()
                Commande = New SqlCommand("SELECT CODEMODULE FROM MODULE WHERE CODEMODULE=" & _
                TextBoxCodeModule.Text & "", Connexion)
                DataReader = Commande.ExecuteReader()
                If DataReader.HasRows Then
                    With LabelVerificateurDisponibiliteCodeModule
                        .ForeColor = Color.Red
                        .Text = "Le code saisi n'est pas disponible."
                    End With
                Else
                    DataReader.Close()
                    With LabelVerificateurDisponibiliteCodeModule
                        .ForeColor = Color.Green
                        .Text = "Le code saisi est disponible."
                    End With
                    Commande.Dispose()
                    With Commande.Parameters
                        .Add(New SqlParameter("@CodeModule", SqlDbType.Int, 4))
                        .Add(New SqlParameter("@LibelleModule", SqlDbType.VarChar, 60))
                    End With
                    With Commande
                        .Parameters("@CodeModule").Value = CInt(TextBoxCodeModule.Text)
                        .Parameters("@LibelleModule").Value = TextBoxLibelleModule.Text
                    End With
                    Commande = New SqlCommand("INSERT INTO MODULE ([CodeModule],[LibelleModule]) " _
                    & "VALUES (@CodeModule,@LibelleModule)", Connexion)
                    Commande.ExecuteNonQuery()
                End If
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Gestionnaire de stagiaires")
            Finally
                If Connexion.State = ConnectionState.Open Then
                    Connexion.Close()
                End If
            End Try
        End If
    End Sub
s'il vous plait ,est-ce que quelqu'un peut me dir quelle est la cause de cette erreur et comment je peux le corriger?
merci d'avance pour votre aide.