PROBLEMAS COM DOEVENTS

XXXANGELSXXX 28/02/2011 21:57:30
#366833
Boa Noite pessoal, esta acontecendo um erro estranhissimo aqui comigo, vejam so.. eu tenho uma rotina de loop importando um arquivo txt para meu banco de dados, tenho varias rotinas que funcionam sem problema algum, mas nessa abaixo em especifico, se informo o evento doevents para destravar a aplicacao, liberando memória, esta dando erro 91 , se eu tiro o doevents, ele da aquela tipo travadinha.. mas importa o arquivo normalmente.. alguem ja passou por isso antes?? abaixo a rotina de importaçao de dados..

 
Sub ImportarMapadeComissao()
   On Error GoTo ErrorLine
    Conecta True
    Bar.Value = 0:     Cont = 0
    Bar.Max = VConta:
    f = FreeFile
    Open txtAnexo.Text For Input As f
    SysTray.Remove: SysTray.Create [Ô]Tech Size[Ô], Tool1.hwnd, frmImportacao.Icon
    SysTray.BalloonShow [Ô]Aguarde, Importando Arquivo ... [Ô], [Ô]Tech Size CRM[Ô], xpTrayIcon
     Do While Not EOF(f)
            Line Input #f, sLine
      If Trim(sLine) <> [Ô][Ô] Then
           If Trim(Mid(sLine, 1, 14)) <> [Ô]Valor;recebido[Ô] Then
               Cont = Cont + 1
                    If Cont >= 5 Then
                          Coluna = Split(sLine, [Ô];[Ô])
                        StrSql = [Ô][Ô] & [Ô]INSERT INTO apurcomissaotemp([Ô]
                        StrSql = StrSql & [Ô]codigocliente,historico,movimento,comissao,[Ô]
                        StrSql = StrSql & [Ô]dataconciliacao,pfilial,mes,ano)[Ô]
                        StrSql = StrSql & [Ô] Values ([ô][Ô]
                        StrSql = StrSql & Format(Coluna(0), RsQtdDig) & [Ô][ô],[ô][Ô]
                        StrSql = StrSql & Coluna(1) & [Ô][ô],[ô][Ô]
                        StrSql = StrSql & Coluna(4) & [Ô][ô],[ô][Ô]
                        StrSql = StrSql & Replace(Replace(Coluna(6), [Ô].[Ô], [Ô][Ô]), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[ô][Ô]
                        StrSql = StrSql & Format(Coluna(9), [Ô]yyyy-mm-dd[Ô]) & [Ô][ô],[ô][Ô]
                        StrSql = StrSql & txtCodCat.Text & [Ô][ô],[ô][Ô]
                        StrSql = StrSql & txtMes.Text & [Ô][ô],[ô][Ô]
                        StrSql = StrSql & txtAno.Text & [Ô][ô])[Ô]
                   With Conexao
                           .BeginTrans
                            .Execute StrSql
                          .CommitTrans
                        End With
                    End If
                     Bar.Value = Bar.Value + 1
 DoEvents

                End If
            End If
        Loop
   

Close #f
  Conecta False
     Exit Sub
ErrorLine:
    MsgError
 End Sub
XXXANGELSXXX 01/03/2011 08:51:58
#366857
Eu ja tinha tentado dessa forma amigo, mas o erro persiste.
RODRIGOFERRO 01/03/2011 09:00:11
#366858
ah tambem voce so vem com buxa pra cá =/ haauihaiu
estive pesquisando sobre esse erro 91 e nao axei nada satisfatório !!!

Sorry.
JONATHANSTECKER 01/03/2011 09:33:02
#366859
Citação:

:
ah tambem voce so vem com buxa pra cá =/ haauihaiu
estive pesquisando sobre esse erro 91 e nao axei nada satisfatório !!!

Sorry.



é Zerocal, a tendência é sempre aumentar o nível de dificuldade das dúvidas! Podes ter certeza disso.
é bucha!

Mas por um lado isso é bom, quanto mais complexa a dúvida, mais teremos que estudar e ir a fundo para solucionar.
Com isso, o conhecimento vai se elevando junto.
LUIZCOMINO 01/03/2011 10:06:18
#366869
tente assim


Sub ImportarMapadeComissao()
On Error GoTo ErrorLine
Conecta True
Bar.Value = 0: Cont = 0
Bar.Max = VConta
f = FreeFile
Open txtAnexo.Text For Input As f
SysTray.Remove: SysTray.Create [Ô]Tech Size[Ô], Tool1.hwnd, frmImportacao.Icon
SysTray.BalloonShow [Ô]Aguarde, Importando Arquivo ... [Ô], [Ô]Tech Size CRM[Ô], xpTrayIcon
Do While Not EOF(f)
DoEvents
Line Input #f, sLine
If Trim(sLine) <> [Ô][Ô] Then
If Trim(Mid(sLine, 1, 14)) <> [Ô]Valor;recebido[Ô] Then
Cont = Cont + 1
If Cont >= 5 Then
Coluna = Split(sLine, [Ô];[Ô])
StrSql = [Ô][Ô] & [Ô]INSERT INTO apurcomissaotemp([Ô]
StrSql = StrSql & [Ô]codigocliente,historico,movimento,comissao,[Ô]
StrSql = StrSql & [Ô]dataconciliacao,pfilial,mes,ano)[Ô]
StrSql = StrSql & [Ô] Values ([ô][Ô]
StrSql = StrSql & Format(Coluna(0), RsQtdDig) & [Ô][ô],[ô][Ô]
StrSql = StrSql & Coluna(1) & [Ô][ô],[ô][Ô]
StrSql = StrSql & Coluna(4) & [Ô][ô],[ô][Ô]
StrSql = StrSql & Replace(Replace(Coluna(6), [Ô].[Ô], [Ô][Ô]), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[ô][Ô]
StrSql = StrSql & Format(Coluna(9), [Ô]yyyy-mm-dd[Ô]) & [Ô][ô],[ô][Ô]
StrSql = StrSql & txtCodCat.Text & [Ô][ô],[ô][Ô]
StrSql = StrSql & txtMes.Text & [Ô][ô],[ô][Ô]
StrSql = StrSql & txtAno.Text & [Ô][ô])[Ô]
With Conexao
.BeginTrans
.Execute StrSql
.CommitTrans
End With
End If
Bar.Value = Bar.Value + 1


End If
End If
Loop


Close #f
Conecta False
Exit Sub
ErrorLine:
MsgError
End Sub
ACG1574 01/03/2011 17:04:25
#366918 Resposta escolhida
problema resolvido né xangels ? , falow até a proxima, pessoal era só o tempo de doevents, falei pra ele executar o doevents de tantos em tantos registros, e pronto , problema resolvido, ate a proxima.
XXXANGELSXXX 02/03/2011 12:55:12
#367019
Citação:

:
problema resolvido né xangels ? , falow até a proxima, pessoal era só o tempo de doevents, falei pra ele executar o doevents de tantos em tantos registros, e pronto , problema resolvido, ate a proxima.

Valeu Alexandre.. mais uma vez.. Grande abraço.
Tópico encerrado , respostas não são mais permitidas
Voltar