用 query查询的结果怎么生成一个文件，可以让execl或access打开？ (100分)

用 query查询的结果怎么生成一个文件，可以让execl或access打开？

使用DBGridExport控件

EhLib,可以导出为Excel,Html等

gz

可以说的详细一点吗
如果有源码，我可以学习一下，谢谢！

//EhLib
//uses DBGridEhImpExp
procedure TDBMDIChildForm.DataSetExportExecute(Sender: TObject);
//导出数据
var
ExpClass:TDBGridEhExportClass;
Ext:String;
begin
inherited;
if not DBG.DataSource.DataSet.Active then exit;
if dlgSave.Execute then
begin
case dlgSave.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
else
ExpClass := nil; Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(dlgSave.FileName,Length(dlgSave.FileName)-2,3)) <>
UpperCase(Ext) then
dlgSave.FileName := dlgSave.FileName + '.' + Ext;
SaveDBGridEhToExportFile(ExpClass,DBG,
dlgSave.FileName,not DBG.CheckCopyAction);
end;
end;
end;

用第三方组件当然可以,但是也可以自己编一个小程序处理

怎么编呀，有源代码吗？

GZ

请查收，我的原码已发到你的信箱里了

接受答案了.