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
| Private Sub Enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enregistrer.Click
Dim rs As New ADODB.Recordset
MembreTableAdapter.Connection.Open()
trouver = False
Do While Not rs.EOF And trouver = False
If rs("Matricule") = MatriculeTextBox.Text Then
trouver = True
MsgBox("Ce membre existe déjà!", MsgBoxStyle.Information)
Exit Sub
Else
rs.MoveNext()
End If
Loop
If trouver = False Then
If TextBox2.Text = "" And TextBox3.Text = "" Then
MsgBox("Veuillez remplir le Nom et le Prénom SVP!", MsgBoxStyle.Information)
Else
rs.AddNew()
rs("Matricule").Value = MatriculeTextBox.Text
rs("Nom").Value = TextBox2.Text
rs("Prénoms").Value = TextBox3.Text
rs("dat_adhé").Value = Dat_adhéMaskedTextBox.Text
rs("Dat_naiss").Value = Dat_NaissMaskedTextBox.Text
rs("sexe").Value = ComboBox1.Text
rs("Pays").Value = TextBox5.Text
rs("Ville").Value = TextBox7.Text
rs("Stat_marital").Value = Stat_maritalComboBox.Text
rs("Lang_parlée").Value = TextBox8.Text
rs("Tel").Value = TelMaskedTextBox.Text
rs("Cel").Value = CelMaskedTextBox.Text
rs("Nbre_enf").Value = Nbre_enfNumericUpDown
rs("Typ_memb").Value = Type_membComboBox.Text
rs("Profession").Value = ProfessionTextBox.Text
rs("département").Value = DépartementComboBox.Text
rs("respo").Value = RespoTextBox.Text
rs("Autre_départ").Value = Autre_départComboBox.Text
rs.Update()
MsgBox("Membre enregisté avec succès", MsgBoxStyle.Information)
End If
End If
rs.Close()
MembreTableAdapter.Connection.Close()
End Sub |
Partager