1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Dim myReader As SqlDataReader
Dim CommandText As String
' Connection à la base de données
Dim cn As New SqlConnection()
cn.ConnectionString = ConfigurationSettings.AppSettings("WTS_ExtraSQL")
cn.Open()
CommandText = "INSERT INTO wts_messagerie_interne(expediteur,destinateur,objet,contenu_message) VALUES ('" & txtExp.Text & "', '" & txtDest.Text & "', '" & txtObj.Text & "', '" & txtExp.Text & "')"
Dim cmd As New SqlCommand(CommandText, cn)
myReader = cmd.ExecuteReader()
myReader.Read()
End Sub
Protected Sub Btn_annul_envoi_Click(ByVal sender As Object, ByVal e As System.EventArgs)
end sub |
Partager