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
| Private Sub saveContact()
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
Try
If TbProduits.Text <> "" And TbPrix.Text <> "" And TbCireepiloderm.Text <> "" Then
sqll = "insert into soins([ID], [produits], [prix], [epiloderm])" &
"values(?,?,?,?)"
Dim cmdd As OleDbCommand = New OleDbCommand(sqll, conn)
cmdd.Parameters.Add(New OleDbParameter("ID", CType(TbID.Text, String)))
cmdd.Parameters.Add(New OleDbParameter("produits", CType(TbProduits.Text, String)))
cmdd.Parameters.Add(New OleDbParameter("prix", CType(TbPrix.Text, String)))
cmdd.Parameters.Add(New OleDbParameter("epiloderm", CType(TbCireepiloderm.Text, String)))
Try
cmdd.ExecuteNonQuery()
cmdd.Dispose()
conn.Close()
MessageBox.Show("Produits/Services Ajouté")
clearChamps()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Else
MessageBox.Show("Remplir tous les champs")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
BtnAjouter.Enabled = True
BtnSupprimer.Enabled = True
BtnModifier.Enabled = True
End Sub |
Partager