delphi连接Access

Question

delphi中如何连接access数据库，就是要解决本机上可以用，到其他机器上不能用的问题？哪位高手看一下怎么连接，

Answer 1

我也是初学，给你一段代码。
只要保证 access是相对路径即可。。
//    con: TADOConnection;
//    cmd: TADOCommand;
//    dataset: TADODataSet;
FAppPath := ExtractFilePath(Application.ExeName);
ADOString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'+
              'Jet OLEDB:Database Password=''''';
con.ConnectionString := Format(AdoString,[FAppPath + '\Data.mdb']);
con.LoginPrompt := false;
con.Connected := true;
cmd.Connection := con;
cmd.CommandText := sql;
dataset.Recordset := cmd.Execute();
......

Answer 2

顶楼上的
也可以用一个ini文件来进行配置，放在哪都无所谓，只需要在ini进行一下设置，然后读取就行了

Answer 3

ini的文件如何弄，怎么样读取呀，请详细介绍一下

Answer 4

不明白你的意思,是连接其它机器的数据库,还是在其它机器上运行程序?
如果是第2种情况应从机器配置上入手,安装一下Microsoft.Jet.OLEDB.4.0驱动.
如果是第1种情况,应该同样,只是地址\\127.0.0.1\共享文件夹\*.mbd

Answer 5

1楼正解,一般最好INI文件来,否则到时候数据库位置改动很麻烦

Answer 6

就是写好一个带数据库的程序，怎么样编写INI文件，让程序到其他电脑上使用，或者路径更改的时候，还能用

Answer 7

简单的例子,引用inifiles
procedure TFrmServerIP.BitBtn1Click(Sender: TObject);
var
  Ini: TIniFile;
begin
  if TestConnectToDB then
  begin
    Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'/Server.ini');
    try
      Ini.WriteString('Server', 'HostIP', Edit1.text);
      MessageBox(handle,'新的服务器设置成功!','提示',MB_ICONINFORMATION);
      Close;
    finally
      Ini.Free;
    end;
  end else
  begin
    MessageBox(handle,'与服务器连接失败，请重新设置!','提示',MB_ICONERROR);
  end;
end;读取
function GetServerIP: String;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'/Server.ini');
  try
    Result := Ini.ReadString('Server', 'HostIP', '127.0.0.1');
  finally
    Ini.Free;
  end;
end;

Answer 8

用access的话只要把数据库文件和执行文件拷到其他其他机器就可以用

Answer 9

你可以参考我最新发布的 数据库连接配置管理组件 ConnectionManager V2.0 (Full Source)
http://topic.csdn.net/u/20081225/16/30fd195b-a925-4403-ba4e-dd39e3013ffc.html它目前支持连接Microsoft SQL SERVER，不久会增加对Access的支持。