1 2 3 4 5 6 7 8 9 10 11
| Requete = "insert into client(Nom,Adresse,Commentaires,TelFixe,TelMobile,Ville,CodePostal,Image,Mail) values('"
Requete = Requete & AjouterClientForm.TxbNom.Text & "','" & AjouterClientForm.TxbAdresse.Text & "','" & AjouterClientForm.RtbCommentaire.Text & "','" & AjouterClientForm.TxbTelFixe.Text & "','" & AjouterClientForm.TxbTelMobile.Text & "','" & AjouterClientForm.TxbVille.Text & "','" & AjouterClientForm.TxbCodePostal.Text & "','" & AjouterClientForm.TxbImage.Text & "','" & AjouterClientForm.TxbEmail.Text & "')"
Try
CommandInsert = New OleDb.OleDbCommand(Requete, ClientFormulaire.maConnexion)
File.Copy(Chemin, Destination, True)
CommandInsert.ExecuteNonQuery()
ClientFormulaire.maConnexion.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try |
Partager