Solved

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

Posted on 2013-01-30
1
386 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

Industry Leaders: 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

Suggested Solutions

Windows Script Host (WSH) has been part of Windows since Windows NT4. Windows Script Host provides architecture for building dynamic scripts that consist of a core object model, scripting hosts, and scripting engines. The key components of Window…
This article is meant to give a basic understanding of how to use R Sweave as a way to merge LaTeX and R code seamlessly into one presentable document.
The goal of the video will be to teach the user the concept of local variables and scope. An example of a locally defined variable will be given as well as an explanation of what scope is in C++. The local variable and concept of scope will be relat…
The viewer will learn how to use the return statement in functions in C++. The video will also teach the user how to pass data to a function and have the function return data back for further processing.

734 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