BONJOUR
je veux faire une interface qui donne a utilistaeur d'envoyer un msg a l'admin est ce que qlq un peux m'aider merci d'avance
et dand le modul j'ai fait
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 Protected Sub Buttonsubmit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Buttonsubmit.Click load_msg() Dim row As DataRow = ds.Tables("msg").NewRow() row("nom") = txtUsername.Text row("email") = txtemail.Text row("msg") = txtmessage.Text ds.Tables("msg").Rows.Add(row) da.Update(ds, "msg") ClearControles2() Response.Redirect("erreurs.aspx") End Sub Sub ClearControles2() txtUsername.Text = "" txtemail.Text = "" txtmessage.Text = "" End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Public ds As New DataSet Public da As New SqlDataAdapter("select * from message", C) Public Sub load_msg() Try ds.Tables("msg").Clear() Catch End Try dap.Fill(ds, "msg") End Sub
Partager