PEX - Acessar Outros Bancos de Dados via PEX

Neste tópico veremos como conectar em uma base diferente a que o sistema usa via PEX. Usaremos apenas um botão neste exemplo para fazer a conexão.

Código PEX aplicado :

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;