delphi有类似pb的datawindow的saveas功能的控件，可以将数据集保存为dbf或excel等其他格式吗？？

Question

delphi有类似pb的datawindow的saveas功能的控件，可以将数据集保存为dbf或excel等其他格式吗？？

Answer 1

好象没有专门的控件，得自己编程，不过这方面的源程序很多，你在csdn上搜一搜吧

Answer 2

使用ado可以直接存为你想要的格式

Answer 3

我给你把table的内容保存成excel的数据阿！！
procedure TForm7.Button5Click(Sender: TObject);
var
  Range:excelrange;
  i,j,k:integer;
  letter:char;
begin
if datasource1.DataSet=nil then showmessage('没有内容可以导入Excel!')
else begin
  try
    try
    excelapplication1.Connect;
    except
    showmessage('您的机器没有安装Excel!');
    abort;
    end;
    excelapplication1.Visible[0]:=true;
    excelapplication1.Caption:='送修内容';
    excelapplication1.Workbooks.Add(NUll,0);    k:=datasource1.DataSet.FieldCount-4;    if datasource1.DataSet.Fields[k].DisplayLabel='COUNT OF 局名' then
     k:=4
    else k:=0;    i:=65+datasource1.DataSet.FieldCount-1-k;
    letter:=char(i);    range:=excelapplication1.Range['A1',letter+'1'];    for i:=0 to datasource1.DataSet.FieldCount-1-k do
      begin
      range.Value:=datasource1.DataSet.Fields[i].DisplayLabel;
      range:=range.Next;
      end;
    if k=4 then begin
    range.Value:='数量';
    dec(k);
    end;
    datasource1.DataSet.First;    for i:=1 to datasource1.DataSet.RecordCount do begin
      range:=excelapplication1.Range['A'+inttostr(i+1),letter+inttostr(i+1)];
      for j:=0 to datasource1.DataSet.FieldCount-1-k do begin
        range.Value:=datasource1.DataSet.Fields[j].AsString ;
        range:=range.Next;
        end;
      datasource1.DataSet.Next;
      end;  except
  excelapplication1.Disconnect;
  end;  end;
end;

Answer 4

或者你可以使用adotable和excel建立连接阿！！
就是
adotable的conectionstring的属性设置你应该会的吧！！还有关键的就是tablename的你要写成 [$sheet1]表示读取sheet1的数据阿！！如果读取sheet2的话,就是[$sheet2]阿！！