如何把数据库的内容写入到Word文档中

原创 2002年04月09日 08:50:00

如何把数据库的内容写入到Word文档中?(陈勇)    huguangtao(原作)
 
关键字     数据库,Word,OLE
 


  在编程时,由于Microsoft Word的编辑功能非常强大,所以我们经常希望将一些数据保存为WORD文档,以便我们专业编辑。
   在保存为Word文档时,我们可以通过OLE,但经常遇到把真正的Word编辑界面调入到了程序中,以使得程序界面混乱。还有,普通的调用Word的方法都必须指定Word可执行文件的绝对地址,由于很多用户安装Word的路径都不一致,故,我们经常遇到调用错误的问题,能不能有一种方法调用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.0;Data Source=data.mdb;Persist 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文档

  • 2010年05月29日 16:27
  • 49KB
  • 下载

word文件保存到数据库,读取

导入:http://yistudio.cnblogs.com/archive/2005/05/20/159440.html 导出:http://www.cnblogs.com/shanghaif/ar...
  • cqbsbjianxy
  • cqbsbjianxy
  • 2010年03月31日 21:51
  • 9300

将word存入数据库并在网页中显示

通过一天的搜索终于将word存入并显示,希望以后有人遇到这种问题有个参考添加一个上传文件的控件(input type=file id=MyFile runat=server) System.Web.H...
  • MQ1983
  • MQ1983
  • 2006年04月20日 10:33
  • 1429

java读取word中的表格并存入到mysql数据库中实例

将word文件中表格数据读取出来并存入到数据库中。
  • csdn950212
  • csdn950212
  • 2016年06月04日 11:52
  • 5110

如何把数据库的内容写入到Word文档中.

  • 2009年01月03日 12:25
  • 78KB
  • 下载

如何把数据库的内容写入到Word文档中

如何把数据库的内容写入到Word文档中?(陈勇)    huguangtao(原作)   关键字     数据库,Word,OLE     在编程时,由于Microsoft Word的编辑功能非常强大...
  • cbyhenan
  • cbyhenan
  • 2002年04月09日 08:50
  • 524

点击按钮往word文件中固定地方添加数据库数据再下载

Web项目中生成Word文档的操作屡见不鲜,基于Java的解决方案也是很多的,包括使用Jacob、Apache POI、Java2Word、iText等各种方式,其实在从Office 2003开始,...
  • ct637337
  • ct637337
  • 2015年11月19日 17:40
  • 628

复制一个Word文档的部分或全部内容到另一个Word文档

我最近喜欢折腾Office软件相关的东西,想把很多Office软件提供的功能用.NET来实现,如果后期能把它用来开发一点我自己的小应用程序那就更好了。扯远了,回到正题。复制文档内容这个功能太常见啦,在...
  • Eiceblue
  • Eiceblue
  • 2016年01月19日 16:06
  • 3740

如何把数据库的内容写入到Word文档中?

  在编程时,由于Microsoft Word的编辑功能非常强大,所以我们经常希望将一些数据保存为WORD文档,以便我们专业编辑。   在保存为Word文档时,我们可以通过OLE,但经常遇到把真正的W...
  • huguangtao
  • huguangtao
  • 2002年03月25日 08:49
  • 818

从数据库中导出到word、调用chm文件

  • 2009年02月22日 14:19
  • 937KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何把数据库的内容写入到Word文档中
举报原因:
原因补充:

(最多只允许输入30个字)