1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Dim a As New Métier.administrateur
Try
a.connect()
Dim requete As String = "INSERT INTO administrateur VALUES ('" & TextBox9.Text & " ',' " & TextBox10.Text & " ' , ' " & TextBox11.Text & " ' ,' " & TextBox12.Text & " ' , ' " & TextBox13.Text & " ', " & TextBox14.Text & ", " & TextBox15.Text & ", ' " & TextBox16.Text & " ' )"
Dim affectedrows As Int32
affectedrows = a.inserer(requete)
MsgBox("Nombre de lignes affectées {0}", affectedrows)
Catch ex As Exception
MsgBox("données non ajoutées", MsgBoxStyle.Critical)
End Try
|