帮我看看这段把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等驱动都装了亚,各位大虾帮帮忙呀
...全文
52 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
WuLoveXue 2003-10-10
  • 打赏
  • 举报
回复
哦,用ODBC啊!我理解错了!
xiaoyuer0851 2003-10-10
  • 打赏
  • 举报
回复
对bdf 文件,俺不是很熟
学习ing …………
WWWWA 2003-10-10
  • 打赏
  • 举报
回复
adoconection:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\rsc;Extended Properties=dbase 5.0;Persist Security Info=False
cow8063 2003-10-10
  • 打赏
  • 举报
回复
同意 WWWWA(aaaa) (

WuLoveXue(晕死,又这样) ,你是什么意思?

ADO如何连不上DBF????当然可以了,通过ODBC,什么都可以
WuLoveXue 2003-10-10
  • 打赏
  • 举报
回复
TO WWWWA(aaaa):请问,ADO能连上DBF吗?
hongjg 2003-10-10
  • 打赏
  • 举报
回复
同意 WWWWA(aaaa) 。不想下载也可以安装delphi光盘中的mdac_type.exe那个文件。
WWWWA 2003-10-10
  • 打赏
  • 举报
回复
代码没问题,你在WIN98下安装MDAC2.71试试,到MS的网站下载
WuLoveXue 2003-10-10
  • 打赏
  • 举报
回复
我想问下楼主,ADO能连上DBF?
jingbianfc 2003-10-10
  • 打赏
  • 举报
回复
错了,是“而且不需ODBC”
jingbianfc 2003-10-10
  • 打赏
  • 举报
回复
同意WWWWA(aaaa) ,ADO能连接很多数据库,当然包括DBF!!!而且不能ODBC!!!!!
只是我有问题:ADO的连接字串中两个属性的值
一是:EXTENDED PROPERTIES,我所知连FOXPRO的DBF可用DBASE IV
   连EXCEL可用EXCEL 8.0,,其它的呢,有这样一份完整的表吗?
二是:JET OLEDB:ENGINE TYPE,连FOXPRO的DBF可用17,
   其它的呢,有这样一份完整的表吗?
我想很多人都想知道这个答案吧!!
lvlay 2003-10-10
  • 打赏
  • 举报
回复
MDAC2.7 我装了,没用呀,烦躁死了,我把MDAC2.7,DAO3.5,MSjet4.0用wise打包了,没用呀
Shiyl 2003-10-09
  • 打赏
  • 举报
回复
AdoConnection1.Execute('Insert into 中间表 Select * from [dbase III;database='+path+'].'+filename+';');
---------------------------------------------------------------------
AdoConnection1.Execute('Insert into 中间表 Select * from [dbase 5.0;database='+path+'].'+filename+';');

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧