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
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
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
 
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