关于blob

Question

int   fhblob  Emp_id_picfh = FileOpen("c:\emp_100.bmp", StreamMode!)IF fh <> -1 THEN
FileRead(fh, emp_id_pic)
FileClose(fh)
UPDATEBLOB Employee SET emp_pic = :Emp_id_pic
WHERE Emp_num = 100
USING Emp_tran ;
END IFIF Emptran.SQLNRows > 0 THEN
COMMIT USING Emp_tran ;
END IF

Answer 1

Blob  Emp_id_picSELECTBLOB Emp_pic
INTO  :Emp_id_pic 
FROM Employee
WHERE Employee.Emp_Num = 100
USING Emp_tran ;
p_1.SetPicture(Emp_id_pic)