将mysql 导出word文档_将数据库的内容生成WORD文档

毕业设计需要从库里取纪录生成word文档,我找了半天，主要有这么几种方法：

1。改头，就是象excel似的Response.Buffer = TRUE

Response.ContentType = "application/vnd.ms-excel" '--excel

Response.ContentType = "application/msword" '--wordexcel倒是没事，但word就是总出错。弱！

2。微软的RTF-DOC的例子它的例子倒是很成功，可根据实际需要改起来，不好弄，格式不好控制。

3。调用word.application对象

在客户端用这种东西Set objWordDoc = CreateObject("Word.Document")来调用word生成，但是要用户改客户端的安全级别设置，不好！格式控制起来也麻烦。我鼓捣了老半天也搞不定。

4。利用FSO生成word文档不敢说原创，只能说是综合大家的东西，搞成了这个东西。本文主要介绍我的这种方法。

下面主要介绍从数据库中取资料，然后利用FSO生成Word文档的例子，先给出部分代码，最后给出全部代码。

从数据库中读取数据的代码：

'创建RecordSet对象

Set rs = Server.CreateObject("ADODB.Recordset")

'SQL语句根据实际情况调整

sql="select * from People where PeopleId=" & PeopleId

'Open RecordSet，省略了创建及打开connection对象的代码，请自行添加

rs.open sql,conn,3,3

if rs.eof and rs.bof then

'无记录

else

'做点事情，主要是从数据库中获取一些资源

'赋给变量，再用FSO生成

end if

rs.Close

Set rs=Nothing

conn.Close

Set conn = Nothing

%>

用FSO创建word的代码：

'下面生成文件的代码。

Dim fso, MyFile

'创建FSO对象，有些服务器有可能不支持这个对象，那就没戏了

Set fso = CreateObject("Scripting.FileSystemObject")

'文件名

sFileName = "temp.doc"

'生成新文件文件放在当前目录的word/下,当前测试时必须有这个目录

Set MyFile = fso.CreateTextFile(Server.MapPath(".")& "\word\"&sFileName, True)

myString="这里是你预先排好的word文档，要填的地方都空好了，怎么弄底下告诉！"

'将MyString作为新文件的内容写入文件

MyFile.WriteLine(myString)

MyFile.Close  '关闭文件

%>

文件已经生成了。注意在iis里把word目录设置为“写入”。

以下将word文档以数据流写出，不让IE自动打开，防止出错误提示。

出处：蓝色理想

责任编辑：cjj

◎进入论坛网络编程版块参加讨论