bonjour tout le monde,

tout court, je viens d'écrire le code suivant :

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
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Cn.Open()
        Try
            rq1 = "insert into odl_dec VALUES ( '" & TextBox1.Text & "','" & desveh.Text & "','" & Val(tailledelot.Text) & "','" & reftissu.Text & "','" & desigtissu.Text & "','" & placement.Text & "','" & effstd.Text & "','" & Val(longmat.Text) & "','" & Val(largmat.Text) & "','" & Val(nblz.Text) & "','" & Val(totlineaire.Text) & "','" & Val(surfacetot.Text) & "','" & Val(surfaceuti.Text) & "',GetDATE())"
            cmd = New SqlCommand(rq1, Cn)
            If cmd.ExecuteNonQuery() Then
                MsgBox("odl saved successfully")
            Else
                MsgBox("try to save again")
            End If
        Catch ex As SqlException
            MessageBox.Show(ex.Message)
        End Try
        Cn.Close()
    End Sub
mais lors de l'execution j'ai eu le message suivant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
'The connection was not closed. The connection's current state is open.'
j'ai essayé alors de mettre cn.close après chaque instruction
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
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Cn.Open()
        Try
            rq1 = "insert into odl_dec VALUES ( '" & TextBox1.Text & "','" & desveh.Text & "','" & Val(tailledelot.Text) & "','" & reftissu.Text & "','" & desigtissu.Text & "','" & placement.Text & "','" & effstd.Text & "','" & Val(longmat.Text) & "','" & Val(largmat.Text) & "','" & Val(nblz.Text) & "','" & Val(totlineaire.Text) & "','" & Val(surfacetot.Text) & "','" & Val(surfaceuti.Text) & "',GetDATE())"
            cmd = New SqlCommand(rq1, Cn)
            If cmd.ExecuteNonQuery() Then
                MsgBox("odl saved successfully")
                Cn.Close()
            Else
                MsgBox("try to save again")
                Cn.Close()
            End If
        Catch ex As SqlException
            MessageBox.Show(ex.Message)
        End Try
        Cn.Close()
    End Sub
mais j'ai toujours le meme msg d'erreur, je sais pas à quel niveau je dois fermer la connexion pour éviter ce problème

merci d'avance pour vos réponses