salut !
je realise une application de gestion de club sportive !
et je veux sauvgarder la photo d'un adhernet dans sa table access comme objet olé
mais quand je enregeister l'adherent , et en essayant de recherche de ce adherent il me donne un erreur d'enregistrement par une marqueur rouge dans picturbox !
voila le code de button enregistrer :
et voila le code de button rechercher :
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 Dim savinto As New OleDb.OleDbCommand Dim dtadapter As New OleDbDataAdapter(sqlAdherent, maconection) Dim fsreader As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read) Dim breader As New BinaryReader(fsreader) Dim imgbuffer(fsreader.Length) As Byte breader.Read(imgbuffer, 0, fsreader.Length) fsreader.Close() savinto.Connection = maconection savinto.CommandType = CommandType.Text savinto.CommandText = "insert into T_Adherent(Code_Adherent,Nom_Adher,Prenom_adher,Adresse_Adher,Date_naissance,CIN,Num_pasport,Tél_Adher,Profession_Adher,Nationlité_Adher,Civilité_Adher,Niveau_detude,Taill_Adher,Poid_Adher,Date_inscription,Image_Adher,Ceinture_Adher,Grade_Adher,Sexe_Adher,Type_Adher,Categorie,Entraineur,heurDentrainement,gruuup,jour_Dentrainement)" & " values('" & txt_Adherent.Text & "','" & txt_Nom.Text & "','" & txt_Prenom.Text & "','" & txt_Adresse.Text & "','" & Date_naissance.Value.ToString("dd/MM/yyy") & "','" & txt_CIN.Text & "','" & txt_Passport.Text & "','" & txt_Telephone.Text & "','" & txt_Profession.Text & "','" & txt_Nationaliter.Text & "','" & civilité & "','" & txt_NiveauEtude.Text & "','" & txt_Taille.Text & "','" & txt_Poid.Text & "','" & date_Inscription.Value.ToString("dd/MM/yyy") & "','" & str & "','" & cmb_Ceinture.Text & "','" & cmb_Grade.Text & "','" & sexe & "','" & cmb_Type.Text & "','" & cmb_Categorie.Text & "','" & txt_Entrainneur.Text & "','" & txt_heurDentrainement.Text & "','" & txt_Groop.Text & "','" & txt_jourDentrainemet.Text & "')" maconection.Open() savinto.ExecuteNonQuery() dtset.Clear() dtadapter.Fill(dtset, "T_Adherent") maconection.Close() MsgBox("votre nouveau enregistrement et bien enregistrer")
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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54 Dim rech As String = "" rech = InputBox("entrer le code d'Adherent rechercher", "programme de recherche") Dim sql_rech As String = "select * from T_Adherent where Code_Adherent LIKE '" & Val(rech) & "'" If maconection.State() Then maconection.Close() maconection.Open() Dim cmd As New OleDbCommand(sql_rech, maconection) Dim dtred = cmd.ExecuteReader Dim cv, sx As String If dtred.Read = True Then txt_Adherent.Text = dtred.Item(0).ToString txt_Nom.Text = dtred.Item(1).ToString txt_Prenom.Text = dtred.Item(2).ToString txt_Adresse.Text = dtred.Item(3).ToString Date_naissance.Text = dtred.Item(4).ToString txt_CIN.Text = dtred.Item(5).ToString txt_Passport.Text = dtred.Item(6).ToString txt_Telephone.Text = dtred.Item(7).ToString txt_Profession.Text = dtred.Item(8).ToString txt_Nationaliter.Text = dtred.Item(9).ToString cv = dtred.Item(10).ToString.Trim If cv = "M." Then Rad_M.Checked = True End If If cv = "Mlle" Then Rad_Mlle.Checked = True End If If cv = "Mmd" Then Rad_Mmd.Checked = True End If txt_NiveauEtude.Text = dtred.Item(11).ToString txt_Taille.Text = dtred.Item(12).ToString txt_Poid.Text = dtred.Item(13).ToString date_Inscription.Text = dtred.Item(14).ToString Photos.ImageLocation = dtred.Item(15).ToString cmb_Ceinture.Text = dtred.Item(16).ToString cmb_Grade.Text = dtred.Item(17).ToString sx = dtred.Item(18).ToString.Trim If sx = "Masculin" Then Rad_Masculin.Checked = True ElseIf sx = "feminin" Then Rad_Feminin.Checked = True End If cmb_Type.Text = dtred.Item(19).ToString cmb_Categorie.Text = dtred.Item(20).ToString txt_Entrainneur.Text = dtred.Item(21).ToString txt_heurDentrainement.Text = dtred.Item(22).ToString txt_Groop.Text = dtred.Item(23).ToString txt_jourDentrainemet.Text = dtred.Item(24).ToString maconection.Close() Else maconection.Close() MessageBox.Show("ce Adherent est introuvable", "erreur de rcherche", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End If
Partager