pb里的BLOB对象操作

读

select mc into :ls_mc from wj_xd where xdlx = :ll_xd andgjdqbm = :ll_gj ;
selectblob xdnr into :lb_xdnr from wj_xd where xdlx = :ll_xd andgjdqbm = :ll_gj ;

if isnull(ls_mc) or ls_mc ='' then
sle_1.text = ''
mle_1.text = ''
else
sle_1.text = ls_mc
mle_1.text = String(lb_xdnr)
end if

写

lb_xdnr = blob(mle_1.text)
updateblob wj_xd set xdnr = :lb_xdnr;
commit;
mle_1.text=''
SELECTblob xdnr INTO :lb_xdnrFROM WJ_XD;
mle_1.text =string(lb_xdnr)