Caminho relativo do Banco de Dados (SQLite)

15/04/2018

Bom dia, pessoal.

No meu sistema, somente o Data Module e o form principal s�o criado automaticamente. Para ter o caminho relativo at� o banco de dados, coloquei o seguinte c�digo no evento OnCreate do Data Module:

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
  try
    ShowMessage(ExtractFilePath(Application.ExeName));
    if FileExists(ExtractFilePath(Application.ExeName) + ''Clientes.sdb'') then
      begin
        conn.Params.DriverID := ''SQLite'';
        conn.Params.Database := ExtractFilePath(Application.ExeName) + ''Clientes.sdb'';
        conn.LoginPrompt := False;
      end;
  except
      // Mensagem de erro.
  end;
end;

No meu PC est� retornando o caminho corretamente. Por�m, fui testar em um notebook com um caminho diferente e uma exce��o est� sendo disparada:

Exception ESQLiteNativeException in Module Clientes.exe at 002CADD6. [FireDAC][Phys][SQLite] ERROR: unable to open database file.

Onde estou errando ?

Muito obrigado por qualquer ajuda.

Adalberto Brasaca

Curtir t�pico + 0

Responder