Tratar Erro de Conexao

Question

Como eu poderia fazer para evitar que apare�a aquele erro �...I/O error for file...� Esser erro ocorre quando o arquivo de dados, configurado nos params do SQLConnection n�o existe.

Uso Delphi 7 e Firebird

Lynx · Answer

Com try...Segue abaixo um exemplo no create do DataModule[code:1:64fad9031e]  with DataModule do    begin      Try        cntConnect.Params.Values&#91;�Database�&93;:= path;        cntConnect.Open;      except        Application.MessageBox(�N�o Foi Possivel Estabelecer a � +        �Conex�o com o Servidor !�,        �Aviso�,MB_ICONERROR);        Exit;      end;    end;[/code:1:64fad9031e]...

Lucianobarreto · Answer

[b:6d39259841]Eu costumo usar assim:[/b:6d39259841]

Var
ArqIni: tIniFile;
CaminhoBD: String;
Begin
ArqIni := TIniFile.Create(extractFilePath(ParamStr(0)) + �Conf.ini�);
try
CaminhoBD := ArqINI.ReadString(�SISTEMA�,�Caminho�,��);
Finally
ArqINI.Free;
end;
BD.Connected := False;
Try
BD.DataBaseName := CaminhoBD;
BD.Connected := True;
Trans.Active := True;
except
On E : EDataBaseError do
begin
if Pos(�UNAVAILABLE DATABASE�,UpperCase(E.Message)) <> 0 then
begin
ShowMessage( �O Servidor InterBase n�o foi iniciado!�);
Application.Terminate;
end
else
if Pos(�DATABASE NAME IS MISSING�,UpperCase(E.Message)) <> 0 then
begin
ShowMessage( �Banco de Dados n�o informado!�);
Application.Terminate;
end
else
begin
ShowMessage( �O Banco de Dados n�o foi localizado!�);
Application.Terminate;
end;
end;
end;

F�rum Tratar Erro de Conexao #291675