Protected Sub btn_envoi_msg_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim InsertText, lblMsg As String
Dim j As Integer
Dim int_Admin As Integer = 0
Dim int_Fact As Integer = 0
Dim int_Devis As Integer = 0
' Connection à la base de données
Dim cn As New SqlConnection()
cn.ConnectionString = ConfigurationSettings.AppSettings("BDD")
cn.Open()
'création d'un mail
InsertText = "INSERT INTO BDD_messagerie_interne(expediteur,destinateur,objet,message)
VALUES (lb_expediteur.Text, lb_destinataire.Text lb_objet, txtmsg )"
Dim Ins1 As New SqlCommand(InsertText, cn)
Try
j = Ins1.ExecuteNonQuery()
lblMsg = "l'Agent a été Ajouté"
Response.Redirect("accueil_societe.aspx")
Catch ex As Exception
lblMsg = "erreur lors de l'ajout"
End Try
Ins1 = Nothing
cn.Close()
End Sub
Pour trouver sans chercher,il faut avoir longtemps cherché sans trouver.