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é !!
Mais si je recharge la page à nouveau ça me donne la main à insérer un enregistrement à nouveau.
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
Sachant que j'ouvre et je ferme la connexion dans mon fichier global.asax.
Votre aide soit le bienvenue.
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
Partager