Discussion :

[hounaida nou]

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

[r.morel]

Bonjour,
Il faut utiliser l'instruction Using qui est faite pour gérer cela.
Bonne journée.

[hounaida nou]

Merci r.morel pour ta réponse
en fait oui la solution est d'utiliser le Using.

j'ai modifié mon code avec using et ça marche bien :

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
        Try
            Using Cn As New SqlConnection("Data Source=TNBENWID1038\ODL;Initial Catalog=Cutting software;Integrated Security=True;")
                Cn.Open()
                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
            End Using
        Catch ex As SqlException
            MessageBox.Show(ex.Message) 
        End Try
 
    End Sub