怎样在delphi中使用ini配置数据库(access)?

Question

用delphi操作配置文件配置数据库，不知怎样实现，请赐教
最好有相关代码 谢谢

Answer 1

var
  inifile : Tinifile;inifile := Tinifile.create(filename);
try
  inifile.read...( ) //读ini文件
  inifile.write...() //写ini文件
finally
  inifile.free;
end;

Answer 2

这样试一下
Uses
IniFilesVar  
sServerName,sDatabaseName,sDataPw,sAdoConString :String;
List: Tinifile;
Begin
   If ADOConnectionEAM.Connected Then
    ADOConnectionEAM.Connected := False;
 Try
    List := Tinifile.Create(ExtractFilePath(Application.ExeName)+'DataSet.ini');
    sDatabaseName:=list.readstring('LdEamDataSet','sDatabaseName','');
    sDataUser:=list.readstring('LdEamDataSet','sDataUser','');
    sAdoConString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+sDatabaseName+';Persist Security Info=False '
 Finally
    List.free;
  End;
  Try
    ADOConnectionEAM.Connected := True;
  Except
    ShowMessage('数据库连接失败，请重新配置！');
    Exit;
  End;
End;