奇怪，我把jpg图片用 insert 存入数据库中，取出时，怎么也不能将其还原到图片控件上。

[fishead37]

写入：
//上传照片
string ls_path, ls_name
blob lb_pic
integer value, li_loops
Long ll_hand, ll_file_l
String ls_emp_id
ls_emp_id = Trim(dw_1.GetItemString(dw_1.GetRow(),'emp_id'))
value = GetFileOpenName("请选择员工的照片:", ls_path, ls_name,"BMP", "BMP文件(*.BMP)," + &
"*.BMP, GIF文件(*.GIF),*.GIF, Jpg文件(*.jpg),*.jpg")

ll_file_l=filelength(ls_path)
IF ll_file_l > 32765 THEN
IF Mod(ll_file_l, 32765) = 0 THEN
li_loops = ll_file_l/32765
ELSE
li_loops = (ll_file_l/32765) + 1
END IF
ELSE
li_loops = 1
END IF
IF value = 1 THEN
ll_hand = FileOpen(ls_name,StreamMode!)
FileRead(ll_hand, lb_pic)
FileClose(ll_hand)
End If

Insert Into empployee_pic
values (:ls_emp_id, :lb_pic);
commit;
p_1.setpicture(lb_pic)
p_1.Width = 418
p_1.Height = 512
p_1.visible=true
但是我读取表中的数据进行， 还原到p_1中时， 没有任何显示？？“？？
//当读取当前员工资料后，就将照片传给p_1
Blob lb_pic
String ls_emp_id
If rowcount = 0 Then Return
ls_emp_id = This.Object.emp_id[This.GetRow()]
messagebox('',ls_emp_id)

sqlca.autocommit=true
SelectBlob emp_pic Into :lb_pic
From empployee_pic Where emp_id = :ls_emp_id;
if sqlca.sqlnrows>1 then
sqlca.autocommit=false
messagebox("提示","读取物料图片时出错")
return
end if
sqlca.autocommit=false
if sqlca.sqlcode=100 or isnull(lb_pic) then return
messagebox('',1)
p_1.SetPicture(lb_pic)
p_1.Height = 512
p_1.Width = 480
p_1.Visible = True

[鸡翅多]

blob数据不能用insert，只能用updateblob