收录日期:2019/03/26 02:56:26 时间:2016/05/31 07:15:33 标签:基础类
如何把查询到的数据库记录导出到excel文件里面?
如把ADOTable1中的Fields[0] ---Fields[4]的记录
放在excel的 1--5字段里面,
并且把excel文件的名字命名为 20041120524
为日期和时间的组合,2004-11-20 加上5:24。
请详细说明,给出相关代码。
不胜感激。
#include <FileCtrl.hpp>


#pragma hdrstop
#include<Comobj.hpp>
#include<Utilcls.h>


void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 AnsiString SQLTxt,str;
  SQLTxt = "select * from ovf_dun_result order by id";
  Query1->Close();
  Query1->SQL->Clear();
  Query1->SQL->Add(SQLTxt);
  Query1->Open();
  if(Query1->RecordCount == 0) //无数据退出
  return;
 Variant ex,newxls,cellms; //ole万能变量,定义excel对象使用
 try
 {
  ex=CreateOleObject("Excel.Application"); //启动Excel
 }
 catch(...)
 {
  MessageDlg("无法启动Excel,可能尚未安装或文件已经损坏!",mtError,TMsgDlgButtons()<<mbYes,0);
  return;
}
 newxls=ex.OlePropertyGet("ActiveWorkBook");//创建工作簿对象
 ex.OlePropertyGet("WorkBooks").OleFunction("Add");//添加一个工作薄
 cellms=ex.OlePropertyGet("ActiveSheet");//创建工作区
 cellms.OlePropertyGet("Cells",1,1).OlePropertySet("Value","催收方式");
 cellms.OlePropertyGet("Cells",1,2).OlePropertySet("Value","代码");
 cellms.OlePropertyGet("Cells",1,3).OlePropertySet("Value","备注");
 ex.OlePropertySet("Visible",(Variant)true); //使Excel可见
 Query1->First();
 for(int i=0;i<Query1->RecordCount;i++)//按列灌入纪录
  {
   for(int j=0;j<Query1->FieldCount;j++) //行的值
    {
      str = Query1->Fields->Fields[j]->AsString;
      cellms.OlePropertyGet("Cells",i+2, j+1).OlePropertySet("Value", str.c_str());
     }
    Query1->Next();
   }
}
//---------------------------------------------------------------------------
厉害
回头试试看去

Struts has detected an unhandled exception: Stream closed 问题求各位大大指教 求vlisp高级编程参考资料 有台P4单核的闲置机器,想用来编译和研究LINUX操作系统,请问步骤? 精通计算机ODBC的或精通计算机网络、数据库高手帮下我 java学习 基于PHP开发的优惠社交网站,开放内测咯! 科技宅的异世界 下面的代码编译哪里出了? CEvent的效率 百分求一SQL查询问题。 这个正则表达式有什么错误? provider: 命名管道提供程序, error: 40 - 无法打开到 SQL Server 的连接 那位大虾帮忙找一下错误 jar不能运行 linux下使用opencv动态库的遇到的一些问题 一个棘手的程序调试 Win Ce 5.0下的程只运行一次 C++控制台产生Win32窗口 关于实现支付宝接口问题(就39分了,别闲少) 请教WAP在IIS中测试的问题? 这是自动翻页代码,运行后没错误,就是什么也没显示,求指点 WP7 有没有第三方类似silverlight datagrid控件的 数据库字段类型为number(18,5),数据取出后显示不对,急!! java如何用DataInputStream类从控制台读取一个char类型 AJAX UpdatePanel异步更新问题 typedef CList CLASS_ARRAY 的问题!!!!!!同学们帮帮我! 排名十几名的大学硕士,感觉前途很渺茫。。。 html的表格里能include php文件么? 搭建Filezilla ftp Sever的问题,客户端登陆失败(超时)! linux router下的pptp协议穿透nat问题求教