Estou com o seguinte problema, fiz um pacote de instalação e foi normal, um tempo depois fiz alguma atualizações no sistema, porém em um micro o executável não funciona, não dá nenhuma mensagem de erro, simplesmente não executa. O sistema usa um arquivo ini para localizar o bd, se alterar este arquivo ai vem o aviso que que o bd não foi localizado (normal). O que pode ser? em outros micros funciona normal a atualização.

Como funciona o seu sistema?? Vc já loga no banco de dados ou primeiro aparece uma tela?

Isto, tem arquivo ini que direciona para o banco de dados .mdb, caso o bd tenha sido removido, o sistema informa ao usuário que o bd não foi localizado e em seguida fecha o sistema, portanto, não aparece tela alguma, caso o bd tenha sido localizado, então abre a tela de login.

isso está me parecendo algum erro não tratado... faz o seguinte...

antes de tentar a conexão faz um msgbox "1" e depois da conexão faz um msgbox "2".

 

Com isso temos um "debug de executável" ... :P

 

Só para saber, no executável, por onde o sistema processa até ser encerrado.

 

Qualquer dúvida retorna

 

at+

Ghost, o sistema roda até a msgbox "3", enquanto no micro que eu compilo o sistema roda certinho. O programa já está instalado no micro, o executável é uma atualização que funciona em outros computadores sem problema algum. O código abaixo está em um módulo.

 

 

MsgBox "1"                     

          If ja_rodou = "nao" Then

              Beep

              MsgBox "Não esqueça de executar o Módulo Configurador do Sistema", vbExclamation, "Atenção"

              Exit Sub

          End If

MsgBox "2"

        'Verifica se o banco de dados existe

        If Existe(dirdb & "bdCadastro.mdb") Then

           'Abre o banco de dados

MsgBox "3" 

           Set db = OpenDatabase(dirdb & "bdCadastro.mdb")

MsgBox "4"

         

           frmIni.Show

        Else

           Beep

           MsgBox "Caminho do Banco de Dados Inválido.", vbCritical, "SCC"

           MsgBox "Entre em contato com o administrador do sistema", vbInformation, "Mensagem"

        End If

Else

           Beep

           MsgBox "Arquivo INI não encontrado.", vbCritical, "SCC"

           Exit Sub

End If

MsgBox "4"

erro:

            Select Case Err

                Case 0

                    Exit Sub

                Case 3024

                MsgBox "Caminho do Banco Errado, favor acionar o Suporte Técnico.", vbCritical, "Atenção"

                    MsgBox "Contato André", vbInformation, "Mensagem"

                    MsgBox "Ocorreu o erro: " & Err, vbCritical, "Erro..."

        End Select

No tratamento do erro coloca:

...

Case Else

 msgbox err.description &  vbnewline & err.number, vbcritical

 

Para ver o que está acontecendo...

 

Depois retorna...    :)

 

inté!