[Resolvido]Erro ao fazer upload arquivo longblob

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

Olá Eloir, veja se tópico abaixo ajuda:
https://www.maximoaccess.com/t23419-resolvido-gravar-upload-arquivos-pdf-jpg-docx-xlsx-zip-em-uma-tabela-vinculada-ao-sql-server

Abraço

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...

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

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

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!

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

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!

Olá Eloir,

Obrigado pelo retorno, o fórum agradece.

Abraço