Bonjour,

J'ai un petit probleme que j'essaye de savoir comment le résoudre :
J'execute une transaction et se valide, mais si j'essaye de la réxecuter avec autre valeur dans les champs"un autre enregistrement" je recois l'exeption que la connexion est fermé !!
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
 
Dim myConnection As SqlConnection
        myConnection = CType(Session("myConnection"), SqlConnection)
        Using myConnection
            Dim transaction As SqlTransaction = myConnection.BeginTransaction()
            Dim commande As SqlCommand = myConnection.CreateCommand()
 
            commande.Transaction = transaction
            Try
                commande.CommandText = "INSERT INTO commission ([type_commission],[date_commission]) VALUES(@type_commission,@date_commission)"
                commande.Parameters.AddWithValue("@type_commission", Convert.ToString(TypeComm.SelectedValue))
                commande.Parameters.AddWithValue("@date_commission", Convert.ToDateTime(DateComm.Text))
                commande.ExecuteNonQuery()
        Catch Ex As Exception
                transaction.Rollback()
                'MsgBox(Ex.Message)
            Finally
 
            End Try
        End Using
Mais si je recharge la page à nouveau ça me donne la main à insérer un enregistrement à nouveau.

Sachant que j'ouvre et je ferme la connexion dans mon fichier global.asax.
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
 
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Se déclenche lorsque la session est démarrée
        Dim myConnection As SqlConnection
        myConnection = New SqlConnection()
        myConnection.ConnectionString = "Data Source=LHOUSSAIN-PC\SQLEXPRESS;Initial Catalog=basedossier;Integrated Security=True"
        myConnection.Open()
        Session("myConnection") = myConnection
        Session("numero") = ""
    End Sub
Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Se déclenche lorsque la session se termine
        Dim myConnection As SqlConnection
        myConnection = CType(Session("myConnection"), SqlConnection)
        myConnection.Close()
    End Sub
Votre aide soit le bienvenue.