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

[HPensador]

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.
> 

Bom dia Carlos!

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

Sds,

Hélio Oliveira (HPensador)

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