Discussion :

[zidane2]

Bonjour à tous
Comme on m'a proposé ici, j'ai fais un lien au dossier des images.
Tout se passe bien sauf un problème que je viens de remarquer pour l'instant.
Dans ma base de données, il y'a des noms avec leurs photos et d'autre non.
Par exemple 'x' a une photo mais 'y' non.
Quand je fais appel a 'x' à l'aide du bouton cmd_recherche, sa photo apparrait dans image.picture et c'est normal parce que j'ai ajouté son image lors de son enregistrement. Mais ce qui anormal est que lorsque je cherche 'y' l'image de 'x' apparait dans image-picture mème si on l'a pas enregistré une image.
Cependant si je commence la recherche par 'y' tout se passe bien.
le code de recherche dont je me sert est ceci:

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
 
     If Text1.Text = "" Then
       MsgBox "Veuiller saisir un nom à rechercher", vbInformation + _
                     vbMsgBoxRtlReading + vbOKOnly, "Attention"
End If
 
If Text1.Text <> "" Then
If IsNumeric(Text1) = False Then
    Set RS = New ADODB.Recordset
RS.Open "select * from table1 where nom like '%" & Text1.Text & "%' And prenom like '%" & Text2.Text & "%'", DB, adOpenStatic, adLockOptimistic
       If RS.RecordCount > 0 Then
 
 
   End If
 Text1.Text = RS!Nom
 
 Text2.Text = RS!Prenom
 Text3.Text = RS!age
 Text4.Text = RS!date
 Text5.Text = RS!tel
 Text6.Text = RS!plan
 Text7.Text = RS!obs
 Text8.Text = RS!type_trait
  Text9.Text = RS!image
  Text10.Text = RS!photo_type
  Text11.Text = RS!photo_source
Else
   MsgBox "Aucune fiche avec ce nom", vbInformation + _
                     vbMsgBoxRtlReading + vbOKOnly, "Attention"
    End If
    Text1.SetFocus
End If
End If

merci de votre patience avec moi

[SfJ5Rpw8]

ne manque t'il pas le code ou tu charge l'image ?

[zidane2]

Désolé
Voici le code que j'utilise pour l'insertion d'image:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub inserer_image_Click()
On Error Resume Next
    cd.CancelError = True
    cd.Filter = "Image Files (*.gif; *.jpg*.Bmp*.ICO)| *.gif;*.jpg;*.Bmp;*.ICO"
    cd.DialogTitle = "Picture"
    cd.ShowOpen
    PicFile = cd.FileName
    Text10.Text = cd.FileTitle
    Image1.Picture = LoadPicture(PicFile)
    Text11.Text = PicFile
 
 Exit Sub
End Sub

Et ce code pour cmd-enregestrer

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
Set RS = New ADODB.Recordset
RS.Open "select * from table1 " & _
        " where nom    = '" & Text1.Text & "' " & _
        "   and prenom = '" & Text2.Text & "'", _
        DB, adOpenDynamic, adLockOptimistic
      If Not RS.BOF Then
FileCopy (PicFile), App.Path & "\image" & "\" & (Text10)
Text9.Text = App.Path & "\image\" & (Text10)
     RS!Nom = Text1.Text
            RS!Nom = Text1.Text
            RS!Prenom = Text2.Text
            RS!age = Text3.Text
            RS!date = Text4.Text
            RS!tel = Text5.Text
            RS!plan = Text6.Text
            RS!obs = Text7.Text
            RS!type_trait = Text8.Text
            RS!image= Text9.Text
             RS!photo_type= Text10.Text
            RS!RS!photo_source = Text11.Text
RS.Update
 
    Else
     RS.AddNew
RS!Nom = Text1.Text
            RS!Nom = Text1.Text
            RS!Prenom = Text2.Text
            RS!age = Text3.Text
            RS!date = Text4.Text
            RS!tel = Text5.Text
            RS!plan = Text6.Text
            RS!obs = Text7.Text
            RS!type_trait = Text8.Text
            RS!image= Text9.Text
             RS!photo_type= Text10.Text
            RS!RS!photo_source = Text11.Text
RS.Update
 
 Exit Sub
 End If
 Else
    MsgBox "Veuiller remplir les champs", vbMsgBoxRtlReading + vbCritical _
             + vbOKOnly, "Erreur"
    RS.MoveNext
 
 End If

merci

[guefrachi]

Mais ce qui anormal est que lorsque je cherche 'y' l'image de 'x' apparait dans image-picture mème si on l'a pas enregistré une image.
Cependant si je commence la recherche par 'y' tout se passe bien.

je n'ai pas bien examiné le code mais d'après ce que tu dis peut être tu dois vérifier que tu "vides" image.picture avant chaque recherche (au début de la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub cmd_recherche_Click()
image1.Picture = 0 'ça doit être faux mais ça serait une chose comme ça (je n'ai pas travaillé avec les picturebox)  
....
.....
....
end

[zidane2]

merci guefrachi mais j'ai reçu un message 'type mismatch' lors de l'éxéction du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image1.Picture = 0

[guefrachi]

j'ai bien dis que c'est faux, je t'ai donné l'idée qui peut te résoudre le problème, il faux chercher la bonne syntaxe, je vais essayer avec toi.

[zidane2]

merci . j'attends avec impatience!

[guefrachi]

merci . j'attends avec impatience!

j'ai cru qu'on va chercher ensemble
trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image1.Picture = LoadPicture(none)' j'ai remarqué qu'on peut mettre au lieu de none n'importe quel nom (à condition qu'il ne soit pas celui d'une image existante)

[zidane2]

j'ai cru qu'on va chercher ensemble

J'ai déja passé 4 ou 5 heures en recherche mais en vain.
Pour ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image1.Picture = LoadPicture(none)

message:
variable not defined
( none) sellectionné
Donc le programme n'a pas reconnu 'none'
merci

[SfJ5Rpw8]

Je vois toujours pas :

ne manque t'il pas le code ou tu charge l'image ?

je parle bien sur du moment ou tu as ton problème, d'affichage... tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Text11.Text = RS!photo_source

mais ensuite il est ou le code qui affiche l'image dont le nom de fichier est contenu dans Text11.text .?

[zidane2]

Bonjour bbil

mais ensuite il est ou le code qui affiche l'image dont le nom de fichier est contenu dans Text11.text .?

Celui-ci je pense:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text11.Text = PicFile

En fait, je me sert seulement des trois codes cmd_inserer , cmd_enregestrer et cmd_rechercher et je ne sait pas si je dois ajouter autres codes.
Mais je dois noter qu'avec le code cmd_inserer et cmd_enregistrer, les images se chargent dans le dossier des images et je peux les enregistrer des la base de données. Le problème que je confronte est avec le cmd_recherche comme je viens de décrire la situation dans mon premier message.
merci

[SfJ5Rpw8]

ben dans le code que tu nous as posté dans ton cmd_rechercher il n'y as rien qui met a jour ton contrôle image ... fait une recherche de Image1.Picture dans ton code pour voir comment celui-ci est renseigné..

Attention aussi a ton emploi de "On Error Resume Next", cette instruction permet de "masquer" les erreurs programmes ... mais ensuite lors d'erreur il faut voir si en fonction de ton cas il faut ou pas gérer cette erreur ...
Le mieux est que tant que tu ne maitrise pas son fonctionnement est d'éviter son utilisation et supprimer ces lignes "On Error Resume Next"

[guefrachi]

message:
variable not defined
( none) sellectionné
Donc le programme n'a pas reconnu 'none'

bon, ça marchait pour moi car je n'ai pas mis "option explicit" , j'ai trouvé ici comment le faire proprement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image1.Picture = nothing

[zidane2]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

image1.Picture = nothing

[/QUOTE]

Je ne sais vraiment comment te remercier.
ça bien marché.
Merci beaucoup

[guefrachi]

Je ne sais vraiment comment te remercier.

il n'y pas de quoi