1、在Access數據庫中建一個有ole字段的表．
2、在Access數據庫中建一個自動生成查詢表．
3、在查詢表中可以根據你的需要，雙擊OLE字段，插入或修改你的OLE內容．

不好處理。如果單純是表格，還可以直接轉入ACCESS，我還愁呢。

1
如何進行WORD和ACCESS的數據交流

2003-04-21 18:41
--------------------------------------------------------------
南方網訊 相信大家對Word和Access這兩位微軟Office家族旗下的成員不會陌生吧，它們之間可有著密切的聯系，比如在數據交流方面，下面以Word2000和Access2000為例，將如何實現Word與Access數據交換的方法介紹一下：

一、 在Word中使用Access的數據

(一)、如何在原有Word文檔中插入MicrosoftAccess表或查詢的內容。

1.在一篇Word文檔中選定要插入表或查詢的位置。

2.進入"視圖"菜單中的"工具欄"，然后點擊"數據庫"，顯示"數據庫"工具欄，然后單擊"插入數據庫"按鈕，如圖1所示。

3.在彈出的"數據庫"窗口中單?quot;獲取數據"按鈕，在"打開數據源"的"文件類型"中選擇"MSAccess數據庫"。在"文件名"框中輸入所需MicrosoftAccess數據庫的名稱，然后單擊"打開"按鈕。

4.單擊"表格"或"查詢"，然后選擇所需表格或查詢，如圖2所示，最后單擊"確定"按鈕。

5.如果要選定記錄、域或二者的子集，并將它們包含在Word表格中，請單擊"查詢選項"按鈕，選好所需選項，如圖3所示，再單擊"確定"按鈕。

6.如果要自定義Word的表格形式，單擊"表格自動套用格式"按鈕，選定所需選項后單擊"確定"按鈕。

7.單擊"插入數據"按鈕，在"插入記錄"下，選定希望包括在Word表格中的記錄。

8.如果希望源數據改變時可更新Word表格中的數據，可再選中"將數據作為域插入"復選框，然后單擊"確定"即可。
(二)將MicrosoftAccess數據輸出到Word文檔中

1.在Access2000中，打開所需數據庫，然后打開數據庫對象：表、查詢、窗體或報表。

2.選定所需輸出數據的行和列。

3.單擊"文件"菜單中的"另存為/導出"命令。

4.選擇"另存為一個外部文件或數據庫"選項，然后單擊"確定"按鈕。

5.在"保存類型"框中，為輸出數據選擇格式：如果要創建保持原有數據格式的文檔，請單擊"RTF格式"；如果要創建普通的文本文件，作為郵件合并數據源使用，請單擊工具欄上的"MicrosoftWord合并文件"按鈕，如圖4所示。

6.在"文件名"框中，指定新文檔的文件名稱。

7.如果以RTF格式保存文檔，并且希望馬上啟動Word打開此文檔，請選中"自動啟動"復選框。

8.如果要選定指定的數據行列，則要選中"選擇"選項。

9.單擊"導出"命令完成輸出，這樣在Word文檔中就自動完成了Access數據的導入。

二、向MicrosoftAccess中導入Word文本文件

1.在Word中將文件另存為用逗號分隔或用制表符分隔的文本文件。

2.切換到MicrosoftAccess，然后打開新的或已有的數據庫。

3.單擊"數據庫"窗口的"表"選項卡。

4.指向"文件"菜單中的"獲取外部數據"命令，然后單擊"導入"。

5.單擊"文件類型"框中的"文本文件"命令。

6.在"文件名"框中，輸入要導入的文本文件的名稱后。

7.單擊"導入"命令，會出現"導入文本向導"對話框。

8.根據"導入文本向導"對話框中的指導進行操作。
如果要查看更多的選項或修改指導項(比如域分隔符)，可單擊第一個向導對話框中的"高級"命令，在這里你可以對導入規格進行調整，如圖5所示；如果要保存指定項，以便下次導入相似的文本文件時可用它們，請單擊"另存為"命令。

以上是筆者對Word2000和Access2000之間進行數據交流的操作方法的一點介紹，其實Office系列軟件之間有著很多密不可分的關聯功能，如果你是一位文員，能夠熟練掌握它并且靈活運用的話，將會大有益處。
具體請見：（有圖）http://www.southcn.com/it/itzt/word/200304210786.htm

字段類型用blob，先把blob設成空然后再操作，我用的是upload_5xsoft.inc（asp人都知道），顯示的時候就用數據流寫出即可。代碼如下
寫入：
sql = "update d_doc_modi_rec set doc_content=empty_blob() where doc_no='"&doc_no&"' and version='"&maxver&"'"
Oradatabase.dbEXECUTESQL(sql)
Selsql ="select * from d_doc_modi_rec where doc_no='"&doc_no&"' and version='"&maxver&"'"
file.SavetoDB Selsql,feild

Public function SavetoDB(Selstr,area)

dim rsDB,ErrorChar,dr
if selstr="" or area="" then exit function
set rsDB=Oradatabase.dbcreatedynaset(Selstr,0)
set dr=CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
dr.position=0
'dr.Type = 2
'dr.Charset = "gb2312"
path = filepath&filename
dr.LoadFromFile path
chunk=dr.read
chunksize=lenb(chunk)
'response.end
set infoblob=rsDB.fields(area).value
rsDB.Edit
infoblob.offset=1
amount_written=infoblob.write (chunk,chunksize)
rsDB.update
dr.close
set amount_written = nothing
rsDB.close
end function

在另一個文檔點插入——文件——選擇你插入的內容所在文檔就可以了

你點WORD頁面上的“編輯”——“全選”——“復制”——“粘貼”，搞定了

Ctrl+A ,再Ctrl+C ,再到需要插入的另一個地方，Ctrl+V ,如果不行再把題目說具體點

復制——新建——粘貼