急！！在delphi中如何将sql server 2000数据库中的一个表中的内容全部导到excel表中

来源：百度知道 编辑：UC知道 时间：2024/07/05 06:16:35
例如将将sql server 2000数据库中表名为WORK的表中的所有记录导到excel中。可以利用ExcelApplication、ExcelWorkbook控件
若方法好，还有加分
不用查询，只是将表中的数据全存到excel中，而且我的数据库连接用的是bde，不是ado

其中BUTTON5是你界面上的“导出”按钮，而WRITEEXCEL是需要你再PRIVATE里定义的一个函数，BDE或者ADO都无所谓，你只要把你的表对应好就可以了。
procedure Tqueryform.Button5Click(Sender: TObject);
var
sname:string; //这里是用来取你界面上输入的EXCEL表名
begin
sname:=edit1.Text;
if sname<>'' then //用户输入了表名
// title:='所需数据';
writeexcel(sname)
else
writeexcel('查询结果'); //否则存为查询结果.exl
end;
procedure Tqueryform.writeexcel(sname:string);
var
j,row: integer;
filename: string;
begin
filename := concat((extractfilepath(application.exename)+'excel\'), sName, '.xls');
//保存在程序所在文件夹下的一个叫做excel的文件夹下面
//初始化
try
excelapplication1:=Texcelapplication.Create(application);
ExcelWorksheet1 := TExcelWorksheet.Create(Application);
ExcelWorkbook1 := TExcelWorkbook.Create(Application);
ExcelApplication1.Connect;
except
Application.Messagebox('Excel 没有安装!', &#