关于OLE的问题(有源码)

bruce tao88 2003-01-17 12:27:51

我想在SQL数据库中OLE字段以二进制存入WORD文档,在OLE容器控件中引入Word文档,用以下代码为什么老是出错,请各位大大赐教。或有更好的途径也行最好有源码。
100分不够可再加。
我的Email: kkkhhh@c163.net

Private Sub command1_Click()
Dim FileNum As Integer
'取文件号。
FileNum = FreeFile
'打开要保存的文件。
Open App.Path & "TEST.txt" For Binary As #FileNum
'保存文件。
oleObj1.SaveToFile FileNum
'关闭文件。
Close #FileNum
End Sub


Private Sub command2_Click()
Dim FileNum As Integer
'取文件号。
FileNum = FreeFile
'打开文件。
Open App.Path & "\TEST.txt" For Binary As #FileNum
'读文件。
oleObj1.ReadFromFile FileNum
'关闭二进制文件。
Close #FileNum

End Sub





...全文
5 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告