Fórum Verificar Conexão (tsqlconnection) com o Banco de Dados Firebird #428470
09/11/2012
0
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
Curtir tópico
+ 0Posts
09/11/2012
Rodrigo Barra
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
09/11/2012
Marco Salles
Gostei + 0
09/11/2012
Rodrigo Barra
Gostei + 0
09/11/2012
Rodrigo Barra
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
Clique aqui para fazer login e interagir na Comunidade :)