como testar a coneçao do banco de dados ???

Delphi

13/04/2005

qm sabe como testar se a coneçao com o banco de dados esta correta ???
uso o interbase !


Guilherme

Guilherme

Curtidas 0

Respostas

Ariovaldo

Ariovaldo

13/04/2005

ã Versão do aplicativo IBConsole que tenho existe uma opção no menu Server Diagnose Connection, esta opção só fica disponivel para servidores remoto ou seja testar um banco que não esta na mesma maquina e ele faz o teste por diversos protocolos.


GOSTEI 0
Guilherme

Guilherme

13/04/2005

consegui assim galera com o IBTadaBase , lembrando q os dados estao sendo lidos de um arquivo ini criptografado

bagin
MessageDlg(´Deixe o computador inativo até que receba o resultado!´+#13,mtinformation,[mbok],0);
teste.DatabaseName:= StDecrypt(f.ReadString(´banco´,´ip´,´´))+
 StDecrypt(f.ReadString(´banco´,´local´,´´));
 teste.Params.Clear;
 teste.params.Values[´user_name´]:=StDecrypt(f.ReadString(´banco´,´usuario´,´´));
teste.params.Values[´PASSWORD´]:=StDecrypt(f.ReadString(´banco´,´senha´,´´));
    try
      teste.Connected := true;
      teste.Connected := false;
      ShowMessage(´Conexão OK!´);
    except
      on e: exception do
        ShowMessage(´Falha na conexão!´+13 + ´Erro:   ´ + e.message);
    end;
end;



GOSTEI 0
POSTAR