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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
| Imports System.Data.SqlClient
Public Class forminscription
Dim con As New SqlConnection
Private Sub forminscription_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("--Selectionner un groupe--")
ComboBox1.SelectedIndex = 0
con.ConnectionString = "Data Source=WIN-DCM2QL793CF;Initial Catalog=maboutiquedb;Integrated Security=True"
con.Open()
Try
Dim req As String = "SELECT * FROM groupes_utilisateurs"
Dim execu As New SqlDataAdapter(req, con)
Dim res As New DataSet
execu.Fill(res)
con.Close()
For Each oRow As DataRow In res.Tables("Table").Rows
ComboBox1.ValueMember = "id_grp"
ComboBox1.DisplayMember = ComboBox1.Items.Add(oRow.Item("nom_grp"))
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub btajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btajout.Click
con.Open()
Try
Dim cmd As New SqlCommand(("INSERT INTO utilisateurs VALUES ('" & _
txtidutili.Text & "','" & _
ComboBox1.Text & "','" & _
txtnomutili.Text & "','" & _
txtmdp.Text & "','" & _
txtnomfautili.Text & "','" & _
txtprenomutili.Text & "','" & _
txtemailutili.Text & "','" & _
txtbputili.Text & "', SYSDateTime(), '" & _
txtetatcompte.Text & "','" & _
txtnumteleutili.Text & "')"), con)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Success ...", MsgBoxStyle.Information, "L'utilisateur a ete correctement ajouter")
txtidutili.Focus()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
End Class |
Partager