MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo

    avatar
    Guima
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 26/09/2010

    [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo Empty [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo

    Mensagem  Guima 26/3/2022, 06:10

    Senhores, estou com uma situação semelhante.

    Tenho um banco de dados em ACCESS hospedado no GDRIVE, ocorre que quando faço o download dele utilizando uma rotina em VBA, esse banco de dados fica corrompido, com a mensagem: "formato de banco de dados não reconhecido" . Usei a mesma rotina para fazer download desse arquivo por 4 anos e ela sempre funcionou sem nenhum problema, porém desde o mês passado surgiu esse problema.
    E reafirmo, o banco de dados só fica corrompido quando tento baixar utilizando a rotina em VBA, se eu entrar no GDRIVE e fizer o download, não haverá nenhum problema.

    Desde já agradeço a gentileza de quem puder me dar uma luz. Segue abaixo a rotina que utilizo:

    Código:
    Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
        (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
        ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
     
    Public Sub Download()

        Dim URL As String
        Dim CaminhoLocal As String
       
        URL = "https://drive.google.com/uc?export=&id=11NaeCTqp3FFyyICe8W-mQ1v4zpj_8Exc"
       
        CaminhoLocal = "C:\Users\Downloads\ATUALIZA.mdb"
       
        Call URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
       
    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3873
    Registrado : 21/04/2011

    [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo Empty Re: [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo

    Mensagem  Marcelo David 26/3/2022, 13:27

    Bom dia,
    esse código somente funciona se a URL for um link direto de download. E a URL passada aponta para uma página de download.

    Inspecionando os elementos, consegui montar o link direto e funcionou.

    O Link é esse:

    "https://drive.google.com/uc?export&id=11NaeCTqp3FFyyICe8W-mQ1v4zpj_8Exc&confirm=t/file:///open?id=11NaeCTqp3FFyyICe8W-mQ1v4zpj_8Exc"

    Basta alterar o a variável URL para o link acima.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo Marcel11

    Pablo Neruda gosta desta mensagem

    avatar
    Guima
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 26/09/2010

    [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo Empty Re: [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo

    Mensagem  Guima 29/3/2022, 15:54

    TOP Marcelo! Funcionou perfeitamente.

    Mas fiquei com uma dúvida, mudou algo na configuração do Gdrive? Pois eu usei durante uns 4 anos com a URL da forma que postei e funcionava sem problemas.

    Valeuuu
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3873
    Registrado : 21/04/2011

    [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo Empty Re: [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo

    Mensagem  Marcelo David 29/3/2022, 17:11

    Grato pelo retorno. E sim, muito provável que tenham alterado a forma de baixar.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo Marcel11
    avatar
    Guima
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 26/09/2010

    [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo Empty Re: [Resolvido]Banco Access corrompendo quando executo rotina para fazer download do arquivo

    Mensagem  Guima 14/3/2024, 01:34

    Marcelo, desculpe te amolar novamente....

    Parece que houve mais uma vez alguma mudança no GDRIVE e da forma como você sugeriu o arquivo não funciona depois de fazer download, fica corrompido de novo, com a mesma mensagem de 2 anos atrás...

    Será que poderia mais uma vez me dar uma força?

      Data/hora atual: 28/4/2024, 21:15