[Resolvido]Como gravar arquivo.zip no BD?

Como tenho vários locais de uso do FE (front-end) e o BD é MySQL on-line eu gostaria de salvar o FE em uma tabela do BD para que depois o sistema verifique se está desatualizado e possa fazer a atualização do FE baixando do BD...
No BD já está resolvido, criei a tbl e fiz um teste pelo browser do MySQL e deu certo, porém preciso de ajudar para fazer a parte de enviar o arquivo...

Atualmente faço isso com imagem com os códigos abaixo, mas como adaptar para que ao invés de imagem seja um arquivo zip?

Anexar Imagem:
   Dim strTemp As String
   strfName = fncLocalizarArquivo

   If Len(strfName & vbNullString) = 0 Then Exit Sub

   Me.img.Picture = strfName
   Me.Anexo_Name = Dir(strfName, vbArchive)

Salvar no BD:
   strRS = "select * from tbl_Produto_Img where Codigo=" & Me.CodigoImg
   Call Cnn_Open
   Set rs = New ADODB.Recordset
   With rs
       Set .ActiveConnection = Cnn
       .Source = strRS
       .LockType = adLockOptimistic
       .CursorType = adOpenKeyset
       .Open
   End With

   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("Data") = Now()
       rs("User") = getUsuarioAtual
   End If

   rs.Update
   
   Set rs = Nothing: Close
   Set Cnn = Nothing: Close
   
   MsgBox ("         Imagem Salva com sucesso!        "), vbOKOnly, "Sistema Interno ELPER"

Olá Eloir

Como teu BD SQL está em um servidor web, não precisa colocar o arquivo.zip dentro dele e sim numa pasta para fazer o download.

Encontrei um exemplo neste SITE

Dê uma olhadinha, talvez o ajude.


Abraços

Noob

Valeu pela ajuda Noobezinho!
Eu até baixei o modelo, mas aí dá pau na hora de abrir porque meu Access é 2010 e o arquivo deve ser muito antigo, até tentei copiar cada form e módulo, mas ao usar o teste com o meu ftp ele simplesmente não faz nada, nem envia e nem dá erro... então por hora eu consegui fazer assim:

UPLOAD:
   strRS = "select * from tbl_ReleaseDownload where Status='Ativo'"
   Call Cnn_Open
   Set rs = New ADODB.Recordset
   With rs
       Set .ActiveConnection = Cnn
       .Source = strRS
       .LockType = adLockOptimistic
       .CursorType = adOpenKeyset
       .Open
   End With
   
       strfName = Me.Origem
       mstream.Type = adTypeBinary
       mstream.Open
       mstream.LoadFromFile strfName
       rs("SistemaZip").Value = mstream.Read
       mstream.Close
       rs("anexo_name").Value = Me.Arquivo
       strfName = Empty
       rs("NumRelease") = Me.Numrelease
       rs("Tipo") = Me.Tipo
       rs("OBS") = Me.Info
       rs("Data") = Now()
       rs("User") = getUsuarioAtual

   rs.Update

   Set rs = Nothing: Close
   Set Cnn = Nothing: Close

DOWNLOAD:
   strRS = "SELECT * FROM tbl_ReleaseDownload WHERE Status='ATIVO'"
   Call Cnn_Open
   Set rs = New ADODB.Recordset
   With rs
       Set .ActiveConnection = Cnn
       .Source = strRS
       .LockType = adLockOptimistic
       .CursorType = adOpenKeyset
       .Open
   End With
   
   If Not IsNull(rs.Fields("SistemaZip").Value) Then
       Dim MyFile
       MyFile = "C:\ElperWeb\temp\" & rs.Fields("Anexo_Name").Value

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

       MsgBox "Download do arquivo  " & rs.Fields("Anexo_Name").Value & " em C:\ElperWeb\temp\ realizado com sucesso! ", vbOKOnly, "Sistema Interno ELPER"
   Else
       MsgBox "Download do arquivo NÃO realizado, verifique com administrador do sistema! ", vbOKOnly, "Sistema Interno ELPER"

   End If

   Set rs = Nothing: Close
   Set Cnn = Nothing: Close

Agora só preciso conseguir descompactar o arquivo.ZIP via VBA...

Eloir

Assim que puder. ou uma olhada naquele exemplo

Adiantando, como usa o A2010 e tiver API , lembre-se de
usar o PtrSafe antes delas na declaração.

Experimente também converter para o A2003 antes de converter diretamente para o A2010.

Noob

Fechando tópico por item resolvido!
Optei por gravar o front-end dentro da base e quando o usuário abre o FE é verificado se está com o release atual, caso não é abre um utilitário em Access (e fecha FE para poder substituir o arquivo) que faz um bkp do FE atual, baixa o arquivo zip e atualiza o FE, deleta o zip baixado, abre novamente o FE e fecha o utilitário! Acho que ficou muito bom, assim sempre o usuário vai estar com o FE atualizado, embora ele tenha a opção de fazer a atualização mais tarde....

Ótimo que conseguiu

Valeu o retorno

Boa sorte


Nb