帮我看看这段把dbf文件导入Access的代码有问题吗?
lvlay 2003-10-09 09:01:31 begin
filename:=extractfilepath(Application.ExeName);
filename:=Filename+'DB\Irontower.mdb';
with ADOConnection1 do
begin
ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;'+
'DataSource='+filename+
';Persist Security Info=False' ;
Connected := True;//Open DataBase
end;
AdoConnection1.Open;
AdoConnection1.Execute('delete from 中间表 ');
AdoConnection1.Close;
test:=renamefile(filename2,filename1) ;
Form2.AdoTable1.Active:=false;
for i:=0 to Count-1 do
begin
filename1:=Strings[i];
filename2:=changefileext(filename1,'.dbf');
renamefile(filename1,filename2) ;
path:=ExtractFilePath(filename1);
filename:=ExtractfileName(filename2);
AdoConnection1.Open;
AdoConnection1.Execute('Insert into 中间表 Select * from [dbase III;database='+path+'].'+filename+';');
AdoConnection1.Close;
test:=renamefile(filename2,filename1) ;
end ;
end
这段代码在delphi下运行没问题,不论是98还是XP
可是在每装delphi的98下运行报错,说什么 找不到某某dbf对象,请确定文件路径云云,可是dao2.7,msjet4.0等驱动都装了亚,各位大虾帮帮忙呀