可以这样,当你选择一个图片的时候,先把他放到一个ole对象里面,然后再调用,例如:
但是必须有一个image字段,并且允许为空,如:string ls_path , ls_filename , ls_title
blob lb_object
GetFileOpenName("选择文件打开", + ls_path,ls_filename, "bmp", + "bmp Files (*.bmp),*.bmp," )
If ls_filename ="" Then return
//MessageBox("ss",string(dw_1.getrow()))
ls_title = dw_1.object.data[ dw_1.getrow() , 1 ]If ole_1.insertfile(ls_path) <> 0 then
messagebox(" " , " 打开文件失败!")
close(w_zjphoto)
return
End If
lb_object = ole_1.objectdata//提交OLE控制内的数据到数据库表中
sqlca.autocommit = TRUE
csql="update jgzjk set fzrzp=0x00" //必须赋值,否则updateblob不能执行
execute immediate csql;
updateblob jgzjk set fzrzp = :lb_object;
if SQLCA.SQLCode = -1 then
rollback;
return
end if
commit;
sqlca.autocommit = FALSE
但是必须有一个image字段,并且允许为空,如:string ls_path , ls_filename , ls_title
blob lb_object
GetFileOpenName("选择文件打开", + ls_path,ls_filename, "bmp", + "bmp Files (*.bmp),*.bmp," )
If ls_filename ="" Then return
//MessageBox("ss",string(dw_1.getrow()))
ls_title = dw_1.object.data[ dw_1.getrow() , 1 ]If ole_1.insertfile(ls_path) <> 0 then
messagebox(" " , " 打开文件失败!")
close(w_zjphoto)
return
End If
lb_object = ole_1.objectdata//提交OLE控制内的数据到数据库表中
sqlca.autocommit = TRUE
csql="update jgzjk set fzrzp=0x00" //必须赋值,否则updateblob不能执行
execute immediate csql;
updateblob jgzjk set fzrzp = :lb_object;
if SQLCA.SQLCode = -1 then
rollback;
return
end if
commit;
sqlca.autocommit = FALSE
希望多多交流。