如何把数据库的内容写入到Word文档中
2002-04-09 08:50
555 查看
如何把数据库的内容写入到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,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文档中?
- 如何把数据库以二进制存储的excel,word文档写入excel,word
- [转]ASP.NET C#如何读取word,写入word,复制内容到另一个word文档,批量修改文件名
- ASP.NET C#如何读取word,写入word,复制内容到另一个word文档,批量修改文件名
- 用C#把数据库中的记录按格式写入Word文档中
- 用C#把数据库中的记录按格式写入Word文档中
- (转)如何利用书签向word文档读取或写入数据[C#]
- 如何利用书签向word文档读取或写入数据[C#](
- 将数据库的内容生成WORD文档
- c#上传文件并将word pdf转化成txt存储并将内容写入数据库
- 如何将多个word文档的内容合并到一个文档 多html转word
- 如何去掉 Word 文档修订和批注和不显示已删除内容
- web中,如何读取Word内容(包含表格,但不包含图片)并且显示在页面中或保存进数据库中
- Java如何获取word文档的条目化内容
- kindeditor粘贴word文档内容时去除格式的方法?如何设置为默认无文本格式呢?
- 将Word文档发给别人时如何限制别人只能修改文档部分内容
- 将html内容写入word文档
- asp.net中如何批量导出access某表内容到word文档
- 如何在控制台程序中读取WORD文档的内容?
- 实现Freemarker生成word文档,内容可二次写入