Re: [firebase-br] Firebird 1.0.3.972 e 1.5.3.4870 (numa mesma máquina) WIN98

[Carlos H. Cantu (TeamFB)]

Pode ser problema no Zeos, não sei...

Experimente tentar fazer a conexão usando o isql.

[]s
Cantu (Membro do TeamFB - FireBase)
http://www.warmboot.com.br
FireBase - http://www.FireBase.com.br

H> Carlos H. Cantu (TeamFB) wrote:

>> Vc tem que indicar a porta certa no path de conexão com o banco. O
>> livro diz como fazer isso.
>> 

H> Bom dia Carlos!

H> Desculpe meus pecados..rs, estou utilizando o componente de acesso ZEOS
H> e na propriedade Port eu justamente estou informando a porta 3051 - no
H> caso do FB1.5 e mesmo assim não consigo fazer com minha aplicação
H> funcione corretamente. Segue abaixo parte do código onde faço a conexão
H> com o BD. Sei que não é correto enviar código, mais realmente estou
H> desesperado e espero que vc entenda.

H> Sds,

H> Hélio Oliveira (HPensador)

H> procedure TdmDados.DataModuleCreate(Sender: TObject);
H> begin
H>   if vEstacao = '0' then
H>   begin
H>     try
H>       if dmDados.Conexao.Connected then
H>         dmDados.Conexao.Disconnect;
H>       dmDados.Conexao.Port := 3051;
H>       dmDados.Conexao.Protocol := 'firebird-1.5';
H>       dmDados.Conexao.Database := vDados;
H>       dmDados.Conexao.Connect;
H>     except
H>       ShowMessage('Não foi possível conectar com a Base de Dados,
H> verifique com o Administador do Sistema!');
H>     end;
H>     try
H>       if dmDados.ZConexaoPPP.Connected then
H>         dmDados.ZConexaoPPP.Disconnect;
H>       dmDados.Conexao.Port := 3050;
H>       dmDados.Conexao.Protocol := 'firebird-1.0';
H>       dmDados.ZConexaoPPP.Database := 'C:\Sigmel\PPP\Dados\Ppp.gdb';
H>       dmDados.ZConexaoPPP.Connect;
H>     except
H>       ShowMessage('Não foi possível conectar com a Base de Dados do
H> PPP, verifique com o Administador do Sistema!');
H>     end;
H>   end
H>   else
H>   begin
H>     try
H>       if dmDados.Conexao.Connected then
H>         dmDados.Conexao.Disconnect;
H>       dmDados.Conexao.Port := 3051;
H>       dmDados.Conexao.Protocol := 'firebird-1.5';
H>       dmDados.Conexao.Database := vServidor + ':' + vDados;
H>       dmDados.Conexao.Connect;
H>     except
H>       ShowMessage('Não foi possível conectar com a Base de Dados,
H> verifique com o Administador do Sistema!');
H>     end;
H>     try
H>       if dmDados.ZConexaoPPP.Connected then
H>         dmDados.ZConexaoPPP.Disconnect;
H>       dmDados.Conexao.Port := 3050;
H>       dmDados.Conexao.Protocol := 'firebird-1.0';
H>       dmDados.ZConexaoPPP.Database := vServidor +
H> ':C:\Sigmel\PPP\Dados\Ppp.gdb';
H>       dmDados.ZConexaoPPP.Connect;
H>     except
H>       ShowMessage('Não foi possível conectar com a Base de Dados do
H> PPP, verifique com o Administador do Sistema!');
H>     end;
H>   end;


H> ______________________________________________
H> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
H> Para editar sua configuração na lista, use o endereço
H> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
H> Para consultar mensagens antigas: http://firebase.com.br/pesquisa