求教查询OLE内文字

thierryco

不知道有没有可能，就是我上传了几个WORD文档到数据库，其中有一个word文档里面有关键词，例如"excel",以OLE的形式储存，可不可以在窗体中创建搜索框，可以搜索到这个包含关键字的word文档并打开或显示出来？

thierryco

沉了？或者大家有没有什么思路可以提供么？

Renco

把Ole数据存储出来，再用相应的APP对象打开，读取相关数据

thierryco

Renco 发表于 2016-11-3 15:35
把Ole数据存储出来，再用相应的APP对象打开，读取相关数据

具体要怎样做呢？

jack5d

簡單點就:

1)建立一個新表單
2)建一個VBA CODE:

1. Sub test()
   
2. Dim rs As ADODB.Recordset
   
3. Set rs = New ADODB.Recordset
   
4. rs.Source = "SELECT OLEoj FROM TestFile;"
   
5. rs.ActiveConnection = CurrentProject.Connection
   
6. rs.CursorType = adOpenDynamic
   
7. rs.LockType = adLockReadOnly
   
8. rs.Open
   
9.     With OLEctr
   
10.         .OLETypeAllowed = acOLEEmbedded
    
11.         .SourceDoc = rs.Fields(1)
    
12.         .Action = acOLECreateEmbed
    
13.         .SizeMode = acOLESizeStretch
    
14.     End With
    
15. rs.Close
    
16. Set rs = Nothing
    
17. End Sub

复制代码

3)表單內加入OLE控件, 放入以上代碼
4)點擊控件打開OLE控件內的檔案

另外我建議你只把文件的目錄地址存到資料庫內, 這樣會大大減少開發難度,
只要用SHELL OPEN去打開目標文件就好了, 又快又簡單, 而且文檔資料分離能加快查詢速度, 以及在資料損壞時可保証重要文檔的案全, 雖然有各種修複mdb的方法, 但OLE是最低成功率的, 就是說一旦出問題OLE將會是最危的一群