Verificar Conexão ADO
Estou fazendo a tela inicial de login e nela tem um ado Connection. Para evitar problemas quero verificar antes se o sistema está se comunicando como banco.
Então quando entra no form fiz um If ADOConnection1.Connected = True then... BlahBlahBlah
else
blah blah blah
tá quando a conexão tava certo ok funcionava. só que quando não tava travava da mesma forma.
Como posso fazer esta verificação??
Então quando entra no form fiz um If ADOConnection1.Connected = True then... BlahBlahBlah
else
blah blah blah
tá quando a conexão tava certo ok funcionava. só que quando não tava travava da mesma forma.
Como posso fazer esta verificação??
Tiago_hs
Curtidas 0
Respostas
Paullsoftware
14/06/2006
Seria melhor vc verificar usando Try Except...
ou então fazer uma verificação se o arquivos existe...
espero ter ajudado! :wink:
ou então fazer uma verificação se o arquivos existe...
if FileExists(PathDoBanco) then..
espero ter ajudado! :wink:
GOSTEI 0
Tiago_hs
14/06/2006
Ta e como faz isso? não entendi direito
GOSTEI 0
Paullsoftware
14/06/2006
Ta e como faz isso? não entendi direito
Usando Try Except
Try
Conecao.Connected := False;
Conexao.ConnectionString := VarCaminho;
Conexao.Open;
Except
MessageDlg(´Ocorreu o seguinte erro:´+Msg.Message,MtError,[MbOk],0);
//Comandos a serem executados no caso de erro na abertura do banco
end;
uma outra maneira seria...
Eu uso arquivo INI para guardar as configurações de conexão com meu banco, então eu carrego essa configuração antes lendo o arquivo ini depois passo os valores, existem vários tópicos aqui de como fazer isso...
CarregaIniConexao();
if FileExists(CaminhoDaBase) then
begin
Conexao.Close;
Conexao.ConnectionString := CaminhoDaBase;
Conexao.Open;
end
else
begin
//Comandos a serem executados no caso de erro...
end;
espero ter ajudado, qq coisa posta ai :wink:
GOSTEI 0
Tiago_hs
14/06/2006
Agora sim!! heheh valew
GOSTEI 0