filecopy acces image pb chemin acces

**Alex35** · 23/05/2006, 12h56

Bonjour voila j'ai un petit programme qui me permet d'enregsitrer le chmine de photo dans une base access, lorsque je charge une photo dans mon appli, je fais "FileCopy" pour copier la photo dans un répertoire de mon appli.
Mais lorsque je veux charger ces photos a partir du répertoire dans mon appli il me dit "Pb 75, erreur dans le chemin d'accés..." alors que c'est le bon chemin...
Je ne vois pas trop ou est le probleme, si quelqu'un pouvait m'aider!
D'avance merci

**jmfmarques** · 23/05/2006, 12h58

montre le code utilisé :
- pour le Filecopy
- pour le chargement

Mais, avant : lis à quoi sert Doevents (aide en ligne)... on ne sait jamais ...

**Alex35** · 23/05/2006, 14h40

donc la je charge ma photo et je l'affiche dans une image box :

Code :

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

1
2
3
4
5
6
 
CommonDialog1.ShowOpen
strChemin_S = CommonDialog1.FileName
If strChemin_S <> "" Then
photo.Picture = LoadPicture(strChemin_S)
End If

ensuite je l'enregistre dans ma base en en faisant une copie:

Code :

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

1
2
3
4
5
6
7
 
strChemin_D = App.Path & "\photo\" & CommonDialog1.FileTitle
FileCopy strChemin_S, strChemin_D
RqSql = "INSERT INTO Contact (Nom, Prenom, Adresse, CP, Ville, Tel, Gsm, Photo, Cat_id) VALUES(' " _
        & strNom & " ',' " & strPre & " ',' " & strAdresse & " ',' " & strCP & " ',' " & strVille _
        & " '," & intFixe & "," & intGsm & ",' " & strChemin_D & " '," & idcat & ")"
Call exerec

ensuite pour la retrouver je cherche dans ma base, je charge le chmin dans une variable string et je la charge ds une image box

Code :

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

1
2
3
 
 temp = Record("Photo")
photo.Picture = LoadPicture(temp)

mais la : photo.Picture = LoadPicture(temp)
cette fois il me dit qu'il y a une erreur dans le chemin d'accés!

par contre pour le DoEvents, c'est pour savoir les forms de vb d'ouverte si j'ai bien compris...
Mais a quoi ce la pourrait il me servir?

**jmfmarques** · 23/05/2006, 14h47

1) le doevents (aide en ligne) rend la main au système (ici pour qu'il ait le temps de faire sa copie!...)
2) as-tu au moins essayé, avant de "poster" de faire un msgbox temp ?

**Alex35** · 23/05/2006, 14h52

euh oui evidemment...
il me fait bien ma copie, et lorsque je fais le msgbox y a bien le chemin en question...
De plus m'a copie elle fait elle il n'y a pas de probleme dans ma base access il y a bien le chemin de ma nouvelle photo mais elle ne se charge pas dans mon image box...
Et lorsque je met le chemin(le meme que celui de temp lorsque je fais msg box) de ma photo en dur ca marche...
je ne comprend pas

Lorsque je fais:

Code :

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

1
2
3
 
temp = "C:\Documents and Settings\alee rou\Bureau\Projet_Actions\Annuaire\photo\IMGP0966.JPG"
 photo.Picture = LoadPicture(temp)

ce la marche
mais lorsque je recupere ce MEME chemin de ma base de données, la tout de suite ca ne marche plus!!!!
C'est le meme chemein
PLEASE HELP!!!!!

**jmfmarques** · 23/05/2006, 15h14

1) le msgbox est déjà, en soi, un facteur d'attente ...
2) montre-nous le texte qu'affiche msgbox temp, que l'on voie !
3) quelle est la nature exacte du contrôle photo (pictureBox ou contrôle image ?)

**Alex35** · 23/05/2006, 16h48

ok merci de ton attentio mais g trouvé la cause du probleme!!!

enfin une partie....

mais bon, donc voila le proble etait que lorsque j'enregistrai dans ma base le chemin je faisai :
commondialog1.fileName
alors qu'il faut juste
commondialog1.filetitle
donc ca c bon mais juste une derniere chose lorsque j'enregistre dans ma base avec fileTitle il me prend un espace avant de prendre le nom de la photo donc quand je le recréé por le charger dans mon imageBox en faisant App.path&"\photo\"&(ce qu'il y a dans ma base, exemple Wam.JPG)
il prend en fait " Wam.JPG" avec un espace!
Quelqu'un aurait une solution s'il vous plait!!!!

**jmfmarques** · 23/05/2006, 17h13

essaye un Trim

**Alex35** · 23/05/2006, 17h17

un koi?.....

mais lorsque j'enregistre ma photo je fais
strchemin_D = app.path & "\photo\" & " " & commondialog1.filetitle
et bah la ca passe!
bidouille mais bon...

**jmfmarques** · 23/05/2006, 17h21

TRIM !
Trim(" titi ") ====> "titi"

**jmfmarques** · 23/05/2006, 17h24

bidouille mais bon...

Ben non ! Pas bidouille du tout !
Tu aurais atteint (et là oui : bidouille) le même résultat en envoyant dans un tremplin (label) puis en récupérant !

**Alex35** · 23/05/2006, 17h32

ok merci je ne connaissai pas trim je vais voir mais merci pour tout!

**jmfmarques** · 23/05/2006, 17h36

Arrête !
Même le trim ne réparera pas (je le sais ...

)
C'est du à un caractère devant (le 0)... Il ne "disparait" pas par un trim !

**Alex35** · 23/05/2006, 19h18

ouais j'ai vu ca ne change rien mais ma technique marche plutot bien c'est le principal!!
++

**Alex35** · 24/05/2006, 11h38

Envoyé par jmfmarques

C'est du à un caractère devant (le 0)... Il ne "disparait" pas par un trim !

Mais avec mes modifications (UPDATE) j'ai l'impression qu'il rajoute ce caractere tout le temps et a la longue mon nom ets trop long puisqu'il n'est plus "Alex" mais " Alex ", est ce que tu sais comment faire pour resoudre ce probleme?? stp

**jmfmarques** · 24/05/2006, 11h49

Envoie-le dans un label invisible et récupère-le (comme dit plus haut) et il sera correct.

**Alex35** · 24/05/2006, 12h37

bah c'est ce que j'ai fai mais j'i toujours le meme probleme ca ne change rien de l'envoyer dans un label invisible...

(just c'est bien dans la propriete caption qu'il faut charger mon texte où il faut supprimer les caracteres invisibles devant et apres!)
Please help je ne comprend pas du tout a quoi c'est du et ca menerve!!!