PEX - Acessando outras bases via PEX

var 

  liCodigoConector : integer; // <- Conector de conexão de banco de dados criado no Modulo de Processos -> Conectores,Conector da base que irá se conectar

  locds      : TLibCDS;

  lbErpOnline : boolean; // < -- Valida se estiver contactado ou não 

begin

    liCodigoConector := 16;  // <-- Codigo do conectar da base que irá se conectar

    try

      try

        loCDS := of_CriaCDSporSQL('select * from versaodb where 1=2', liCodigoConector ); // select para validar se a conexão foi feita.

        lbErpOnline := true;

        aoMensagem.SetStr('MENSAGEM', 'Conectado');

      except

             aoMensagem.SetStr('MENSAGEM', 'Não conectado');

             lbErpOnline := false;

       end;

     finally

           loCDS.Free;

    end;

end;