MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Erro ao fazer upload arquivo longblob

    Compartilhe
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 183
    Registrado : 15/06/2013

    [Resolvido]Erro ao fazer upload arquivo longblob

    Mensagem  Eloirp em 19/1/2018, 19:03

    Tenho uma rotina de carregar imagem e sempre funcionou, porém depois de algum tempo começou a dar erro 3021 e não consigo encontrar uma solução, por isso estou pedido ajuda, pois meu conhecimento é pouco ainda e como temos vários experts no fórum quem sabe alguém possa me ajudar.

    Utilizo banco de dados MySQL on-line, assim todo a aplicativo é desvinculado!

    o modelo que utilizo consegui aqui mesmo...

    Private Sub bt_Salvar_Img_Click()

       strRS = "select * from tbl_Produto_Img where Codigo=" & Me.CodigoImg
       Call Cnn_Open
       Set rs = cnn.Execute(strRS)

       If Len(strfName) > 0 Then
           Dim ImgExt As String
           ImgExt = Right(Me.Anexo_Name, 4)
       
           mstream.Type = adTypeBinary
           mstream.Open
           mstream.LoadFromFile strfName
           rs("anexo").Value = mstream.Read
           mstream.Close
           rs("anexo_name").Value = Me.Produto & "" & ImgExt
           strfName = Empty
           rs("ProdutoN").Value = Me.Produto
           rs("Data") = Now()
           rs("User") = getUsuarioAtual
       End If

       rs.Update
       
       Set rs = Nothing: Close
       Set cnn = Nothing: Close
       
       Call load_IMGv    'carrega imagem padrão
       Call Exporta_Imagem
       MsgBox ("         Imagem Salva com sucesso!        "), vbOKOnly, "SieWeb"
       Me.bt_Excluir_Img.Enabled = True
       Me.bt_Salvar_Img.Enabled = False

    End Sub


    Private Sub load_IMGv()

       Me.IMG.Picture = Application.CurrentProject.Path & "\img\noimg.jpg"

    End Sub



    Private Sub Exporta_Imagem()

       strRS = "select * from tbl_Produto_Img where Codigo=" & Me.CodigoImg
       Call Cnn_Open
       Set rs = cnn.Execute(strRS)
       
       Dim MyFile
       MyFile = Application.CurrentProject.Path & "\img\" & Me.Anexo_Name

       If Not IsNull(rs.Fields("anexo").Value) Then

           mstream.Type = adTypeBinary
           mstream.Open
           mstream.Write rs.Fields("anexo").Value
           mstream.SaveToFile MyFile, adSaveCreateOverWrite
           mstream.Close

           Me.IMG.Picture = MyFile

       End If

       Set rs = Nothing: Close
       Set cnn = Nothing: Close

    End Sub
    Anexos
    erro eupload.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (763 Kb) Baixado 0 vez(es)


    Última edição por Eloirp em 22/1/2018, 13:11, editado 1 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5623
    Registrado : 15/03/2013

    Re: [Resolvido]Erro ao fazer upload arquivo longblob

    Mensagem  ahteixeira em 20/1/2018, 22:55

    Olá Eloir, veja se tópico abaixo ajuda:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 183
    Registrado : 15/06/2013

    Re: [Resolvido]Erro ao fazer upload arquivo longblob

    Mensagem  Eloirp em 22/1/2018, 13:10

    utilizei o código do exemplo, porém continua dando o mesmo erro...
    na prática o código do exemplo é igual ao meu, apenas escrito um pouco diferente...
    Anexos
    erro upload.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (509 Kb) Baixado 3 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5623
    Registrado : 15/03/2013

    Re: [Resolvido]Erro ao fazer upload arquivo longblob

    Mensagem  ahteixeira em 23/1/2018, 08:24

    Olá Eloir,

    Na mensagem n.1 apresentou 3 SUBs, a que apresenta erro é a parte azul (Private Sub load_IMGv())?
    Caso seja aqui, existe o caminho (sub-pasta) e ficheiro: \img\noimg.jpg
    Da forma que tem o código vai mostrar essa imagem.

    Mande mais detalhes.

    Abraço
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 183
    Registrado : 15/06/2013

    Re: [Resolvido]Erro ao fazer upload arquivo longblob

    Mensagem  Eloirp em 23/1/2018, 13:53

    Olá AhTeixeira,

    Na mensagem n.1 apresentou 3 SUBs, a que apresenta erro é a parte azul (Private Sub load_IMGv())?
    R. Não, é no envio do .jpg! No segundo anexo fica destacado em amarelo.

    Caso seja aqui, existe o caminho (sub-pasta) e ficheiro: \img\noimg.jpg
    R. Existem sim
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 183
    Registrado : 15/06/2013

    Re: [Resolvido]Erro ao fazer upload arquivo longblob

    Mensagem  Eloirp em 23/1/2018, 14:23

    Olá AhTeixeira,

    Como você questionou sobre a pasta mudei um pouco o código e resolveu!

    De:
    Me.IMG.Picture = Application.CurrentProject.Path & "\img\noimg.jpg"

    Para:
    Me.IMG.Picture = "C:\SieWeb\img\noimg.jpg"

    Muito obrigado pela ajuda!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5623
    Registrado : 15/03/2013

    Re: [Resolvido]Erro ao fazer upload arquivo longblob

    Mensagem  ahteixeira em 23/1/2018, 16:15

    Olá Eloir, obrigado pelo retorno.
    Fico feliz por ter ajudado a encontrar o erro.

    Estranho mesmo, eu sou da opinião de usar o código como tinha, nunca gostei de caminhos diretos no código.
    Pode testar assim:
    Código:
    Dim strCaminhoFoto As String
    strCaminhoFoto = Application.CurrentProject.Path & "\img\noimg.jpg"
    Me.IMG.Picture = strCaminhoFoto

    Abraço
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 183
    Registrado : 15/06/2013

    Re: [Resolvido]Erro ao fazer upload arquivo longblob

    Mensagem  Eloirp em 23/1/2018, 17:10

    Olá Ah Teixeira,

    Apliquei o seu código e rodou certinho também!
    Eu prefiro este seu que não deixa o caminho fixo.

    Muito obrigado novamente!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5623
    Registrado : 15/03/2013

    Re: [Resolvido]Erro ao fazer upload arquivo longblob

    Mensagem  ahteixeira em 23/1/2018, 19:28

    Olá Eloir,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 19/12/2018, 16:21