Enregistrer une photo Fermé

Question

Bonjour,


Je vous informe que je travaille sur VB6 ; avec Access 2007; avec ADO


je tente d'enregistrer une photo ( extension jpg ) importée d'un dossier de photo localisé sur le bureu, dans un autre Dossier appelé (DossPhoto) situé dans le dossier où se trouve la base des données. 
Seulement ma tentation n'a pas réussie

mon code 


Private sub cmdImporter()'la boite de dialogue est désigné par ImporterPhoto'cmdImporter est le boutton de commande'ImageM est le nom de la zone imageon error goto Oks:ImporterPhoto.ShowOpenImageM=LoadPicture(ImporterPhoto.FileName)Oksend sub


le chemin du Dossier PhotoM est c:\Documents and Settings\User\Bureau\BDPersonnes\DossPhoto

Pour enregister cette photo ( je ne veux enregister le chemin mais la photo ) qui s'affiche sur ImageM, dans le dossier DossPhoto
je me suis trouvé bloqué au bout du couloir

Vos suggestions sont les bienvenues

et merci d'avance

f894009 · Answer

Bonjour,

cela revient a faire une copie de fichier d'un repertoire vers un autre.

mohalesage · Answer

Bonjour

merci pour votre réponse

pour essayer, j'ai fais :

' Créer un bouton de commande nommé cmdSelection 
 avec le code suivant :

sub Private_cmdSelection ()on error goto Oks:'Impoter est le nom de la boite de dialogueImpoter.ShowOpen'ImageM est le nom de la zone ImageImageM = LoadPicture(Importer.Filename)'CheminSource est declaré dans General  comme StringCheminSource=Impoter.FilenameOks:end sub


avec ce Code la photo s'affiche sur ImageM



'Créer un Bouton de commade nommé cmdCopier
avec le code suivant

sub Private_cmdCopier ()on error goto Oks:'CheminDestination est declaré dans General comme StringCheminDestination = "C:\Documents and Settings\user\Bureau\AppliPers\DossPhoto"'Pour copier CopyFile cheminSource , CheminDestinationOks:end sub


avec ce code rien ne se copie dans le DossPhoto


et si j'enleve 

on error goto Oks:

Oks:

le VB6 me renvoie le message 

" Impossible de trouver le chemin d'acces

Arrivé à ce point je ne comprends rien

Merci pour votre aide à trouver la solution

f894009 · Answer

Re,

1/ manque le nom du fichier dans la destination:

ex: CommonDialog1.FileTitle

2/ CopyFile n'est pas pour du VB6.0 c'est FileCopy

3/ importer ou impoter !!!!!!!!!!!!!!!!!!!!!!!!!!!!

mohalesage · Answer

Re Bonjour

pour le premier point , je n'ai pas bien compris
à mon sens le nom du fichier dans la destination est ...\DossPhoto


Pour le deuxième point, c'est erreur de ma part
c'est FileCopy que j'ai utilisé

pour le Troisième point c'est une erreur de frappe

CheminSource = Importer.Filename

Je continue à être bloqué

mohalesage · Answer

Re Bonjour

vous avez raison. 
avec importer.filetitle , le VB me donne le nom de la photo avec 
l'extension .jpg , car j'ai pu visualiser ce resultat par la création d'un label

et j'ai ecris

label1= importer.filetitle

mon problème c'est comment écrire le code juste pour copier la photo

mohalesage · Answer

Re Bonjour

je suis toujours dans l'impass

voilà mes codes

sub Private_cmdSelection ()on error goto Oks:'CommonDialogue est nommé ici " Importer"'zone réservée à l'image est nommé "ImageM"'CheminSource ( Declarée comme string ) est le chemin de l'origine de la PhotoCheminSource=loadPicture(Importer.FileNme)'Variable ImagPhoto est déclarée dans Général comme ImageImagPhoto=Importer.FileTitleOksend sub




Sub Private_cmdCopier ()'CheminSource1 est declarée comme variableCheminSource1 = CheminSource & ImagPhoto'CheminDestination est déclarée comme StringCheminDestination="C:\Documents and Settings\user\Bureau\AppliPers\DossPhoto" & ImagPhoto'Pour copier j'ai ce codeFileCopy CheminSource1 , CheminDestinationend sub
Il me manque quelque chose que je n'arrive pas à déceler

mohalesage · Answer

Re Bonjour

J'ai corrigé la CheminDestination comme vous me l'aviez suggérer. Mais toujours ce message "Chemin d'accès introuvable"

Peut être problème de type. Je ne sais pas exactement

mohalesage · Answer

Re

Enfin, j'ai réussi ma tentative. Voilà mon code



Sub Private_cmdCopier ()on error resume nextFileCopy CheminSource, "C:\Documents and Settings\user\Bureau\AppliPers\DossPhoto\" & Importer.FileTitleif Err thenmsgbox"Erreur"end ifend sub


Toute ma reconnaissance

Enregistrer une photo

8 réponses

Discussions similaires