Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

want to store Employee's picture and pdf resume

Status
Not open for further replies.

girishhsoman1

Programmer
Nov 6, 2006
1
US
Dear All,

Could any one please guide me how to store the employee's picture and pdf file of resume with the other information like code,firstname,lastname and birthdate. I am using powerbuilder 10.5.

Thanks in advance
Girish

 
Do you want to store those docs in a data table or in a file folder?
 
long ll, lloop, llw, llh
n_cst_filesrv inv_filesrv
Long ll_return, ll_patientID
Blob lblb_file


ll_patientID = dw_profile.object.contactid[1]
if isnull(ll_patientID) or ll_patientID < 1 then Return 1


SELECTBLOB patient_image INTO :lblb_file
FROM contacts
WHERE contactid = :ll_patientID ;


if SQLCA.SQLCODE <> 0 then
Messagebox ( 'GET IMAGE ERROR', '')
end if


if Len(lblb_file) < 10 then Return 1



f_SetFilesrv(inv_filesrv, true)


ll_return = inv_filesrv.of_FileWrite ("C:\patient.JPG", lblb_file, FALSE)

CHOOSE CASE ll_return

CASE -1

// MessageBox("Error", "Error accessing file")

CASE ELSE

// File processing goes here

END CHOOSE

f_SetFilesrv(inv_filesrv, false)



ole_image1.object.Picture = "C:\patient.JPG"





UPDATEBLOB contacts SET patient_image = :lblb_file
WHERE contactid = :ll_patientID ;





 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top