- Blob图片数据查询
//数据表中的Blob数据是用OLE方式存放的
blob part_pic
string partno
partno=sle_1.text
selectblob part_photo into :part_pic from product_photo where partno=:partno using mytrans;
if mytrans.sqlcode=-1 then
messagebox("Information","SQL语句出错")
else
if mytrans.sqlcode=100 then
messagebox("Information","未查询到数据")
else
ole_1.objectdata=part_pic
end if
end if
- Blob图片数据更新