[Resolvido]Atualização de versão

Ola colegas,

Andei procurando aqui pelo fórum e consegui um exemplo bem interessante
porem esta em ingles e nem com a ajuda do tradutor consegui fazer ele funcionar em meu projeto
alguem poderia me dar uma ajudinha a entender melhor o funcionamento deste exemplo

Exemplo - https://www.maximoaccess.com/t110-actualiza-front-ends

Alguem saberia me explicar ?

Alguem se habilita ?

help !!!

Olá Fernando

Nem olhei o exemplo que mencionou.

Aqui está um exemplo que peguei aqui mesmo do fórum.
Eu procurei e não consegui encontrar novamente.

Esse exemplo cria um arquivo de lote (batch) e através dele
irá fazer a substituição das versões e então, reiniciar o aplicativo.

Download do arquivo

[ ] 's

Agradeço muito a sua ajuda meu querido,
mais sem querer abusar poderia me explicar melhor o funcionamento

em qual tabela coloco minha versáo mais atual !
ele compara as versoes quando o banco é aberto !
etc...


estou com esse errinho aqui, o comando para fechar a aplicação esta dando erro

Print

A tabela versao_bd deve ficar nos fronts End  de cada estação.
A tabela versão_master fica no "servidor", onde deve ficar
o FE atualizado.
Nenhuma delas é vinculada.


Aqui o código explicado:

'pega a versão do front-end que está gravado na tabela do back End

strFEMaster = DLookup("Numero_versao", "versao_master")


'Pega versão do front-end na tabela que está no front-end
strFE = DLookup("versao", "versao_bd")

' looks up the location of the front-end master file
strMasterLocation = DLookup("Localiza", "versao_master")

' checks for the existence of an updating batch file and deletes it if it exists
   strFilePath = CurrentProject.Path & "\UpdateDbFE.cmd"
   
   If Dir(strFilePath) <> "" Then
      Kill strFilePath
   End If
       


' se o aplicativo aberto é o atual então não faz a checagem de versões, pois é a atual.
If CurrentProject.Path = strMasterLocation Then

   Exit Sub
   
Else

' Se os números de versão não coincidem e não é a copia mestre que está aberta (copia do desenvolvedor),
'  o banco de dados fará o processo de atualização
   If strFE <> strFEMaster Then
       MsgBox "O programa não está na última versão." & vbCrLf & _
       "Agora, ele será atualizado. " & vbCrLf & _
       "Ele se fechará e se reiniciará automaticamente, já atualizado.", vbCritical, "Nova versão"
       
       ' sets the global variable for the path/name of the current database
       g_strFilePath = CurrentProject.Path & "\" & CurrentProject.Name
       
       ' sets the global variable for the path/name of the database to copy
       g_strCopyLocation = strMasterLocation
       
       ' calls the UpdateFrontEnd module
       
       UpdateFrontEnd
       
   End If
   
End If

Você deve dizer qual é o erro que está dando.

Perfeito meu amigo, entendi corretamento o funcionamento
e é exatamente do que preciso, porem veja o erro que esta dando
na print acima, o comando para fechar a aplicação esta dando erro
penso eu que na minha lógica ele deve fechar a aplicação primeiro
para depois deletar e copiar o novo front end, mais esta dando esse erro
quando o frmpricipal abre e ele ve que a versao esta desatualizada exibe a mesagem para atualizar
quando clico nela da esse erro
poderia me ajudar a solucionar isso


ERRO

Fernando

O erro está acontecendo já na tua aplicação, certo?

Se sim, por favor, teste o exemplo

e diga se funcionou.

Caso não funcione:

Aprenda a depurar o código:

Vá na pagina de código, na linha de código da msgbox, clique com o direito do mouse bem no inicio dela, entre a beira da página de código e a linha vertical (margem).
Fazendo isso irá pintar a linha de marrom, então você colocou um ponto de interrupção nessa linha.
Rode o aplicativo e ele irá para nessa linha.
Clicando na tecla F8, irá executar uma linha por vez, então, poderá , creio, descobrir exatamente onde está o erro.

Aguardo

Muito obrigado meu querido pela atenção
esta funcionando perfeitamente, me ajudou muito
mais uma vez obrigado pela atenção dispensada

Que bom que ajudei

Boa sorte !!