怎样把Access中字段类型为OLE 对象的数据读出并放到Word中？

[broown]

怎样把Access中字段类型为OLE 对象的数据读出并放到Word中？
我Access中其中一个字段使用了word对象放入，现在在读取时是用OLE控件读取并使用OLE1.Copy方法读取到剪贴板，并把它粘贴到word中，但是，粘贴到word 中的数据是一个嵌入式的文档，要编辑需要双击该对象使之打开新的WORD才能编辑，所以很不方便。现在想问问，有没有其他办法来处理这个问题？使之放到word中的数据不需要不是嵌入式文档。

[broown]

没有人帮帮忙啊？

[tmran]

你是不是保存数据库时不完整哦，我这里都可以的

[broown]

to tmran(Rocky 爱瘦鱼)
能写进去，但是用word打开是乱码

[love200510]

保存到ACCESS数据库中的文件要保存文件名
读出时用保存的文件名做为临时文件名
在写到WORD中

我在网吧里 没法给你代码 抱歉

[broown]

我是在数据库中手动添加的一条word数据

[broown]

Access数据库字段的类型是OLE怎么能保存文件名啊？
能具体点?
谢谢

[tmran]

先把Word字段读出来保存为一个零时文件，然后再打开。

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long '申明

Private Sub Command1_Click()
Dim A
............. '打开数据库及数据集
A = RS.Fields("DocFile") '数据库中的OLE字段（Word文档）
Open "\temp\User.Doc" For Binary As #1 '打开输出文件。Temp目录下。
Put #1, 1, A
Close #1 '关闭文件。
ShellExecute Me.hWnd, "open", "C:\User.doc", vbNullString, vbNullString, SW_SHOW '打开保存后的文件

End Sub

[jam021]

关注,帮顶!

[tmran]

你用程序把Word文件读出来放进数据库试试看？

[tmran]

把文件存入数据库的代码：

Dim file_len1 As Long
Dim s1() As Byte

If Dir(strWordFile$) <> "" Then 'strWordFile是文件目录及文件名

file_len1 = FileLen(strWordFile$)
ReDim s1(file_len1 - 1) As Byte
Open strWordFile$ For Binary As #1
Get #1, 1, s1
Close #1
RS.Fields("DocFile").Value = s1
RS.Update
End If