如何把一个word文档中的内容写入到数据库中？

首先，建立一个Access2000数据库data.mdb，在库中建立一个表userdata，里面有“工号”、“姓名”、“性别”、“部门”四个字段，都是字符型的，再输入一些数据，再建立一个窗体Form1，在Form1中，放置以下控件：

控件名称 属性 值 说明

Tlabel1 Caption "请输入文件名"

TEdit1 Name "" 用来输入文件名，带扩展名的

TButton1 Caption "保存"

TButton2 Caption "退出"

ADOTable1 Active

ConnectionString

TableName True

Provider=Microsoft.Jet.OLEDB.4.0Data Source=data.mdbPersist Security Info=False

userdata

下面是相关代码:

file://---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1

---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Variant OLEObject

AnsiString dataword

if(Trim(Edit1->Text)=="")

{

ShowMessage("请输入文件名")

return

}

String currentPath=GetCurrentDir()+"//"+Trim(Edit1->Text)

OLEObject=CreateOleObject("Word.Basic")

OLEObject.Exec(Procedure("FileNew"))

OLEObject.Exec(Procedure("EndOfDocument"))

ADOTable1->First()

while(ADOTable1->Eof!=True)

{

dataword=ADOTable1->FieldValues["工号"]+ADOTable1->FieldValues["姓名"]+ADOTable1->FieldValues["性别"]+ADOTable1->FieldValues["部门"]

OLEObject.Exec(Procedure("Insert")<<dataword)

ADOTable1->Next()

}

OLEObject.Exec(Procedure("StartOfDocument"))

OLEObject.Exec(Procedure("FileSaveAs")<<currentPath)

OLEObject.Exec(Procedure("FileClose")<<1)

ShowMessage("文件已经写入！谢谢使用！")

}

---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

this->Close()

}

---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Click(TObject *Sender)

{

Edit1->Text=""

}

如何实现WORD文档自动导入网站数据库

在Word中打开网页并将网页存为Word文档。1，打开Word2003，单击菜单栏中的“文件”→“打开”对话框；2，在“文件名”编辑框中手动输入网页地址，并单击“打开”按钮；3，Word2003开始连接Web服务器，用户可以在Word窗口中看到目标网页内容；4，并且可以进行编辑、复制、删除和保存等 *** 作，如图所示；提示：如果网页内容较多且有大量图片，则Word在打开网页时会出现“Word内存不足，修改之后无法撤销 *** 作”，这个提示不会影响复制网页内容。5，选中需要复制的内容，并执行复制 *** 作。6，然后新建一个Word文档，将复制的内容粘贴到新的Word文档中，保存即可。

可以通过流将word转化为二进制数据,然后存入,选择使用一种动态语言即可轻松完成.

但是,由于此类文件较大,数据读取和写入都将非常缓慢,所以不提倡这样.

建议使用图片和文档的路径保存在数据库中.

---