Salut a tous,
je voulais savoir pourquoi ce erreur est afficher quand j ajoute un client meme si mon aplicationn a aucun erreur, voila le code:
Private
Sub ajouter_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles ajouter.Click
Try
line = dts.Tables(
"client"
).NewRow()line(0) = cin.Text
line(1) = civ.Text
line(2) = nom.Text
line(3) = prenom.Text
line(4) = prof.Text
line(5) = sex.Text
line(6) = adr.Text
line(7) = tel.Text
'I-6 Construction de chemin plus l extensien de l'image a enregistrer a partir des variable declarer comme des tableau
'I-6-1 slatch pour splite les slatch(le chemin construit avec des ""
Dim
slatch()
As
String
= chemin_photo.Split(
""
)
'I-6-2 point pour splite l image et l'extension
Dim
point()
As
String
= slatch(UBound(slatch)).Split(
"."
)
'I-6-4 on prend l extesion d une image comme (jpg,bmp,...)
Dim
extension
As
String
= point(UBound(point))
'I-6-4 le nom de l'image a ajouter + extemsion
Dim
nomimg_ext
As
String
= cin.Text &
"."
& extension
'I-7 on copie le chemin de l image a ajoute dans la base de donne
line(8) = nomimg_ext
dts.Tables(
"client"
).Rows.Add(line)dta.Update(dts,
"client"
)
'I-8 on copie l'image dans le dossier specifie(de l'application)
File.Copy(chemin_photo, Application.StartupPath &
"\images"
& nomimg_ext)Label9.Text =
"Ce Homme a ete Ajoute Avec Succes !"
Catch
ex
As
ExceptionMsgBox(ex.Message)
End
Try
End
Sub
Afficher la suite