使用 initfile 打开数据库

Question

如何使用 IniFile 打开本地或远程数据库。 像下面这样的东西。

   vBanco : String; 
   IniFileName : TIniFile; 
begin 
    IniFileName := TIniFile.Create(ExtractFilePath(ParamStr(0))+FileName); 
    Try
        if FileExists (remote+'db\ado.mdb') then
        begin

               vBanco := Trim(IniFileName.ReadString('acesso','BancoRemto','')); 
               Dirlocal := Trim(IniFileName.ReadString('acesso','PastasRemto','')); 
               frmPrincipal.Edit1.text := Dirlocal; 
               Dirtrabalho := (ExtractFilePath(Application.ExeName));

               Conection.ConnectionString := vBanco;
        end
        else
        begin 
           Try 
              vBanco := Trim(IniFileName.ReadString('acesso','banco','')); 
              Dirlocal := Trim(IniFileName.ReadString('acesso','PastasLocais','')); 
              frmPrincipal.Edit1.text := Dirlocal; 
              Dirtrabalho := (ExtractFilePath(Application.ExeName)); 
           Finally 
           end;
        end; 
    Finally
       IniFileName.Free;
    end;
end;

Answer 1

看起来您的代码似乎是正确的，如果您遇到问题，请确保 INI 连接字符串的值有效。获取有效连接字符串的一个好方法是在设计时设置连接，然后将其复制并粘贴到配置文件中。

Answer 2

如果您的问题出在 FileExists 上，请按以下方法查找问题。

在 if FileExists 行放置一个断点。当它中断到调试器时，按 CTRL-F7，这将打开“评估/修改”对话框。在输入框中输入 remote+'db\ado.mdb' 并查看它给出的内容。它很可能会给你一个错误的文件名。

例如，如果 remote 不以反斜杠结尾，那么将产生无效路径。您可以使用 IncludeTrailingPathDelimiter 函数修复此问题。如果没有看到更多代码，很难确定，但根据我的经验，这可能就是正在发生的事情。

Answer 3

我发现了我的错误。我应该在由以下命令确定的目录中查找名为“base_dados.mdb”的文件，而不是根据全局变量remote检查目录中是否存在名为“ado.mdb”的文件我从 INI 文件中读取的值。

procedure TfrmDados.ConectionBeforeConnect(Sender: TObject);
const
  FileName = 'config.ini';
var
  vBanco : String;
  IniFileName : TIniFile;
  LBasedados : String;
begin
  IniFileName := TIniFile.Create(ExtractFilePath(ParamStr(0))+FileName);

  vBanco := Trim(IniFileName.ReadString('acesso','BDtrabalho',''));
  Dirlocal := Trim(IniFileName.ReadString('acesso','Pastrabalho',''));
  LBasedados := Dirlocal+'db\base_dados.mdb';
  frmPrincipal.Edit1.text := Dirlocal;
  Dirtrabalho := (ExtractFilePath(Application.ExeName));
  if FileExists(LBasedados) then
    Conection.ConnectionString := vBanco
  else
  begin
    Application.MessageBox('Bade dados do servidor não encontrada vai trabalhar neste Computador!','Ligação Remota FALHOU');
    vBanco := Trim(IniFileName.ReadString('acesso','BD_local',''));
    Dirlocal := Trim(IniFileName.ReadString('acesso','Pasta_local',''));
    frmPrincipal.Edit1.text := Dirlocal;
    Dirtrabalho := (ExtractFilePath(Application.ExeName));
    Conection.ConnectionString := vBanco;
  end;

  IniFileName.Free;
end;