VerySource

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 14|回复: 3

如何从提取存入数据库中的文档(急)

[复制链接]

1

主题

1

帖子

2

积分

新手上路

Rank: 1

积分
2
发表于 2020-2-10 19:00:01 | 显示全部楼层 |阅读模式
录入代码:
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


请各位大侠帮忙
回复

使用道具 举报

0

主题

2

帖子

3

积分

新手上路

Rank: 1

积分
3
发表于 2020-8-10 20:45:02 | 显示全部楼层
这种错误经常采用的方法是 全编译一次,或者把相关的对象删除掉,重新填加一次
回复

使用道具 举报

0

主题

1

帖子

2

积分

新手上路

Rank: 1

积分
2
发表于 2020-8-29 19:45:01 | 显示全部楼层
也可以跟踪一下,看看到了这一行发生了什么事,比如BLOB中是否有数据,或者可以把BLOB变量中的数据写到文件中,然后在系统中用WORD打开看看是否正常
回复

使用道具 举报

0

主题

1

帖子

2

积分

新手上路

Rank: 1

积分
2
发表于 2020-8-30 02:15:01 | 显示全部楼层
删除后再重加一下
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|CopyRight © 2008-2020|verysource.com ( 京ICP备17048824号-1 )

快速回复 返回顶部 返回列表