数据连接问题

Question

    with form1.ADOconnection1 do begin
    Close;
    ConnectionString := 'FILE NAME=.\数据库连结测试.udl';
    LoginPrompt := false;
    Provider := '.\数据库连结测试.udl';
    try
      Open;
    except
      Application.MessageBox('数据库打开错误,数据库可能未创建或配置文
件有误!',
        '警告', 48);
      halt;
    end;
  end;我怎么让我的程序在另外一台电脑上也能运行呢
我加入上面的代码怎么还是不能运行呢(测试连接成功了)
总提示
'数据库打开错误,数据库可能未创建或配置文
件有误!',

Answer 1

ConnectionString := 'FILE NAME=.\数据库连结测试.udl'; 改成:ConnectionString := ExtractFilePath(ParamStr(0))+'\数据库连结测试.udl'.只要你的主程序文件与udl文件在同一个目录下,一切OK.

Answer 2

落下了一点儿东西.呵呵,不好意思
应是这样
ConnectionString := 'FILE NAME=.\数据库连结测试.udl'; 改成:ConnectionString :='FILE NAME='+ ExtractFilePath(ParamStr(0))+'\数据库连结测试.udl'. 只要你的主程序文件与udl文件在同一个目录下,一切OK. 

Answer 3

数据库连结测试.udl'
你的配置文件写错了贝

Answer 4

ConnectionString := Getcurrentdir()+'\数据库连结测试.udl'. 
ConnectionString := ExtractFilePath(Application.Exename)'\数据库连结测试.udl'.