当后台数据库为sql server2000时，在powerbuilder中如何保存datawindow中的blob类型数据

Question

这是我写的一段代码，但愿对你有用（用在保存时）：
integer bmpno,icount
string filepath,filename
blob blb_tmp
getfileopenname("请选择一个需要插入的bmp文件",filepath,filename,"bmp","bmp图片文件(*.bmp),*.bmp")
if len(filepath) = 0 then 
return
end if
if ole_1.insertfile(filepath) <> 0 then 
return
end if
select max(bmpno) into :bmpno from bmptable;
if isnull(bmpno) then
bmpno = 1
else
bmpno = bmpno + 1
end ifstring sql
sql = "insert into bmptable(bmpno,bmpdata,bmpname) values("+string(bmpno)+",'','"+filename+"')"
execute immediate :sql;
if sqlca.sqldbcode = 0 then
commit using sqlca;
else
messagebox('','插入失败')
rollback using sqlca;
return
end ifblb_tmp = ole_1.objectdata
updateblob bmptable set bmpdata=:blb_tmp where bmptable.bmpno=:bmpno using sqlca;
if sqlca.sqldbcode = 0 then 
commit using sqlca;
else
messagebox('','更新图片失败')
rollback using sqlca;
return
end ifdw_1.retrieve()