1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
lb.Text = "Ajouter"
GridView1.FooterRow.Cells(0).Controls.Add(lb)
Dim txt1 As TextBox = New TextBox
Dim txt2 As TextBox = New TextBox
Dim txt3 As TextBox = New TextBox
Dim ddl As DropDownList = New DropDownList
ddl.Items.Add(New ListItem(""))
ddl.Items.Add(New ListItem("identification"))
ddl.Items.Add(New ListItem("administration"))
ddl.Items.Add(New ListItem("formation"))
ddl.Items.Add(New ListItem("administrateur"))
ddl.Items.Add(New ListItem("direction"))
ddl.Items.Add(New ListItem("autre"))
GridView1.FooterRow.Cells(1).Controls.Add(txt1)
GridView1.FooterRow.Cells(2).Controls.Add(txt2)
GridView1.FooterRow.Cells(3).Controls.Add(txt3)
GridView1.FooterRow.Cells(4).Controls.Add(ddl)
AddHandler lb.Click, AddressOf lb_Click
End Sub
Sub lb_Click(ByVal sender As Object, ByVal e As EventArgs)
If txt1.Text <> "" And txt2.Text <> "" And txt3.Text <> "" And ddl.SelectedValue <> "" Then
Dim SqlQuery As String = "insert utilisateur (UserID, nom_prn, mot_pass, fct_utl) values (" & txt1.Text & ", " & txt2.Text & ", " & txt3.Text & ", " & ddl.SelectedValue & ", " & ")"
Dim MaConnexion As New System.Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrateur\Mes documents\Visual Studio 2008\Projects\GestionnairePNT\GestionnairePNT\App_Data\gestionpnt.mdf;Integrated Security=True;User Instance=True")
Dim Cmd As New System.Data.SqlClient.SqlCommand
MaConnexion.Open()
Cmd = New SqlCommand(SqlQuery, MaConnexion)
Cmd.ExecuteNonQuery()
MaConnexion.Close()
End If
End Sub |
Partager