ERRO DE CONEXÃO COM BANCO DE DADOS DEVIDO A MUDANÇA DE DIRETÓRIO

Delphi

07/05/2018

Bom dia pessoal!

Fiz uma aplicação em DELPHI bem simples e usei o ACCESS como banco de dados.
A aplicação foi desenvolvida no disco "C" (C:\\\\ANOTAR\\\\ANOTAR.EXE) porem o cliente fez a instalação no disco "D" e surgiu um problema na conexão com o banco de dados devido à mudança de diretório. Como posso estar resolvendo isso?
Mailson Janoca

Mailson Janoca

Curtidas 0

Melhor post

Natanael Ferreira

Natanael Ferreira

07/05/2018

Para evitar este tipo de problema, não deixe fixo o caminho onde ficará o banco.

Utilize o ExtractFilePath para buscar a pasta da aplicação e setar no caminho do Banco de dados.

Exemplo:

var
  caminhoBD: string;
begin
  caminhoBD:= ExtractFilePath(Application.ExeName) + 'BD.mdb';

  // Aqui você usa a variável "CaminhoBD" para setar o caminho do banco de dados

end;


GOSTEI 1

Mais Respostas

Mailson Janoca

Mailson Janoca

07/05/2018

Boa Tarde Natanael Ferreira!

Desculpa a ignorância como faço para setar o caminho do banco de dados?

Desde já agradeço.
GOSTEI 0
Natanael Ferreira

Natanael Ferreira

07/05/2018

Depende de quais componentes para conexão com o banco de dados você utiliza.

Por exemplo, tenho uma pequena aplicação aqui que usa Access assim como a sua.

Como componentes de conexão utiliza ADO. Meu banco de dados chama-se BD.mdb.

Coloco o código abaixo no evento OnShow do form que tenho o componente AdoConnection.

var
  BD: string;  
begin
  With AdoConnection1 do
  Begin
    Connected := False;

    BD := ExtractFilePath(Application.ExeName) + 'BD.MDB'; //Pega o caminho do BD na pasta da aplicação
    
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + BD +
      ';Persist Security Info=False';

    Connected := True;
  End;
end;
GOSTEI 0
Mailson Janoca

Mailson Janoca

07/05/2018

POSSO TE MANDAR MEU FONTE???
GOSTEI 0
POSTAR