delphi中如何连接access数据库,就是要解决本机上可以用,到其他机器上不能用的问题?哪位高手看一下怎么连接,
解决方案 »
- 如何搜索pe文件里面的字符串?
- 如何获得屏幕上某点的色彩?
- 金山office2005是用delphi开发的,讨论一下为什么金山选择Delphi呢?
- stringgrid&table
- delphi7下WinNT提升系统权限问题?
- 送分的问题:怎样写简单的Dll?
- 困惑!为什么一个透明,fsStayOnTop,全屏的窗体在同一程序的另一个全屏的窗体播放VCD时无法显示???
- dll 的问题,还有MSCOM控件...
- 关于Delphi的一个基本问题
- 菜鸟的烦恼之--有谁知道往DBGIRD中写记录的法子?此Dbgrid的字段名可用SQL增删,但无法往里写记录了,重谢!!
- TADOQuery插入数据行问题
- dll 类参数的问题
只要保证 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();
......
也可以用一个ini文件来进行配置,放在哪都无所谓,只需要在ini进行一下设置,然后读取就行了
如果是第2种情况应从机器配置上入手,安装一下Microsoft.Jet.OLEDB.4.0驱动.
如果是第1种情况,应该同样,只是地址\\127.0.0.1\共享文件夹\*.mbd
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;
http://topic.csdn.net/u/20081225/16/30fd195b-a925-4403-ba4e-dd39e3013ffc.html它目前支持连接Microsoft SQL SERVER,不久会增加对Access的支持。