在Delphi中如何创建DBF文件..谢谢!!!!!!!!!!!!!

Question

在Delphi中如何将sql server中的一张表以DBF的文件形式存放在指定路径下..

Answer 1

adoconnection3.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+source+';Extended Properties=dBase 5.0;Persist Security Info=False ';  
//source 为DBF表所在的文件夹,只需在此指定目录
ado_lj.connection:=adoconncetion3;
   ado_lj.SQL.Clear;
   ado_lj.SQL.Add('create table cbjl(yhbh Char(10) ,yhmc Char(20) ,cbh Char(10) ,yhdz Char(20) ,ssqy Char(20) ,khrq Char(10) ,sbqsds Char(10) ,bycbs Char(10) ,jjsl Char(10) ,cby Char(10)  ,cbrq Char(10) ,yslxmc Char(16) ,yslxdj Char(10) ,yszj Char(10) ,zjje Char(10) ,cbbz Char(4),syysl Char(10),syzd Char(16),ssyzd Char(16),sssyzd Char(16))');  
   ado_lj.ExecSQL;

Answer 2

怎么把SQLSERVER 里面的数据放到DBF里面呢????

Answer 3

ado_lj.SQL.Clear;                                                            
  ado_lj.SQL.Text:='insert into cbjl(yhbh,yhmc,cbh,yhdz,ssqy,khrq,cby) select mid(yhbh,1,10) as yhbh,mid(yhmc,1,20) as yhmc,mid(cbh,1,10) as cbh,mid(yhdz,1,20) as yhdz,mid(ssqy,1,20) as ssqy,mid(khrq,1,10) as khrq,mid(cby,1,10) as cby  from  view1 IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=zls;]';
   ado_lj.ExecSQL;
cbjl 为DBF表,view1 是一个视图.可以改成数据表,