LISTVIEW NO VB6 MUITO DEMORADO
Estou com o seguinte problema, quando gero o listview direto no projeto VB6 demora em torno de 4 segundos para aparecer porem quando rodo pelo executável demora em torno de 5 minutos ... o código está abaixo ... criei até um arquivo de log para tentar descobrir mas não consigo... alguem tem ideia do que possa ser,porque essa diferença de tempo entre o projeto e o executável ??? será q tenho q atualizar alguma ocx ou dll ??? a mscomctl.ocx já registrei de novo porém continua o problema...
wl_Select = [Ô]SELECT * FROM TAB_CONTROLE_AGENDA[Ô]
wl_Select = wl_Select & [Ô] WHERE[Ô]
wl_Select = wl_Select & [Ô] DT_RETORNO IS NULL[Ô]
wl_Select = wl_Select & [Ô] AND DT_CONF_protocolo IS NULL[Ô]
wl_Select = wl_Select & [Ô] ORDER BY DT_FATAL,NM_CLIENTE, NM_BANCO,ADV_RESP,NR_PROCESSO[Ô]
Set cur_CLIENTE = db.OpenRecordset(wl_Select)
With cur_CLIENTE
If .EOF Then
.Close
MousePointer = 0
Exit Sub
End If
Do While Not .EOF
wl_Cont = wl_Cont + 1
If wl_Cont > 10000 Then
MousePointer = 0
.Close
Exit Sub
End If
WL_hr_LIDA = Format(Time, [Ô]hh:mm:ss[Ô])
registraLogErros wl_Cont, WL_hr_LIDA, [Ô]APOS WHILE[Ô]
Set wf_LvNENT = US_OLV_NENT_ITEM.ListItems.Add(, , [Ô] [Ô])
If Check2.Value = 1 Then
US_OLV_NENT_ITEM.ListItems(wl_Cont).Checked = vbTrue
Else
US_OLV_NENT_ITEM.ListItems(wl_Cont).Checked = vbFalse
End If
wf_LvNENT.SubItems(1) = IIf(IsNull(!NM_banco), [Ô][Ô], !NM_banco)
wf_LvNENT.SubItems(2) = IIf(IsNull(!TIPO_PRAZO), [Ô][Ô], !TIPO_PRAZO)
wf_LvNENT.SubItems(3) = IIf(IsNull(!ADV_RESP), [Ô][Ô], !ADV_RESP)
wf_LvNENT.SubItems(4) = IIf(IsNull(!CD_USER_PROTOCOLO), [Ô][Ô], !CD_USER_PROTOCOLO)
wf_LvNENT.SubItems(5) = IIf(IsNull(!nr_processo), [Ô][Ô], !nr_processo)
wf_LvNENT.SubItems(6) = IIf(IsNull(!NM_CLIENTE), 0, !NM_CLIENTE)
wf_LvNENT.SubItems(7) = IIf(IsNull(!DT_FATAL), [Ô]0[Ô], !DT_FATAL)
WL_DT_FATAL = IIf(IsNull(!DT_FATAL), [Ô]0[Ô], !DT_FATAL)
wf_LvNENT.SubItems(8) = IIf(IsNull(!OBSERVACAO_LIVRE2), [Ô][Ô], !OBSERVACAO_LIVRE2)
wf_LvNENT.SubItems(9) = IIf(IsNull(!dt_envio), [Ô]0[Ô], !dt_envio)
wf_LvNENT.SubItems(10) = IIf(IsNull(!DT_RETORNO), [Ô]0[Ô], !DT_RETORNO)
wf_LvNENT.SubItems(11) = IIf(IsNull(!DT_PROTOCOLO), [Ô]0[Ô], !DT_PROTOCOLO)
WL_DT_PROTOCOLO = IIf(IsNull(!DT_PROTOCOLO), [Ô]0[Ô], !DT_PROTOCOLO)
WL_hr_LIDA = Format(Time, [Ô]hh:mm:ss[Ô])
registraLogErros wl_Cont, WL_hr_LIDA, [Ô]MOVE 11 PRIMEIROS[Ô]
WL_NR_CHAVE = IIf(IsNull(!NR_CHAVE), [Ô]0[Ô], !NR_CHAVE)
WL_NR_PROCESSO = IIf(IsNull(!nr_processo), [Ô][Ô], !nr_processo)
wl_Select1 = [Ô]SELECT CLUSTER_RATING FROM TAB_PROCESSOS[Ô]
wl_Select1 = wl_Select1 & [Ô] WHERE [Ô]
wl_Select1 = wl_Select1 & [Ô] NR_CHAVE = [ô][Ô] & WL_NR_CHAVE & [Ô][ô][Ô]
wl_Select1 = wl_Select1 & [Ô] AND (NR_PROCESSO = [ô][Ô] & WL_NR_PROCESSO & [Ô][ô][Ô]
wl_Select1 = wl_Select1 & [Ô] OR NR_CNJ = [ô][Ô] & WL_NR_PROCESSO & [Ô][ô])[Ô]
Set cur_DadosForm = db.OpenRecordset(wl_Select1)
With cur_DadosForm
If Not .EOF Then
wl_CLUSTER = IIf(IsNull(!CLUSTER_RATING), [Ô][Ô], !CLUSTER_RATING)
Else
wl_CLUSTER = [Ô][Ô]
End If
.Close
End With
WL_hr_LIDA = Format(Time, [Ô]hh:mm:ss[Ô])
registraLogErros wl_Cont, WL_hr_LIDA, [Ô]BUSCOU CLUSTER[Ô]
wf_LvNENT.SubItems(12) = wl_CLUSTER [ô][ô][ô][ô]IIf(IsNull(!DT_CONF_PROTOCOLO), [Ô]0[Ô], !DT_CONF_PROTOCOLO)
wf_LvNENT.SubItems(13) = IIf(IsNull(!DT_SOLICITACAO), [Ô]0[Ô], !DT_SOLICITACAO)
wf_LvNENT.SubItems(14) = IIf(IsNull(!DT_DISTRIBUICAO), [Ô]0[Ô], !DT_DISTRIBUICAO)
wf_LvNENT.SubItems(15) = IIf(IsNull(!CD_USUARIO_INCLUSAO), [Ô][Ô], !CD_USUARIO_INCLUSAO)
wf_LvNENT.SubItems(16) = IIf(IsNull(!DT_INCLUSAO), [Ô]0[Ô], !DT_INCLUSAO)
wf_LvNENT.SubItems(17) = IIf(IsNull(!CD_USUARIO_ALTERACAO), [Ô][Ô], !CD_USUARIO_ALTERACAO)
wf_LvNENT.SubItems(18) = IIf(IsNull(!DT_ALTERACAO), [Ô]0[Ô], !DT_ALTERACAO)
wf_LvNENT.SubItems(19) = IIf(IsNull(!OBSERVACAO), [Ô][Ô], !OBSERVACAO)
wf_LvNENT.SubItems(20) = IIf(IsNull(!NM_COMARCA), [Ô][Ô], !NM_COMARCA)
wf_LvNENT.SubItems(21) = IIf(IsNull(!TP_ACAO), [Ô][Ô], !TP_ACAO)
wf_LvNENT.SubItems(22) = IIf(IsNull(!IDENTIFICADOR), [Ô][Ô], !IDENTIFICADOR)
wf_LvNENT.SubItems(23) = IIf(IsNull(!MOTIVO_CANCELAMENTO), [Ô][Ô], !MOTIVO_CANCELAMENTO)
WL_MOTIVO_CANCELAMENTO = IIf(IsNull(!MOTIVO_CANCELAMENTO), [Ô][Ô], !MOTIVO_CANCELAMENTO)
wf_LvNENT.SubItems(24) = IIf(IsNull(!MOTIVO_SUSPENSAO), [Ô][Ô], !MOTIVO_SUSPENSAO)
WL_MOTIVO_SUSPENSAO = IIf(IsNull(!MOTIVO_SUSPENSAO), [Ô][Ô], !MOTIVO_SUSPENSAO)
wf_LvNENT.SubItems(25) = IIf(IsNull(!CD_UF), [Ô][Ô], !CD_UF)
WL_AGUARDA_ORIENTACAO = IIf(IsNull(!AGUARDA_INF_FORUM), [Ô]N[Ô], !AGUARDA_INF_FORUM)
If WL_AGUARDA_ORIENTACAO = [Ô]S[Ô] Then
wf_LvNENT.SubItems(26) = [Ô]Sim[Ô]
End If
WL_AGUARDA_ORIENTACAO = IIf(IsNull(!AGUARDA_ORIENTACAO_JURIDICA), [Ô]N[Ô], !AGUARDA_ORIENTACAO_JURIDICA)
If WL_AGUARDA_ORIENTACAO = [Ô]S[Ô] Then
wf_LvNENT.SubItems(27) = [Ô]Sim[Ô]
End If
wf_LvNENT.SubItems(28) = IIf(IsNull(!OBSERVACAO_LIVRE), [Ô][Ô], !OBSERVACAO_LIVRE)
WL_hr_LIDA = Format(Time, [Ô]hh:mm:ss[Ô])
registraLogErros wl_Cont, WL_hr_LIDA, [Ô]MOVEU 12 ATE 26[Ô]
If Trim(WL_MOTIVO_CANCELAMENTO) <> [Ô][Ô] Then
For WL_QTDE_COLS = 1 To 27
wf_LvNENT.ListSubItems(WL_QTDE_COLS).ForeColor = &HFF00&
Next
GoTo proxger
End If
If Trim(WL_MOTIVO_SUSPENSAO) <> [Ô][Ô] Then
For WL_QTDE_COLS = 1 To 27
wf_LvNENT.ListSubItems(WL_QTDE_COLS).ForeColor = &HFF8080
Next
GoTo proxger
End If
If CVDate(WL_DT_DIA) > CVDate(WL_DT_FATAL) Then
For WL_QTDE_COLS = 1 To 27
wf_LvNENT.ListSubItems(WL_QTDE_COLS).ForeColor = &HFF& [ô][ô]
Next
GoTo proxger
End If
If CVDate(WL_DT_DIA) = CVDate(WL_DT_FATAL) Then
For WL_QTDE_COLS = 1 To 27
wf_LvNENT.ListSubItems(WL_QTDE_COLS).ForeColor = &HC0C0& [ô][ô]
Next
GoTo proxger
End If
[ô][ô]
For WL_QTDE_COLS = 1 To 27
wf_LvNENT.ListSubItems(WL_QTDE_COLS).ForeColor = &H0&
Next
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
proxger:
WL_hr_LIDA = Format(Time, [Ô]hh:mm:ss[Ô])
registraLogErros wl_Cont, WL_hr_LIDA, [Ô]LER PROXIMO[Ô]
.MoveNext
Loop
.Close
End With
wl_Select = [Ô]SELECT * FROM TAB_CONTROLE_AGENDA[Ô]
wl_Select = wl_Select & [Ô] WHERE[Ô]
wl_Select = wl_Select & [Ô] DT_RETORNO IS NULL[Ô]
wl_Select = wl_Select & [Ô] AND DT_CONF_protocolo IS NULL[Ô]
wl_Select = wl_Select & [Ô] ORDER BY DT_FATAL,NM_CLIENTE, NM_BANCO,ADV_RESP,NR_PROCESSO[Ô]
Set cur_CLIENTE = db.OpenRecordset(wl_Select)
With cur_CLIENTE
If .EOF Then
.Close
MousePointer = 0
Exit Sub
End If
Do While Not .EOF
wl_Cont = wl_Cont + 1
If wl_Cont > 10000 Then
MousePointer = 0
.Close
Exit Sub
End If
WL_hr_LIDA = Format(Time, [Ô]hh:mm:ss[Ô])
registraLogErros wl_Cont, WL_hr_LIDA, [Ô]APOS WHILE[Ô]
Set wf_LvNENT = US_OLV_NENT_ITEM.ListItems.Add(, , [Ô] [Ô])
If Check2.Value = 1 Then
US_OLV_NENT_ITEM.ListItems(wl_Cont).Checked = vbTrue
Else
US_OLV_NENT_ITEM.ListItems(wl_Cont).Checked = vbFalse
End If
wf_LvNENT.SubItems(1) = IIf(IsNull(!NM_banco), [Ô][Ô], !NM_banco)
wf_LvNENT.SubItems(2) = IIf(IsNull(!TIPO_PRAZO), [Ô][Ô], !TIPO_PRAZO)
wf_LvNENT.SubItems(3) = IIf(IsNull(!ADV_RESP), [Ô][Ô], !ADV_RESP)
wf_LvNENT.SubItems(4) = IIf(IsNull(!CD_USER_PROTOCOLO), [Ô][Ô], !CD_USER_PROTOCOLO)
wf_LvNENT.SubItems(5) = IIf(IsNull(!nr_processo), [Ô][Ô], !nr_processo)
wf_LvNENT.SubItems(6) = IIf(IsNull(!NM_CLIENTE), 0, !NM_CLIENTE)
wf_LvNENT.SubItems(7) = IIf(IsNull(!DT_FATAL), [Ô]0[Ô], !DT_FATAL)
WL_DT_FATAL = IIf(IsNull(!DT_FATAL), [Ô]0[Ô], !DT_FATAL)
wf_LvNENT.SubItems(8) = IIf(IsNull(!OBSERVACAO_LIVRE2), [Ô][Ô], !OBSERVACAO_LIVRE2)
wf_LvNENT.SubItems(9) = IIf(IsNull(!dt_envio), [Ô]0[Ô], !dt_envio)
wf_LvNENT.SubItems(10) = IIf(IsNull(!DT_RETORNO), [Ô]0[Ô], !DT_RETORNO)
wf_LvNENT.SubItems(11) = IIf(IsNull(!DT_PROTOCOLO), [Ô]0[Ô], !DT_PROTOCOLO)
WL_DT_PROTOCOLO = IIf(IsNull(!DT_PROTOCOLO), [Ô]0[Ô], !DT_PROTOCOLO)
WL_hr_LIDA = Format(Time, [Ô]hh:mm:ss[Ô])
registraLogErros wl_Cont, WL_hr_LIDA, [Ô]MOVE 11 PRIMEIROS[Ô]
WL_NR_CHAVE = IIf(IsNull(!NR_CHAVE), [Ô]0[Ô], !NR_CHAVE)
WL_NR_PROCESSO = IIf(IsNull(!nr_processo), [Ô][Ô], !nr_processo)
wl_Select1 = [Ô]SELECT CLUSTER_RATING FROM TAB_PROCESSOS[Ô]
wl_Select1 = wl_Select1 & [Ô] WHERE [Ô]
wl_Select1 = wl_Select1 & [Ô] NR_CHAVE = [ô][Ô] & WL_NR_CHAVE & [Ô][ô][Ô]
wl_Select1 = wl_Select1 & [Ô] AND (NR_PROCESSO = [ô][Ô] & WL_NR_PROCESSO & [Ô][ô][Ô]
wl_Select1 = wl_Select1 & [Ô] OR NR_CNJ = [ô][Ô] & WL_NR_PROCESSO & [Ô][ô])[Ô]
Set cur_DadosForm = db.OpenRecordset(wl_Select1)
With cur_DadosForm
If Not .EOF Then
wl_CLUSTER = IIf(IsNull(!CLUSTER_RATING), [Ô][Ô], !CLUSTER_RATING)
Else
wl_CLUSTER = [Ô][Ô]
End If
.Close
End With
WL_hr_LIDA = Format(Time, [Ô]hh:mm:ss[Ô])
registraLogErros wl_Cont, WL_hr_LIDA, [Ô]BUSCOU CLUSTER[Ô]
wf_LvNENT.SubItems(12) = wl_CLUSTER [ô][ô][ô][ô]IIf(IsNull(!DT_CONF_PROTOCOLO), [Ô]0[Ô], !DT_CONF_PROTOCOLO)
wf_LvNENT.SubItems(13) = IIf(IsNull(!DT_SOLICITACAO), [Ô]0[Ô], !DT_SOLICITACAO)
wf_LvNENT.SubItems(14) = IIf(IsNull(!DT_DISTRIBUICAO), [Ô]0[Ô], !DT_DISTRIBUICAO)
wf_LvNENT.SubItems(15) = IIf(IsNull(!CD_USUARIO_INCLUSAO), [Ô][Ô], !CD_USUARIO_INCLUSAO)
wf_LvNENT.SubItems(16) = IIf(IsNull(!DT_INCLUSAO), [Ô]0[Ô], !DT_INCLUSAO)
wf_LvNENT.SubItems(17) = IIf(IsNull(!CD_USUARIO_ALTERACAO), [Ô][Ô], !CD_USUARIO_ALTERACAO)
wf_LvNENT.SubItems(18) = IIf(IsNull(!DT_ALTERACAO), [Ô]0[Ô], !DT_ALTERACAO)
wf_LvNENT.SubItems(19) = IIf(IsNull(!OBSERVACAO), [Ô][Ô], !OBSERVACAO)
wf_LvNENT.SubItems(20) = IIf(IsNull(!NM_COMARCA), [Ô][Ô], !NM_COMARCA)
wf_LvNENT.SubItems(21) = IIf(IsNull(!TP_ACAO), [Ô][Ô], !TP_ACAO)
wf_LvNENT.SubItems(22) = IIf(IsNull(!IDENTIFICADOR), [Ô][Ô], !IDENTIFICADOR)
wf_LvNENT.SubItems(23) = IIf(IsNull(!MOTIVO_CANCELAMENTO), [Ô][Ô], !MOTIVO_CANCELAMENTO)
WL_MOTIVO_CANCELAMENTO = IIf(IsNull(!MOTIVO_CANCELAMENTO), [Ô][Ô], !MOTIVO_CANCELAMENTO)
wf_LvNENT.SubItems(24) = IIf(IsNull(!MOTIVO_SUSPENSAO), [Ô][Ô], !MOTIVO_SUSPENSAO)
WL_MOTIVO_SUSPENSAO = IIf(IsNull(!MOTIVO_SUSPENSAO), [Ô][Ô], !MOTIVO_SUSPENSAO)
wf_LvNENT.SubItems(25) = IIf(IsNull(!CD_UF), [Ô][Ô], !CD_UF)
WL_AGUARDA_ORIENTACAO = IIf(IsNull(!AGUARDA_INF_FORUM), [Ô]N[Ô], !AGUARDA_INF_FORUM)
If WL_AGUARDA_ORIENTACAO = [Ô]S[Ô] Then
wf_LvNENT.SubItems(26) = [Ô]Sim[Ô]
End If
WL_AGUARDA_ORIENTACAO = IIf(IsNull(!AGUARDA_ORIENTACAO_JURIDICA), [Ô]N[Ô], !AGUARDA_ORIENTACAO_JURIDICA)
If WL_AGUARDA_ORIENTACAO = [Ô]S[Ô] Then
wf_LvNENT.SubItems(27) = [Ô]Sim[Ô]
End If
wf_LvNENT.SubItems(28) = IIf(IsNull(!OBSERVACAO_LIVRE), [Ô][Ô], !OBSERVACAO_LIVRE)
WL_hr_LIDA = Format(Time, [Ô]hh:mm:ss[Ô])
registraLogErros wl_Cont, WL_hr_LIDA, [Ô]MOVEU 12 ATE 26[Ô]
If Trim(WL_MOTIVO_CANCELAMENTO) <> [Ô][Ô] Then
For WL_QTDE_COLS = 1 To 27
wf_LvNENT.ListSubItems(WL_QTDE_COLS).ForeColor = &HFF00&
Next
GoTo proxger
End If
If Trim(WL_MOTIVO_SUSPENSAO) <> [Ô][Ô] Then
For WL_QTDE_COLS = 1 To 27
wf_LvNENT.ListSubItems(WL_QTDE_COLS).ForeColor = &HFF8080
Next
GoTo proxger
End If
If CVDate(WL_DT_DIA) > CVDate(WL_DT_FATAL) Then
For WL_QTDE_COLS = 1 To 27
wf_LvNENT.ListSubItems(WL_QTDE_COLS).ForeColor = &HFF& [ô][ô]
Next
GoTo proxger
End If
If CVDate(WL_DT_DIA) = CVDate(WL_DT_FATAL) Then
For WL_QTDE_COLS = 1 To 27
wf_LvNENT.ListSubItems(WL_QTDE_COLS).ForeColor = &HC0C0& [ô][ô]
Next
GoTo proxger
End If
[ô][ô]
For WL_QTDE_COLS = 1 To 27
wf_LvNENT.ListSubItems(WL_QTDE_COLS).ForeColor = &H0&
Next
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
proxger:
WL_hr_LIDA = Format(Time, [Ô]hh:mm:ss[Ô])
registraLogErros wl_Cont, WL_hr_LIDA, [Ô]LER PROXIMO[Ô]
.MoveNext
Loop
.Close
End With
Pelo que vejo você pode não estar usando a biblioteca
Msado de compatibilidade, esse link pode ajudar:
Clique aqui
Msado de compatibilidade, esse link pode ajudar:
Clique aqui
mario...aopos fazer estas alteracoes e rodando direto pelo executavel na minha maquina roda em torno de 5s ..... coloquei o executavel na maquina do usuario e demorou em torno de 30s.... muita diferença...tu tem alguma ideia do porque isso ???
Tópico encerrado , respostas não são mais permitidas