procedure DBConnect();
{
  功能: 连接到数据库
}
var
  s : string;
begin  g_CurDir := ExtractFilePath(Application.ExeName);  // 创建数据模块
  MainDB := TMainDB.Create(Application);  // 连接数据库
  if not mainDB.adoCn.Connected  then
  begin
    s := g_CurDir+'DB\'+'xxx.mdb';
    s := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+ s;
    mainDb.adoCn.ConnectionString := s;
    maindb.adoCn.Connected := true;
    maindb.adsTb.CommandText := 'select * from Client';
    maindb.adsTb.Connection := maindb.adoCn;
    maindb.adsTb.Active := true;
  end;end;

解决方案 »

  1.   


    我用的是Delphi6+ado+Access97
    UP
      

  2.   

    ado的版本与WIN2000中的是否相同?
      

  3.   

    TO:楼上
    ado的版本从哪里看得出来?
      

  4.   

    我用adoquery试过,只是adoquery打开表的SQL语句是在SQL属性中。
    没有任何问题。
      

  5.   

    Plz Help me!
    怎样使得ADO版本一致?
    我将98下的Msado15.dll拷到安装目录还是不行啊。
      

  6.   

    为什么不行???我这里没有问题啊但是我这是DELPHI6+ACCESS2K
      

  7.   

    呵呵,没有BDE的sql link,你怎么用阿
      

  8.   

    To 楼上:一定要用BDE吗?sql link在哪里?
      

  9.   

    1d6的升级包打了吗?d6刚出来的时候,有时有错误就直接退出了
    2 和bde完全无关
    3 g_CurDir := ExtractFilePath(Application.ExeName);
      if g_CurDir[length(g_CurDir)]<>'\' then 
         g_CurDir :=g_CurDir +'\';
      

  10.   

    建议你去下载个新的ADO包。DELPHI网站上应该有的
      

  11.   

    俺找不到新的ADO包,网上只有DELPHI5的ADO包
      

  12.   

    刚刚升级了SP2:
    D6_upd2_ent.exe
    还是不幸!
      

  13.   

    Access的登陆是要用户和密码的
      

  14.   

    没设置Access的登陆密码
    在WIN2K下重新捕捉到的错误如下:
    未找到提供程序。该程序可能未正确安装。
      

  15.   

    我怀疑是Access97的问题,你在Win2K下安装Office2000了吗?
      

  16.   

    我认为可能是ADO的版本的问题!楼主可以试着把程序放在WIN2K下编译一次,看一看是什么样的结果 !
      

  17.   

    程序是在98下编译的
    我没有权力要求用户安装Office2000
      

  18.   

    各位:
    有没有办法不装Office就能解决问题呢?
      

  19.   

    To 楼上:
    Win2K已经自带MDAC了
      

  20.   

    我遇到的一个问题是:D6环境下,win2000中用adotable设计时刻可以浏览表,编译运行后就出错,98下面可以,好像与你的问题类似,我没找到方法解决,只好用adoquery