{"id":326,"date":"2019-03-25T17:30:19","date_gmt":"2019-03-25T20:30:19","guid":{"rendered":"http:\/\/xexeu.elipse.com.br\/pt\/conectando-uma-aplicacao-vba-a-um-e3server-com-a-biblioteca-de-comunicacao-e3dataaccess\/"},"modified":"2024-03-28T16:00:32","modified_gmt":"2024-03-28T19:00:32","slug":"conectando-uma-aplicacao-vba-a-um-e3server-com-a-biblioteca-de-comunicacao-e3dataaccess","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/conectando-uma-aplicacao-vba-a-um-e3server-com-a-biblioteca-de-comunicacao-e3dataaccess\/","title":{"rendered":"Conectando uma aplica\u00e7\u00e3o VBA a um E3Server com a biblioteca de comunica\u00e7\u00e3o E3DataAccess."},"content":{"rendered":"
\n

NOTAS GERAIS:
\n<\/u><\/strong><\/p>\n

    \n
  1. Este artigo se aplica ao Elipse E3<\/b>, vers\u00f5es 4.0<\/b> ou inferior<\/b>.<\/li>\n
  2. A biblioteca E3DataAccess apresenta um erro<\/a><\/u> ao ser utilizada em linguagens sem tipos (typeless), como o VBScript ou o JavaScript.<\/li>\n
  3. Este componente \u00e9 compat\u00edvel apenas com aplica\u00e7\u00f5es 32 bits.<\/li>\n<\/ol>\n

    1) Introdu\u00e7\u00e3o<\/u><\/strong><\/p>\n

    A biblioteca E3DataAccess <\/b>fornece ao usu\u00e1rio uma nova maneira de conex\u00e3o com o E3Server. Agora, qualquer aplica\u00e7\u00e3o desenvolvida em VB, Delphi, .NET ou outra linguagem com suporte a COM consegue se comunicar com o E3Server com a utiliza\u00e7\u00e3o das fun\u00e7\u00f5es fornecidas por ela.<\/p>\n

    Este artigo ilustra o funcionamento do E3Server com uma aplica\u00e7\u00e3o desenvolvida em um ambiente VBA, atrav\u00e9s do Microsoft Excel. O mesmo procedimento tamb\u00e9m pode ser aplicado em outros ambientes de desenvolvimento, adequando seu c\u00f3digo de acordo com a sintaxe da linguagem utilizada.
    \n<\/u><\/p>\n

    2) Habilitando a biblioteca E3DataAccess para uso no VBA<\/b><\/p>\n

    Antes de criar a aplica\u00e7\u00e3o pelo VBA, \u00e9 preciso habilitar a biblioteca E3DataAccess <\/b>para uso no ambiente de desenvolvimento. Ap\u00f3s isto, ficar\u00e3o dispon\u00edveis todas as fun\u00e7\u00f5es necess\u00e1rias para a comunica\u00e7\u00e3o\u00a0 com o E3Server.<\/p>\n

    Com o E3Studio, Microsoft Excel e VBA devidamente instalados, acesse a interface VBA da aplica\u00e7\u00e3o Excel. Na interface do VBA, adicione a biblioteca E3DataAccess na lista de refer\u00eancias do projeto. Para isto, entre na op\u00e7\u00e3o References<\/b>, localizada no menu Tools<\/b>:<\/p>\n

    \"\"
    \nFigura 1<\/b>: Acessando lista de refer\u00eancias do projeto
    \n<\/span><\/div>\n

    Na lista de refer\u00eancias dispon\u00edveis, procure pela biblioteca E3DataAccess e habilite-a atrav\u00e9s da caixa de sele\u00e7\u00e3o.<\/p>\n

    \"\"
    \nFigura 2<\/b>: Lista de refer\u00eancias dispon\u00edveis no projeto<\/span><\/div>\n

    Caso a biblioteca n\u00e3o esteja dispon\u00edvel na lista de refer\u00eancias, \u00e9 preciso registr\u00e1-la. Para isto, clique no bot\u00e3o Browse<\/b>, e uma caixa de sele\u00e7\u00e3o para a determina\u00e7\u00e3o da biblioteca ser\u00e1 exibida.<\/p>\n

    \"\"
    \nFigura 3<\/b>: Caixa de sele\u00e7\u00e3o da biblioteca<\/span><\/div>\n

    Procure pelo arquivo .dll chamado E3DataAccess<\/b>. Ele vem juntamente no pacote do E3 vers\u00e3o 3.0, e encontra-se dentro do seu\u00a0 diret\u00f3rio de instala\u00e7\u00e3o, na subpasta Bin <\/b>(exemplo: C:\/Program Files\/Elipse E3\/Bin<\/span>). Ap\u00f3s abrir o arquivo .dll, a biblioteca E3DataAccess <\/b>ficar\u00e1 dispon\u00edvel na lista de refer\u00eancias; ent\u00e3o, siga o passo anterior novamente. Confirme a modifica\u00e7\u00e3o clicando no bot\u00e3o OK<\/b>.<\/p>\n

    3) Instanciando um novo objeto E3DataAccess no projeto<\/b><\/u><\/p>\n

    Ap\u00f3s a biblioteca E3DataAccess <\/b>ter sido adicionada ao projeto, \u00e9 poss\u00edvel utiliz\u00e1-la. Neste exemplo, vamos adicionar um novo m\u00f3dulo ao projeto e instanciar um objeto do tipo E3DataAccess <\/b>dentro dele.<\/p>\n

    Para criar um novo m\u00f3dulo, uma das alternativas \u00e9 clicar com o bot\u00e3o direito do mouse em cima do nome do projeto, dispon\u00edvel via Project Explorer, e selecionar a op\u00e7\u00e3o Insert–Module<\/b>.<\/p>\n

    \"\"
    \nFigura 4<\/b>: Inserindo um novo M\u00f3dulo pelo VBA<\/span><\/div>\n

    Feito isto, ser\u00e1 adicionado um novo m\u00f3dulo ao projeto, com o nome default de Module1<\/b>, que deve ser renomeado como E3ServerCOM<\/b>.<\/p>\n

    Clique duas vezes em cima do m\u00f3dulo E3ServerCOM <\/b>criado para acessar seu c\u00f3digo. Neste momento, n\u00e3o existe nenhum c\u00f3digo dentro do m\u00f3dulo. \u00c9 nele que vamos inserir a seguinte linha para a instancia\u00e7\u00e3o do objeto E3DataAccess, conforme abaixo:<\/p>\n

    Public E3 As New E3DATAACCESSLib.E3DataAccessManager <\/span><\/pre>\n
    Com esta linha de c\u00f3digo, criamos um novo objeto chamado E3<\/b>, derivado da classe E3DATAACCESSLib.E3WebLinkMan<\/i>. Esta classe cont\u00e9m todas as fun\u00e7\u00f5es necess\u00e1rias para realizar a conex\u00e3o com o E3Server. O objeto tamb\u00e9m foi instanciado como p\u00fablico, sendo portanto acess\u00edvel em qualquer lugar do projeto.<\/p>\n
    NOTA<\/b>: *quando um novo objeto E3DataAccess <\/b>\u00e9 instanciado, tamb\u00e9m \u00e9 consumido um produto de Viewer do Hardkey. Isso pode ser visualizado na\u00a0op\u00e7\u00e3o de Licen\u00e7as<\/b>, dispon\u00edvel no menu do E3Server. Portanto, deve-se prestar aten\u00e7\u00e3o redobrada para que n\u00e3o sejam consumidos mais produtos do que o necess\u00e1rio.<\/p>\n
    *A partir da vers\u00e3o 4.5.208 o E3Server suporta conex\u00f5es do E3DataAccess e do E3AccessLayer ilimitadas, sem consumo de Viewer ou de qualquer outro tipo de produto.
    \n
    \n4) Aplica\u00e7\u00e3o E3<\/b><\/u><\/p>\n
    A aplica\u00e7\u00e3o E3 utilizada para este exemplo \u00e9 uma aplica\u00e7\u00e3o padr\u00e3o com dois objetos TagDemo <\/b>e um TagInterno <\/b>dentro do Servidor de Dados para demonstra\u00e7\u00e3o dos m\u00e9todos de leitura e escrita do E3DataAccess<\/b>. Al\u00e9m deles, tamb\u00e9m foi criado um Hist\u00f3rico chamado Hist1 <\/b>com dois campos: E3TimeStamp <\/b>e TagHist<\/b>, que armazenam os valores gerados pelo TagDemo2<\/b>:<\/p>\n
    \"\"
    \nFigura 5<\/b>: Hist\u00f3rico da aplica\u00e7\u00e3o E3<\/span><\/div>\n
    Foi criado um objeto Banco de Dados do tipo Access chamado BancoDados1<\/b>, que guarda todos os dados no arquivo Teste.mdb<\/b>. O objeto Hist\u00f3rico foi associado ao BancoDados1 atrav\u00e9s de sua propriedade DBServer<\/i>. Tudo isto foi feito para utilizar a fun\u00e7\u00e3o de acesso ao Banco de Dados do E3DataAccess<\/b>.<\/p>\n
    \"\"
    \nFigura 6<\/b>: Banco de Dados da aplica\u00e7\u00e3o E3<\/span><\/div>\n
    Atribua um nome qualquer a tabela do Hist\u00f3rico pela propriedade TableName<\/i>, e ela ser\u00e1 gerada clicando no bot\u00e3o Gerar estrutura no BD<\/b> do menu.<\/p>\n
    Crie um novo objeto Consulta dentro do Servidor de Dados. Configure-o para se conectar ao Banco de Dados BancoDados1 <\/b>rec\u00e9m criado e acessar a tabela do Hist\u00f3rico gerada. Na janela de defini\u00e7\u00e3o de consultas, crie uma consulta que retorne todos os dados da tabela do Hist\u00f3rico.<\/p>\n
    \"\"
    \nFigura 7<\/b>: Tela de defini\u00e7\u00e3o da consulta<\/span><\/div>\n

    \n5) Leitura e escrita de dados com o E3DataAccess<\/b><\/u><\/p>\n
    Com a aplica\u00e7\u00e3o E3 pronta, retorne ao Excel. Selecione sua tela e crie dois Bot\u00f5es de Comando; neste exemplo, fa\u00e7a com que um deles leia o valor do TagDemo1 <\/b>e o outro escreva um valor em TagInterno1<\/b>. Para adicionar os bot\u00f5es, \u00e9 aconselh\u00e1vel deixar visualiz\u00e1vel a barra de ferramentas Control Toolbox; isso pode ser feito acessando a op\u00e7\u00e3o View–Toolbars–Control Toolbox<\/b>:<\/p>\n
    \"\"
    \nFigura 8<\/b>: Habilitando a barra Control Toolbox no Excel<\/span><\/div>\n
    O componente CommandButton estar\u00e1 dispon\u00edvel na barra Control Toolbox; selecione-o e adicione os dois bot\u00f5es. Clique com o bot\u00e3o direito do mouse no primeiro CommandButton e acesse suas propriedades. Na propriedade Caption<\/i>, mude seu conte\u00fado para “Ler valor” e fa\u00e7a o mesmo com o outro bot\u00e3o, mas mudando seu conte\u00fado para “Escrever valor”. Isto mudar\u00e1 o texto dos bot\u00f5es. Mude tamb\u00e9m a propriedade Name <\/i>dos bot\u00f5es de leitura e escrita para: readValueButton <\/i>e writeValueButton<\/i>, respectivamente.<\/p>\n
    Agora, acesse o c\u00f3digo do bot\u00e3o encarregado de ler o valor do tag da aplica\u00e7\u00e3o E3 (readValueButton<\/i>). Clique duas vezes em cima do bot\u00e3o e o VBA ser\u00e1 aberto automaticamente dentro do c\u00f3digo do evento de clique do bot\u00e3o. Dentro do evento, adicione as seguintes linhas de c\u00f3digo:<\/p>\n
    Private Sub readValueButton_Click()<\/span>\r\n\u00a0Dim timestamp As Variant<\/span>\r\n\u00a0Dim quality As Integer<\/span>\r\n\u00a0Dim value As Variant<\/span>\r\n\u00a0<\/span>\r\n\u00a0E3.Server = \"E3Server_HostName\"<\/span>\r\n\u00a0<\/span>\r\n\u00a0If E3.GetValue(\"Dados.TagDemo1.Value\", timestamp, quality, value) Then<\/span>\r\n\u00a0 Range(\"D4\") = value<\/span>\r\n\u00a0 Range(\"E4\") = quality<\/span>\r\n\u00a0 Range(\"F4\") = timestamp<\/span>\r\n\u00a0Else <\/span>\r\n\u00a0 MsgBox \"Ocorreu uma falha na conex\u00e3o!\"<\/span>\r\n\u00a0End If<\/span>\r\nEnd Sub <\/span><\/pre>\n
    O objeto E3 neste c\u00f3digo \u00e9 o mesmo objeto p\u00fablico instanciado no m\u00f3dulo E3ServerCOM<\/b>. Este objeto trata de todas as opera\u00e7\u00f5es e conex\u00f5es com o E3Server, portanto, ele \u00e9 a “chave” de todo o c\u00f3digo. Ap\u00f3s a declara\u00e7\u00e3o das vari\u00e1veis de rotina, estamos atribuindo um valor a propriedade Server <\/i>do objeto E3. Atrav\u00e9s da propriedade Server<\/i>, informamos o nome do servidor E3Server (tipo string) ao qual queremos obter conex\u00e3o. Isto deve ser feito antes de realizar qualquer opera\u00e7\u00e3o no dom\u00ednio.<\/p>\n
    M\u00e9todo GetValue(Link, TimeStamp, Qualidade, Valor)<\/i><\/b><\/p>\n
    Para ler o valor do tag, utilizamos o m\u00e9todo GetValue<\/i>. Este m\u00e9todo recebe os seguintes par\u00e2metros de entrada e sa\u00edda:<\/p>\n