Fórum Caminho para banco de dados... #285322

Try
conexao.Connected := False;
 conn :=´FILE NAME=´+PathConfig;// <-- variavel que contem o caminho do banco, dentro de um arquivo ini...
  conexao.ConnectionString:=conn;
   conexao.Connected := True;
    Except
[color=red]//Se der erro na primeira tentativa tento novamente, usando o outra forma para acessar a base de dados...[/color]
Try
 conexao.Connected := False;
  Conn := ´Provider=Microsoft.Jet.OLEDB.4.0;Data Source=´+PathBanco+´;Persist Security Info=False;Jet OLEDB:Database Password=***dbtimer***´;
// A variável PathBanco tambem existe dentro do arquivo ini com o caminho da base de dados...
   conexao.ConnectionString := Conn;
    conexao.Connected := True;
    Except
     Application.MessageBox(´Ocorreu um erro na conexão com o Banco de Dados.´,´AVISO´,MB_ICONERROR+MB_OK);
[color=red]//se mesmo assim der erro, então abro o form para configuração das paths da base de dados, e em seguida, encerro a aplicação...[/color]
  Try
   Application.CreateForm(TFormParametros,FormParametros);
    FormParametros.ShowModal;
     Finally
    FormParametros.Release;
   FormParametros:=NIL;
  End;
Application.Terminate;
Halt(0);
End;
End;

//Grava a path do banco de dados dentro do arquivo .dat
procedure NovoCaminho_DB(Caminho:String);
var
NomeArq:String;
ArqIni:TIniFile;
begin
NomeArq := (ExtractFilePath(Application.ExeName)+´\Parametros.dat´);
ArqIni:=TIniFile.Create(NomeArq);
 Try
 ArqIni.WriteString(´Banco de Dados´,´Banco´,Caminho);
 Finally
 ArqIni.Free;
 End;
end;

//Pega os parametros do Sistema
procedure Parametros;
var
NomeArq:String;
ArqIni:TIniFile;
begin
NomeArq := (ExtractFilePath(Application.ExeName)+´\Parametros.dat´);
ArqIni:=TIniFile.Create(NomeArq);
 Try
 PathBanco  := ArqIni.ReadString(´Banco de Dados´,´Banco´,PathBanco);
 PathConfig := ArqIni.ReadString(´Banco de Dados´,´Config´,PathConfig);
 vDaHora    := ArqIni.ReadFloat(´Valor da Hora´,´R$´,vDaHora);
 vTempAviso := ArqIni.ReadTime(´Notificação´,´Tempo´,vTempAviso);
 Finally
 ArqIni.Free;
 End;
end;