Member_2_6479049
asked on
how to get a picture file from a server folder using vb6
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.Fi leSystemOb ject")
oFSO.GetFile("C:\CCIME\Tem p\" & 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.
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.Fi
oFSO.GetFile("C:\CCIME\Tem
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.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.