如何从提取存入数据库中的文档（急）

chutian316

录入代码:
updateblob wd set wd_content=:tot_b where wdbh=:ls_wdbh using SQLCA;
   SQLCA.autocommit=false
  SELECT wd.title  
    INTO :l_title  
    FROM wd  
   WHERE wd.wdbh = :ls_wdbh ;
           if l_title<>'' then
                commit using sqlca;
           messagebox('','入库成功！')
   else
                rollback using sqlca;
           messagebox('','入库失败，请重新录入！')
        end if
提取代码：(在ole_1的doublelicked event 中)（ole为ole控件中create new中的microsoft word）
blob pic
int n
selectblob wd_content into :pic from wd where wdbh=555555;
if isnull(pic)<> true then //若有记录
ole_1.objectdata=pic。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。line 6
ole_1.activate(inplace!)
end if
运行并双击ole_1后出现的错误：
Bad runtime function reference at line 6 in doubleclicked event of object ole_1 of w_2


请各位大侠帮忙

fancyzl

这种错误经常采用的方法是 全编译一次,或者把相关的对象删除掉，重新填加一次

ssessx

也可以跟踪一下，看看到了这一行发生了什么事，比如BLOB中是否有数据，或者可以把BLOB变量中的数据写到文件中，然后在系统中用WORD打开看看是否正常

chenjiankurt

删除后再重加一下