如何导出数据

Question

如何将数据库中的数据导成一张 excel表,这条SQL语句是这样的,是一条查询语句select es.fittingsId AS 商品编号, fit.fname AS 商品名称, fit.kind1 AS 分类, 
      fit.kind2 AS 分组代码, tbv.vType_name AS 车型分类, tbs.style_name AS 车型, 
      fit.metricunit AS 单位,es.enterquantity as 进货数量,es.currentcount as 数量,
      es.inunitprice AS 不含税计划价格,es.inunitprice AS 不含税进货价格,su.supplyunit AS 供应商, 
      fit.location AS 货位, tbt.storage_name AS 仓库, es.lowquantity AS 库存低限
from enterstore es
Left outer join
        fittings fit on fit.fittingsid=es.fittingsid
 LEFT OUTER JOIN
      tb_style tbs ON fit.style_id = tbs.style_id 
LEFT OUTER JOIN
      tb_vType tbv ON tbv.vType_id = tbs.vType_id 
LEFT OUTER JOIN
      tb_storage tbt ON tbt.storage_id = es.site 
LEFT OUTER JOIN
      supplyunit su ON su.supplyunitid = es.supplyunitid
ORDER BY es.fittingsId 
以上这条语句在delphi如何加上,向execl表导的时候如何写我知道在SQL-SERVER利用企业管理器怎么做,但不知道在delphi 里面用代码怎么导
大家有现成的代码吗,告诉我,谢谢了.

Answer 1

可以把数据库表传入到一个Dataset中，然后创建Excel对象ExcelApp := CreateOleObject( 'Excel.Application' );

Answer 2

最基本的办法
使用delphi 的ado组件查询数据并得到数据集，然后使用DELPHI自带的EXCEL组件或者用OLE的办法，建立一个EXCEL文件，然后将数据写进去。关于写入EXCEL的操作，你搜索一下以前的帖子。有很多。