bonjour quelqu'un peut m'aider
mais ça marche pas
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
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
Partager