怎样将SQLServer 7.0中表的内容导成EXCEL文件??

Question

各位大侠:
   请出手相助,我想在DELPHI5中实现
将SQLServer 7.0中表的内容导成EXCEL文件??
应该如何做,急!

Answer 1

在DELPHI5中实现
将SQLServer 7.0中表的内容导成EXCEL文件??
应该如何做,急!

Answer 2

begin
//在此加上代码；
 MSExcel:=createOLEObject('excel.application');
 MsExcel.workBooks.add;
 Msexcel.visible:=false;
  with Dataset do begin
 //转出表头
 for i:=0 to FieldCount-1 do
 begin Msexcel.cells[1,i+1].value:=Fields[i].fieldname; end;
 //转出内容
 j:=2;//表头为1，内容为第二行
 while not eof do
 begin
  for i:=0 to fieldcount-1 do
  begin
  MSexcel.cells[j,i+1].numberformat:='@';
  MsExcel.cells[j,i+1].value:=fields[i].asstring;
  end;
  inc(j);
  
  next;
 end;
 end;//end of dataset;
 MSExcel.ActiveWorkBook.SaveAs(FileName);
 MSExcel.ActiveWorkBook.Saved:=True;
 MSExcel.Quit;

Answer 3

加上一个,
uses comobj;
varmsExcel:variant;

Answer 4

这种方式速度有点慢,推荐你用dxDBGrid这个控件,它有一个方法,可以实现,速度快

Answer 5

Ehlib2.4加强版可以搞定，而且很容易的，看例子就是了。