Atualizar Front-End via Web

Pessoal bom dia,

tem alguma forma de atualizar o front-End via Web, tipo assim estou em casa com o front-End fazendo uma atualização e gostaria de quando o cliente na casa dele fosse abrir o programa o sistema identificasse que existe uma atualização e fizesse o que tem que fazer fechar o programa copiar o front-End atualizado substituir e pronto, em Rede local consigo fazer isso tranquilamente, mas via Web não tenho a mínima ideia de como fazer, alguém teria alguma sugestão para me ajudar nessa ?


fico no aguardo.

Olá Carvalho,

Sim, é possível, e é uma pratica muito utilizada por empresas que rodam sistemas desktop (windows forms).

É necessário que você tenha uma conta em um provedor (Hostgator..UOL Host...GoDaddy e etc.) e geralmente eles oferecem o serviço de FTP, onde voce terá um diretório para armazenar seus arquivos.

No teu sistema, é necessário que tenha uma rotina que verifica se o arquivo local na maquina do usuário é diferente (ou desatualizado) do arquivo do FTP, e ai é feito o download na máquina do usuário.

Vc tem conhecimento de programação VBA?

Este é o site do Macoratti, o cara de maior referência de programação em VB6 e demais ferramentas também:

http://www.macoratti.net/inet.htm#inet3

Ele ensina como fazer isso...está escrito em Visual Basic 6, mas funciona no VBA também.

Veja se consegue alguma luz para o que precisa.

[]'s

FIM

Alexandre boa tarde,

tenho conhecimento em VBA, tenho uma conta na UolHost, vou ver se meu plano tem o serviço de FTP, irei ler o artigo que você me mandou e se eu tiver qualquer dificuldade informo.


Obrigado.

Beleza, Carvalho !!!
Qualquer coisa estamos ai !!!

Valeu

Boa tarde,

seria esse código, para baixar o arquivo na web ?

Código:



Public Function Download(ArqURL As String, Arqtemp As String) As Boolean

 Dim arquivo As Byte

 Open Arqtemp For Binary Access Write As #1

 arquivo = Inet1.OpenURL(ArqURL, icByteArray)
 Put #1, , arquivo()

 Close #1

MsgBox "O arquivo  " & Text2.Text & "  foi recebido com sucesso ! ", vbInformation
Download = True
 
 
 Exit Function

Trata_erro:
MsgBox "Ocorreu um erro durante a transferência ! ", vbCritical
Download = False

End Function

Private Sub Comando0_Click()
'chamando a função e informando o endereço do site e onde guardar o arquivo ?
Call Download("https://www.microsoft.com/pt-br/", "C:\Sistema_Porto&Rocha\dll")
End Sub




Carvalho, bom dia

Fazendo uma varredura aqui no fórum, achei este exemplo de FTP.

https://www.maximoaccess.com/t2053-interacao-ms-access-com-ftp

Verifique e faça os devidos teste. Veja se atende à tua necessidade.


Boa sorte

[]'s

FIM

Carvalho, aguardamos o retorno...