如何将数据库中的数据导入到Excel中？

Question

将数据库中的数据导入到Excel，要添加什么控件吗？代码怎么编写呢？

Answer 1

//给个简单例子：unit Stat;interfaceuses OleServer, ExcelXP, Variants, SysUtils, Windows;  procedure OpenXls();  
  procedure WriteXls(i,j: Integer;data: String);  //将数据写入Excel
  procedure CloseXls(  path: String  );var
  wkBook: _WorkBook;
  wkSheet: _WorkSheet;
  LCID: Integer;implementationprocedure OpenXls();
begin
  LCID := GetUserDefaultLCID();
  VoiceCard.ExcelApp.Connect;
  wkBook := VoiceCard.ExcelApp.Workbooks.Add(EmptyParam, LCID);
  wkSheet := wkBook.Sheets[1] as _WorkSheet;
end;procedure WriteXls(i,j: Integer;data: String);
begin
  wkSheet.Cells.Item[i,j].value := data;
end;procedure CloseXls( path: String );
begin
  wkBook.Close(True, path, EmptyParam, LCID);
  VoiceCard.ExcelApp.Disconnect;
end;end.

Answer 2

SQL SERVER ----》EXECL
var
  sqll:string ;
begin
try
  ADOConnection14.Provider :='Microsoft.Jet.OLEDB.4.0;Data Source=C:\TEMP\TempXY.xls;Extended Properties=Excel 8.0' ;
  ADOConnection14.Connected := False ;
  ADOConnection14.Connected := True ;
  sqll :='SELECT * into SQLEXCEL FROM Zlyfpxy IN [ODBC] [ODBC;Driver=SQL Server;UID=;PWD=;Server=program.;DataBase=yj;]';
  ADOConnection14.Execute(sqll ) ;
  Application.MessageBox('导出数据成功  ！', PChar('数据导入导出提示'), MB_OK +
    MB_ICONINFORMATION + MB_TOPMOST);
except
  Application.MessageBox('导出数据失败  ！', PChar('数据导入导出提示'), MB_OK +
  MB_ICONINFORMATION + MB_TOPMOST);
end;
end;