dbgril中显示的数据怎么导出？

Question

用query1.SaveToFile()和query1.LoadFromFile()

Answer 1

to  dongxsoft(浮云化雨) 
query1好象没有SaveToFile()和LoadFromFile()
这两个方法???????????????

Answer 2

你将查询出来的数据以CVS文件格式写入文本文件吧，
下面是我以前写的一个将StringGrid数据写入CVS文件的源代码
procedure TSaveDate.Button1Click(Sender: TObject);
var id:textfile;
    i:integer;
    Tab:string;
    label TOP;
begin
TOP:
savedialog1.Execute;
if copy(savedialog1.FileName,2,2)=':\'then
begin
 if fileexists(savedialog1.FileName)=true then
  begin
   i:=Application.MessageBox(PCHAR(savedialog1.FileName+'确定要替换它吗?'),'确认提示!',1+32+256);
   if i<>1 then
    begin
     GOTO  TOP;
    end;
 end;
  assignfile(id,savedialog1.FileName);
  rewrite(id);
    if radiobutton1.Checked then Tab:=#9;
    if radiobutton2.Checked then Tab:=';';
    if radiobutton3.Checked then Tab:=',';
    if radiobutton4.Checked then Tab:='|';
  with user.Grid1 do
   begin
     for i:=0 to rowcount-1 do
       write(id,Cells[0,i]+Tab+Cells[1,i]+Tab+Cells[2,i]+Tab+
               Cells[3,i]+Tab+Cells[4,i]+Tab+Cells[5,i]+Tab+
               Cells[6,i]+Tab+Cells[7,i]+Tab+Cells[8,i]+Tab+
               Cells[9,i]+#13+#10);
   end;
   closefile(id);
   close;
end;
end;

Answer 3

导出到excle中参考excle控制方法

Answer 4

dbgrid1.Fields[0].fieldname;//列标题
dbgrid1.Fields[0].AsString;//数据var
excel:variant;
begin
//创建excel对象,uses comobj
//for循环导入excel表;
end;