bonjour tout le monde,
tout court, je viens d'écrire le code suivant :
mais lors de l'execution j'ai eu le message 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
j'ai essayé alors de mettre cn.close après chaque instruction
Code : Sélectionner tout - Visualiser dans une fenêtre à part 'The connection was not closed. The connection's current state is open.'
mais j'ai toujours le meme msg d'erreur, je sais pas à quel niveau je dois fermer la connexion pour éviter ce problème
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
merci d'avance pour vos réponses
Partager