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等驱动都装了亚,各位大虾帮帮忙呀

解决方案 »

  1.   

    AdoConnection1.Execute('Insert  into 中间表  Select * from    [dbase III;database='+path+'].'+filename+';');
    ---------------------------------------------------------------------
     AdoConnection1.Execute('Insert  into 中间表  Select * from    [dbase 5.0;database='+path+'].'+filename+';');
      

  2.   

    我想问下楼主,ADO能连上DBF?
      

  3.   

    代码没问题,你在WIN98下安装MDAC2.71试试,到MS的网站下载
      

  4.   

    同意 WWWWA(aaaa) 。不想下载也可以安装delphi光盘中的mdac_type.exe那个文件。
      

  5.   

    TO WWWWA(aaaa):请问,ADO能连上DBF吗?
      

  6.   

    同意 WWWWA(aaaa) (   WuLoveXue(晕死,又这样) ,你是什么意思?ADO如何连不上DBF????当然可以了,通过ODBC,什么都可以
      

  7.   

    adoconection:
    Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\rsc;Extended Properties=dbase 5.0;Persist Security Info=False
      

  8.   

    对bdf 文件,俺不是很熟
    学习ing …………
      

  9.   

    MDAC2.7 我装了,没用呀,烦躁死了,我把MDAC2.7,DAO3.5,MSjet4.0用wise打包了,没用呀
      

  10.   

    同意WWWWA(aaaa) ,ADO能连接很多数据库,当然包括DBF!!!而且不能ODBC!!!!!
    只是我有问题:ADO的连接字串中两个属性的值
    一是:EXTENDED PROPERTIES,我所知连FOXPRO的DBF可用DBASE IV
       连EXCEL可用EXCEL 8.0,,其它的呢,有这样一份完整的表吗?
    二是:JET OLEDB:ENGINE TYPE,连FOXPRO的DBF可用17,
       其它的呢,有这样一份完整的表吗?
    我想很多人都想知道这个答案吧!!