{"id":7034,"date":"2019-06-07T10:53:02","date_gmt":"2019-06-07T13:53:02","guid":{"rendered":"https:\/\/kb.elipse.com.br\/?p=7034"},"modified":"2019-08-08T10:19:32","modified_gmt":"2019-08-08T13:19:32","slug":"substituindo-consultas-por-stored-procedures-no-banco-de-dados-do-elipse-e3","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/substituindo-consultas-por-stored-procedures-no-banco-de-dados-do-elipse-e3\/","title":{"rendered":"KB-102503: Substituindo consultas do Elipse E3 por Stored Procedures no banco de dados."},"content":{"rendered":"

Descri\u00e7\u00e3o:<\/strong><\/h2>\n

Minha aplica\u00e7\u00e3o apresenta baixa performance devido ao grande n\u00famero de consultas que est\u00e3o sendo executadas ciclicamente no Elipse E3. Neste caso, \u00e9 poss\u00edvel substituir essas consultas por Stored Procedures, para assim diminuir a quantidade de processamento que se d\u00e1 no E3 e ent\u00e3o transferir este processamento para o Banco de Dados?<\/p>\n

Solu\u00e7\u00e3o:<\/strong><\/h2>\n

Sim. De acordo com o artigo Dicas de Performance para o E3<\/a>, dependendo da complexidade da consulta desejada, ou at\u00e9 mesmo do seu intervalo de execu\u00e7\u00e3o, pode-se optar por substituir essas consultas por Stored Procedures. Essas SPs s\u00e3o criadas no banco de dados especificamente para esta fun\u00e7\u00e3o; ao Elipse E3, compete apenas execut\u00e1-las. Assim, todo o processamento gerado por essa consulta estar\u00e1 separado do E3.<\/p>\n

Neste artigo, demonstraremos:<\/p>\n

    \n
  1. Primeiramente, como identificar uma consulta utilizada em um objeto do Elipse E3.<\/li>\n
  2. Logo depois, como criar uma Stored Procedure.<\/li>\n
  3. Finalmente, como substituir a consulta por uma Stored Procedure em um banco SQL Server e execut\u00e1-la a partir do Elipse E3.<\/li>\n<\/ol>\n

    Para este exemplo, criamos uma consulta em uma tabela que utiliza tr\u00eas vari\u00e1veis no filtro. O banco de dados utilizado neste estudo de caso foi o Microsoft SQL Server 2014.<\/p>\n

    \n

    Consulta utilizada em um objeto E3Query no E3:<\/strong><\/h3>\n
    SELECT Alarms.E3TimeStamp,Alarms.FullAlarmSourceName,Alarms.InTime,Alarms.OutTime,Alarms.Area,Alarms.ConditionName \r\nFROM Alarms \r\nWHERE (( Alarms.E3TimeStamp >= #<%InitialDate%># AND Alarms.E3TimeStamp <= #<%FinalDate%># ) AND ( Alarms.Area = '<%Area%>' )) \r\nORDER BY Alarms.E3TimeStamp ASC<\/pre>\n
    Criando a Stored Procedure<\/h3>\n
    CREATE PROCEDURE<\/span> SPAlarms\r\n-- Add the parameters for the stored procedure here<\/span>\r\n@Area varchar<\/span>(50), @InitialDate datetime<\/span>, @FinalDate datetime<\/span>\r\nAS<\/span>\r\nBEGIN<\/span>\r\n-- SET NOCOUNT ON added to prevent extra result sets from<\/span>\r\n-- interfering with SELECT statements.<\/span>\r\nSET NOCOUNT ON;<\/span>\r\n\r\n-- Insert statements for procedure here<\/span>\r\nSELECT<\/span> Alarms.E3TimeStamp,Alarms.FullAlarmSourceName,Alarms.InTime,Alarms.OutTime,Alarms.Area,Alarms.ConditionName \r\nFROM<\/span> Alarms \r\nWHERE<\/span> (( Alarms.E3TimeStamp >= @InitialDate AND Alarms.E3TimeStamp <= @FinalDate ) AND ( Alarms.Area = @Area )) \r\nORDER BY<\/span> Alarms.E3TimeStamp ASC<\/span>\r\n\r\nEND\r\n<\/span><\/pre>\n
    Executando a Stored Procedure a partir do E3<\/h3>\n<\/div>\n
    Para executar a Stored Procedure, antes de mais nada \u00e9 necess\u00e1rio inserir a seguinte sintaxe em uma consulta:<\/p>\n
    EXEC SPAlarms '<%Area%>', #<%InitialDate%>#, #<%FinalDate%>#<\/pre>\n
    Da mesma forma, para configurar as vari\u00e1veis e retornar os dados da Stored Procedure, insira o seguinte script no Elipse E3:<\/div>\n
    <\/div>\n
    \n
    Sub<\/span> CommandButton1_Click()\r\nset<\/span> Consulta = Screen.Item(\"Consulta1\"<\/span>) \r\nConsulta.SetVariableValue \"Area\"<\/span>, \"Area1\"<\/span>\r\nConsulta.SetVariableValue \"InitialDate\"<\/span>, \"13\/11\/2018 15:52:00\"<\/span>\r\nConsulta.SetVariableValue \"FinalDate\"<\/span>, \"13\/11\/2018 15:52:10\"<\/span>\r\nset<\/span> RS = Consulta.GetADORecordset()\r\n\r\nFor<\/span> i = 1 To<\/span> RS.RecordCount\r\nC1 = RS(\"E3TimeStamp\"<\/span>)\r\nC2 = RS(\"Area\"<\/span>)\r\nC3 = RS(\"FullAlarmSourceName\"<\/span>)\r\nRS.MoveNext()\r\nstr = str & C1 & vbTab<\/span> & C2 & vbTab<\/span> & C3 & vbnewline<\/span> \r\nNext<\/span>\r\nMsgBox<\/span> str\r\nEnd Sub\r\n<\/span><\/pre>\n
    NOTA:<\/strong> Em casos semelhantes, pode-se optar por substituir o m\u00e9todo GetADORecordset<\/em> pelo m\u00e9todo GetAsyncADORRecordSet<\/em>. O m\u00e9todo GetAsyncADORecordSet<\/a> <\/i>cria uma Consulta; esta Consulta, uma vez finalizada, vai gerar o evento OnAsyncQueryFinish\u00a0<\/i>no objeto; e ent\u00e3o o resultado passado para este evento \u00e9 o resultado (Recordset<\/i>) gerado.<\/p>\n
     <\/p>\n
    Artigos relacionados<\/h3>\n
    \n