Ao exportar uma consulta do E3chart ,com 50 penas, a aplicação trava e não gera do documento CSV.
Em outra tela com o mesmo E3chart replicado, porem com 7 penas a export. funciona normalmente.
Para a consulta em tela e apresentação do gráfico, as dados aparecem rápido. apenas para exportar que a aplicação trava.
Realizei o teste com Histtoollib 2.0 , e o problema persistiu idêntico ao o da aplicação
Alguém pode ajudar com uma solução, acredito deve ser algo do SQL.
Olá Marco!
Qual é o banco de dados que você está utilizando? Como exatamente você está fazendo para exportar a consulta do E3Chart?
Banco de dados SQL server,
esse e o script para exportação
Sub CommandButton2_Click()
'Nome do arquivo
Dia = Day(now)
Mes = Month(now)
Ano = Year(now)
Hora = Hour(now)
Minuto = Minute(now)
Segundo = Second(now)
Nome = “Trend Temperatura- " & Ano &”-" & Mes & “-” & Dia & " " & Hora & “h” & Minuto & “m” & Segundo & “s”
'Tipo do arquivo
Opcao = Application.ShowFilePicker(false, Nome, “csv”, 1, “Planilhas Excel (.csv)|.csv”)
if Opcao = true then
if Nome <> “” then
'Coleta informacoes da consulta
Set cs = Screen.Item(“E3Chart2”).Queries.Item(“Consulta2”).GetADORecordset()
tabela = cs.GetString(2, ,";", vbNewLine)
'As linhas abaixo montam o cabeçalho
cabecalho=""
n=cs.Fields.Count
for i=1 to n
cabecalho = cabecalho& cs.Fields(i-1).Name & “;”
next
Set aux2a = CreateObject(“Scripting.FileSystemObject”)
Set aux1a = aux2a.CreateTextFile(Nome, True)
aux1a.Close
'Criacao do corpo do arquivo CSV
Set aux = CreateObject(“Scripting.FileSystemObject”)
Set aux1 = aux.OpenTextFile(Nome,8)
aux1.WriteLine "Tabela: "& Screen.Item(“E3Chart2”).Queries.Item(“Consulta2”).table
aux1.WriteLine “”
aux1.WriteLine cabecalho
aux1.WriteLine tabela
aux1.Close
resp = MsgBox (“Deseja abrir o arquivo?”, vbYesNo + vbQuestion, “Abrir”)
if resp = 6 then 'YES
Application.ExecuteExternalApp Nome, “”, “”, 1
end if
end if
end if
End Sub
Sugiro inserir a função MsgBox em alguns pontos do script para descobrir aonde ele está travando.
Fiz uma extração dos dados via select direto no sql e o arquivo gerado foi 165Mb. Esse tamanho pode ser algo que o elipse não esteja conseguindo exportar??
Talvez, Marco. Pode enviar o log do E3?