如何将SQLServer的数据在DELPHI中转换成DBF？

Question

直接好象不行，要间接转，有点费事，能成
（字段类型.dbf比sql server少）

Answer 1

可以用 BatchMove 控件来实现！

Answer 2

E:\Program Files\Borland\Delphi5\Help\Examples\Batchmv
E:\Program Files\Borland\Delphi5\Help\Examples\Batchmv2

Answer 3

用BATCHMOVE控件出错：CAPABILITY NOT SUPPORTED。
我有一管理系统，后台为SQL SERVER7.0，SQLSERVER很容易进行转换，但我要在客户端将一些数据报盘，而报盘的数据表必须是DBF格式，请问各位，如何实现？

Answer 4

用下面这段代码试试：
 Table := TTable.Create(Self);
    with Table do Begin
     DatabaseName := pathStr ;
     Fname := 'xxxx';
     Tablename := Fname;
     TableType := ttDBase;  // ttFoxPro
      With FieldDefs do begin
      Add('AAA',ftString,10,False);
      Add('BBB',ftString,6,False);
    end;
      CreateTable;
   end;
好用的话，别忘给分。

Answer 5

谢谢冬冬指点，但SQLSERVER的数据怎样倒过来？

Answer 6

受冬冬的提示，我用编程的方法已解决了这个问题。其实很简单，开始只想到用BATCHMOVE控件，不过好象该控件不支持SQLSERVER数据表，编程就能解决，程序如下：
table1.first; \\SQLSERVER 表
while not table1.eof() do
begin;
table2.append;\\DBF表;
table2.fieldbyName('field1').value=table1.fieldsValues['field1'];
table1.next;
end;谢谢冬冬，我给20分。