Verificar Conexão (tsqlconnection) com o Banco de Dados Firebird

Delphi

09/11/2012

Faço a conexão com o banco através do arquivo .ini. Mas na tela de criação do arquivo ini, quero botar um botão TESTAR CONEXÃO.
Mas nos meus testes, mesmo se o banco não existir, ele está retornando "Conexão realizada com Sucesso".
Então gostaria q me ajudassem a descobrir onde está o erro. E desde já agradeço.
Fiz de duas formas, abaixo o evento do botão (primeira forma).

procedure TFrmConfig.BitBtn1Click(Sender: TObject);
var caminhocompletobanco : string;
begin
caminhocompletobanco := EdtIp.Text+'/'+ EdtPorta.Text+':'+EdtPatch.Text; //recebe o caminho do banco e o ip
  Try
   DMConexao.Conexao.Params.Values['DriverName']:= 'Firebird';
   DMConexao.Conexao.Params.Values['Database']:= caminhocompletobanco;
   DMConexao.Conexao.Params.Values['User_Name']:= 'SYSDBA';
   DMConexao.Conexao.Params.Values['Password']:= 'masterkey';
    DMConexao.Conexao.Connected := True;
    ShowMessage('Conexão realizada com Sucesso!');
    Except
     Application.MessageBox('Erro ao conectar-se no banco de dados. Verifique.','ATENÇÃO',MB_ICONINFORMATION);
  End;
end;


O problema é q nunca cai na exceção.
Rodrigo Barra

Rodrigo Barra

Curtidas 0

Respostas

Rodrigo Barra

Rodrigo Barra

09/11/2012

A segunda maneira q fiz foi assim: E também cai só na Mensangem: "Conexão realizada com Sucesso".

with DMCONEXAO do
begin
caminhocompletobanco := EdtIp.Text+'/'+ EdtPorta.Text+':'+EdtPatch.Text;
   DMConexao.Conexao.Params.Values['DriverName']:= 'Firebird';
   DMConexao.Conexao.Params.Values['Database']:= caminhocompletobanco;
   DMConexao.Conexao.Params.Values['User_Name']:= 'SYSDBA';
   DMConexao.Conexao.Params.Values['Password']:= 'masterkey';

   if DMConexao.Conexao.Connected = True then
   begin
   ShowMessage('Conexão realizada com Sucesso!');
   end
   else if DMConexao.Conexao.Connected = False then
   begin
   ShowMessage('Não foi possível conectar com o Banco de Dados!');
   end;
end;
GOSTEI 0
Marco Salles

Marco Salles

09/11/2012

como esta a propriedade LoadParamsOnConnect do SqlConnection ??
GOSTEI 0
Rodrigo Barra

Rodrigo Barra

09/11/2012

LoadParamsOnConnect está False
GOSTEI 0
Rodrigo Barra

Rodrigo Barra

09/11/2012

passei o LoadParamsOnConnect := true
mas dá erro, pq no momento q testo a conexão ainda não existe o arquivo .ini. pois estou só testando. Depois q vou criar o ini.
GOSTEI 0
POSTAR