VB6: Aplicativo trava depois de compilado

[rickonvb 0]

Como vão todos?Estou puxando alguns dados através do DAO 3.6 e plotando em um gráfico MsChart.Quando estou executando o aplicativo em modo de desenvolvimento, ele puxa e plota os dados sem problemas.Quando compilo o aplicativo, ele trava e retorna um erro, apontando o dao360.dll.No relatório de erro do Windows XP diz o seguinte:"Assinatura do erroAppName: cdd.exe AppVer: 1.0.0.74 ModName: dao360.dll.......O que acham que pode estar ocorrendo?O código é simples assim:

Private Sub Form_Load()On Error Resume NextDim Consulta As RecordsetDim sSQL As StringDim ColunaAtual As IntegerDim PrimeiraData As StringMe.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2PrimeiraData = DateAdd("d", -15, Now())Me.Caption = frmCDD.CELL & " - Estatística"sSQL = "select *, Day from tbl_dados where CELL='" & frmCDD.CELL & "' AND Day>#" & PrimeiraData & "# ORDER BY Day ASC"Set Consulta = MyDB2.OpenRecordset(sSQL)ColunaAtual = 1While Not Consulta.EOF 'Tráfego Grafico.Row = ColunaAtual Grafico.Column = 1 Grafico.Data = Consulta("[TRAFF FULL HMM]") Grafico.Column = 2 Grafico.Data = Consulta("[TRAFF HALF HMM]") Grafico.Column = 3 Grafico.Data = Consulta("[TRAFF HMM]") 'Legenda 1 Grafico.RowLabel = Day(Consulta("Day")) & "/" & Month(Consulta("Day")) 'Legenda 2 Grafico.Column = 1 Grafico.ColumnLabel = "FULL HMM" Grafico.Column = 2 Grafico.ColumnLabel = "HALF HMM" Grafico.Column = 3 Grafico.ColumnLabel = "HMM" ColunaAtual = ColunaAtual + 1 Consulta.MoveNextWendConsulta.CloseSet Consulta = NothingEnd Sub

O que acham? Alguma dica?Obrigado!

[Claudio Neto 3]

Como vão todos?Estou puxando alguns dados através do DAO 3.6 e plotando em um gráfico MsChart.Quando estou executando o aplicativo em modo de desenvolvimento, ele puxa e plota os dados sem problemas.Quando compilo o aplicativo, ele trava e retorna um erro, apontando o dao360.dll.No relatório de erro do Windows XP diz o seguinte:"Assinatura do erroAppName: cdd.exe AppVer: 1.0.0.74 ModName: dao360.dll.......O que acham que pode estar ocorrendo?O código é simples assim:

Private Sub Form_Load()On Error Resume NextDim Consulta As RecordsetDim sSQL As StringDim ColunaAtual As IntegerDim PrimeiraData As StringMe.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2PrimeiraData = DateAdd("d", -15, Now())Me.Caption = frmCDD.CELL & " - Estatística"sSQL = "select *, Day from tbl_dados where CELL='" & frmCDD.CELL & "' AND Day>#" & PrimeiraData & "# ORDER BY Day ASC"Set Consulta = MyDB2.OpenRecordset(sSQL)ColunaAtual = 1While Not Consulta.EOF 'Tráfego Grafico.Row = ColunaAtual Grafico.Column = 1 Grafico.Data = Consulta("[TRAFF FULL HMM]") Grafico.Column = 2 Grafico.Data = Consulta("[TRAFF HALF HMM]") Grafico.Column = 3 Grafico.Data = Consulta("[TRAFF HMM]") 'Legenda 1 Grafico.RowLabel = Day(Consulta("Day")) & "/" & Month(Consulta("Day")) 'Legenda 2 Grafico.Column = 1 Grafico.ColumnLabel = "FULL HMM" Grafico.Column = 2 Grafico.ColumnLabel = "HALF HMM" Grafico.Column = 3 Grafico.ColumnLabel = "HMM" ColunaAtual = ColunaAtual + 1 Consulta.MoveNextWendConsulta.CloseSet Consulta = NothingEnd Sub

O que acham? Alguma dica?Obrigado!

O computador que está dando o erro é mesmo em que fez o programa?Caso não seja, talvez você tenha esquecido de armazenar junto ao programa a dll que erro se refere (dao360.dll).Agora caso seja no mesmo computador, não tenho a menor idéia do que seja, abraços...

[rickonvb 0]

Infelizmente o problema está o correndo na mesma máquina.O service pack 6 está instalado.Tentei forçar uma pequena seleção de dados ou o plot de apenas um gráfico.. e nada..O ADO 3.6 foi a última atualização da Microsoft mesmo?Alguém indica algum outro recurso para substituir o ADO?Obrigado!

[Claudio Neto 3]

Infelizmente o problema está o correndo na mesma máquina.O service pack 6 está instalado.Tentei forçar uma pequena seleção de dados ou o plot de apenas um gráfico.. e nada..O ADO 3.6 foi a última atualização da Microsoft mesmo?Alguém indica algum outro recurso para substituir o ADO?Obrigado!

Claro que sim, o DAO, que veio para substituir o ADO.Nunca utilizei ADO, mas quem já utilizou os dois, diz que o DAO é muuuito mais rápido.Dá uma procurada ai pelos tópicos que tem muita coisa falando sobre como conectar-se via DAO e visita também o site marcoratti.net, mas no que precisar de ajuda estamos ai.Abraços...

[rickonvb 0]

Obrigado Claudio. Acessei o site do Macoratti e encontrei o link: http://www.macoratti.net/vbadodao.htm

Lá diz que o ADO que veio para substituir o DAO, não?

 

Engraçado... :)

Estou quase migrando para o VB2005 :)

[Claudio Neto 3]

Obrigado Claudio. Acessei o site do Macoratti e encontrei o link: http://www.macoratti.net/vbadodao.htmLá diz que o ADO que veio para substituir o DAO, não?Engraçado... :)Estou quase migrando para o VB2005 :)

Aff, peço 1.000.000 de desculpas... lógico que você tem razão...Dei uma viajada grande, se fosse possível até apagaria o que postei por vergonha...Não sei não o que pode estar acontecendo, mas te desejo sorte na migração, se realmente a fizer.Abraços...