1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Protected Sub Save_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Save.Click
ds = New DataSet()
da.Fill(ds, "utilisateur")
Dim row As DataRow = ds.Tables("utilisateur").NewRow()
row[1] = username.text
row[2] = password.text
row[3] = repeat_password.text
row[4] = nom.text
row[5] = prénom.text
row[6] = centre.text
row[7] = service.text
row[8] = adresse_mail.text
If row[2] = row[3] Then
ds.Tables("utilisateur").Rows.Add(row)
Dim cmdbl As New SqlCommandBuilder(da)
da.Update(ds, "stg")
Else
MsgBox("erreur ")
End If
End Sub |