如何将dbf文件导入到ACCESS中???

[syl66666]

如何将dbf文件导入到ACCESS中???
我是这样做的,可总是出错在from 语句或别的地方??,请大家帮忙解决一下, 不胜感激!!


//s1:='select * from OPENROWSET(''MICROSOFT.JET.OLEDB.4.0'',''dBase III;HDR=NO;IMEX=2;DATABASE=d:\'','' select * from [2.dbf] '')';
//s1:='select * from openrowset(''MICROSOFT.JET.OLEDB.4.0'',''dBase III;HDR=NO;IMEX=2;DATABASE=d:\2.dbf'')'; //,''select * from [2.dbf]'')';
s1:='select * from openrowset(''MSDASQL'',''Driver=Microsoft Visual FoxPro Driver;Exclusive=No;HDR=NO;IMEX=2;SourceType=DBF;SourceDB=d:\'',''select from [2.dbf]'')';
s1:='select * into bbb from 2 in d:\ dbase 5.0';
showmessage(s1);
with dm.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add(s1);
execsql;

end;
其中s1 串用了三种格式都出错

[syl66666]

大侠们，帮帮忙吧

[lyguo]

呵呵，不行用笨方法，用QUERY打开数据源，然后一条条往目标中添加。

[lyguo]

DestAdoQyery.Edit;
DestAdoQyery.Field[i].Value:=SourceAdoQyery.Field[i].Value;
.......
DestAdoQyery.post

[syl66666]

就是不想用一条条记录读取的方法才来问哈
有没有更好的办法

[syl66666]

openrowset在ACCESS导入中，是否是不能用，SQL中行哈

[syl66666]

谁来看一下吧,
在线等,急呀

[syl66666]

顶

[liups]

如下代码来自我自编的测试程序
procedure TForm1.Button1Click(Sender: TObject);
begin
try
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.EXEName)+
'empty.mdb;Jet OLEDB:Database Password=';
ADOConnection1.Connected:=true;
except
showmessage('无法打开数据库,请：1.确认文件''zzglxt.mdb''在'+'下;2.运行该目录下的mdac_typ25.exe安装MDAC数据库驱动!!');
exit;
end;
// ADOConnection1.Execute('insert into szbmk select * from 6001szbmk in ''D:\dbf和acess相互转换'' ''dbase 5.0;'' order by bmh')
ADOConnection1.Execute('select * into szbmk from 6001szbmk in ''D:\dbf和acess相互转换'' ''dbase 5.0;'' order by bmh')

end;

procedure TForm1.Button2Click(Sender: TObject);
var
sql:string;
begin
try
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.EXEName)+
'empty.mdb;Jet OLEDB:Database Password=';
ADOConnection1.Connected:=true;
except
showmessage('无法打开数据库,请运行该目录下的mdac_typ25.exe安装MDAC数据库驱动!!');
exit;
end;
sql := 'SELECT * INTO szbmk in ''D:\dbf和acess相互转换'' ''dbase 5.0;'' FROM szbmk';
ADOConnection1.Execute(sql);
end;

[zhangpuqing]

不用这么麻烦的,直接用BATCHMOVE控件就行了呀,在BDE控件里的.