base de données ouverte avec initfile

Question

comment ouvrir une base de données locale ou distante avec IniFile. quelque chose comme ci-dessous.

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

Il semble que si vous avez votre code, si vous utilisez des problèmes assurez-vous que la valeur de la chaîne de connexion INI est valide. Un bon moyen d'obtenir une chaîne de connexion valide est de configurer la connexion au moment de la conception, puis copiez-la et collez-la dans votre fichier de configuration.

Answer 2

Si votre problème concerne FileExists, procédez comme suit.

Mettez un point d'arrêt sur la ligne if FileExists. Quand il se casse au débogueur, appuyez sur CTRL-F7, ce qui fera apparaître la boîte de dialogue Evaluer/Modifier. Tapez remote+'db\ado.mdb' dans la zone de saisie et voir ce qu'il donne. Cela vous donnera probablement un mauvais nom de fichier.

Par exemple, si remote ne se termine pas par une barre oblique inverse, cela générera un chemin invalide. Vous pouvez résoudre ce problème avec la fonction IncludeTrailingPathDelimiter. Difficile d'être certain sans voir plus de code, mais d'après mon expérience c'est probablement ce qui se passe.

Answer 3

J'ai trouvé mon erreur. Au lieu de vérifier l'existence d'un fichier nommé "ado.mdb" dans un répertoire basé sur la variable globale remote, j'aurais dû chercher un fichier nommé "base_dados.mdb" dans un répertoire déterminé par une valeur que j'ai lue depuis un INI fichier.

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;