Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

how to get a picture file from a server folder using vb6

Posted on 2013-01-30
1
Medium Priority
?
394 Views
Last Modified: 2013-01-30
Hi guys,

I'm working in an application that works like a contacts and each one has a its own picture face, the aplication already select the picture, show it on the form, rename it and save it in a server folder, the rest of the information is saved in a MySQL Database.

Each record has its own Id key number so, the picture is renamed with the same Id Key number.

Now I need to edit the record and show the corresponding picture image on the form.

This is the code to save the file:

    If lSihayfoto = True Then
        rsFotos!Consecutivo = (nCveFoto + 1)
        rsFotos.Update
        rsFotos.Close
        '***** LA SIGUIENTE RUTINA COPIA, RENOMBRA Y GUARDA LA FOTO EN C:\CCIME\Temp *****
        '***** DESPUES LA GUARDA EN EL SERVIDOR YA RENOMBRADA CON EL NUMERO CONSECUTIDO DE FOTOS *****
        cString = Trim(txtBuscaFoto.Text)
        Name cString As "C:\CCIME\Temp\" & Format(cCveFoto, "0000") & ".jpg"
        Set oFSO = CreateObject("Scripting.FileSystemObject")
        oFSO.GetFile("C:\CCIME\Temp\" & Format(cCveFoto, "0000") & ".jpg").Copy "\\EXTLANSBS05\FotosCCIME\", True
        Kill "C:\CCIME\Temp\" & Format(cCveFoto, "0000") & ".jpg"
    End If

Now I need to get the Picture file to show it on edit-from.

Any suggestions?

Thank you so much guys.
0
Comment
Question by:elm9999
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 

Accepted Solution

by:
elm9999 earned 0 total points
ID: 38836914
Already solved

cString = "\\EXTLANSBS05\FotosCCIME\" & Format(cCveFoto, "0000") & ".jpg"
Image1.Picture=Loadpicture(cString)
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you haven’t already, I encourage you to read the first article (http://www.experts-exchange.com/articles/18680/An-Introduction-to-R-Programming-and-R-Studio.html) in my series to gain a basic foundation of R and R Studio.  You will also find the …
This article will show, step by step, how to integrate R code into a R Sweave document
This tutorial covers a step-by-step guide to install VisualVM launcher in eclipse.
The viewer will learn how to clear a vector as well as how to detect empty vectors in C++.

715 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question