HELP RECUPERAR IMAGEM DO CAMPO BLOB NO MYSQL

JLAUROSOUZA 23/10/2012 16:22:34
#412627
Ola pessoa, utilizo estou código para recuperar imagem da logo da empresa q fica armazenada no banco, para o [Ô]SQL-Server[Ô], esta funcionando, mais para o [Ô]My-Sql, esta dando erro na de parametro na linha [Ô] img.LoadFile ([Ô]c:    mp.jpg[Ô]) [Ô], observei que a imagem não esta sendo salva corretamente no caminho, algue pode me ajudar???

Private Sub PegarImagem_Click()

Dim rsImagem As ADODB.Recordset
Set rsImagem = New ADODB.Recordset
Dim mystream As New ADODB.Stream
With mystream
.Type = adTypeBinary
rsImagem.Source = [Ô]SELECT * FROM tb_entidade where id=[ô][Ô] & 1 & [Ô][ô][Ô]
cn.CursorLocation = adUseServer
rsImagem.Open , cn, adOpenDynamic, adLockOptimistic
.Open
.Write rsImagem!LOGOMARCAEMPRESA
.SaveToFile [Ô]c:    mp.jpg[Ô] , adSaveCreateOverWrite
.Close
Set img = New ImageFile
img.LoadFile ([Ô]c:    mp.jpg[Ô])

If Not img Is Nothing Then
Dim w, h As Integer

w = img.Width
h = img.Height

Set ImageView.Picture = img.ARGBData.Picture(w, h)
ImageView.Visible = True
While (prcs.Filters.Count > 0)
prcs.Filters.Remove 1
Wend
prcs.Filters.Add prcs.FilterInfos([Ô]Scale[Ô]).FilterID
End If
rsImagem.Close
cn.CursorLocation = 2
Set rsImagem = Nothing
End With
Exit Sub
End Sub
MARCELO.TREZE 23/10/2012 19:59:50
#412653
JLAUROSOUZA 26/10/2012 17:47:51
#412926
MARCELO, ja utilizei esta sua opção, mais a imagem não é recuperada...
MARCELO.TREZE 26/10/2012 19:14:49
#412929
tente assim

Private Sub PegarImagem_Click()

Dim RSimagem As New ADODB.Recordset
    Dim MyStream As New ADODB.Stream
    Dim cSQL As String
    With MyStream
        .Type = adTypeBinary
        cSQL = [Ô]SELECT * FROM tb_entidade where id=[ô]1[ô] AND not isnull(LOGOMARCAEMPRESA)[Ô]
        RSimagem.Open cSQL, Conexao, adOpenStatic, adLockOptimistic
        If Not (RSimagem.BOF And RSimagem.EOF) Then
        .Open
        .Write RSimagem!LOGOMARCAEMPRESA
        .SaveToFile App.Path & [Ô]    mp.jpg[Ô], adSaveCreateOverWrite [ô] salva aimagem em um arquivo temporário
        .Close
        Picture1.Picture = LoadPicture(App.Path & [Ô]    mp.jpg[Ô]) [ô]carrega esta imagem na Picture1
        Kill (App.Path & [Ô]    mp.bmp[Ô]) [ô] e apaga o arquitemporario
        RSimagem.Close
        Set RSimagem = Nothing
        End If
End Sub


ps coloque um picturebox no seu projeto para fazer o teste, se funcionar poderemos mudar para outro componente
JLAUROSOUZA 26/10/2012 19:37:47
#412930
MARCELO,
Fiz Exatamente o q vc me passou, e nada, a Imagem não é gerada, um arquivo tmp.jpg, e criado, [Ô]como das vezes anteriores[Ô], mais a imagem não é válida.

OBS: isso só acontece com o MY-SQL, pois pela ACCESS e pelo SQL-SERVER, não tenho nenhum problema.
MARCELO.TREZE 26/10/2012 20:57:23
#412936
a imagem é muito grande, pois ela pode estar sendo salva de forma errada, pois comigo funciona
JLAUROSOUZA 26/10/2012 21:03:32
#412938
é a mesmo Imagem q esta sendo salva tanto no SQLserver como Nó Access, e eu já mudei de imagem [Ô]N[Ô] vezes para ter certeza e continua com o mesmo problema...

o tamanho da imagem é 10 kb.
Comprimento : 255x255
MARCELO.TREZE 26/10/2012 21:07:19
#412939
vou fazer um exemplo funcional aqui e te envio amanhã ok
JLAUROSOUZA 26/10/2012 21:10:32
#412940
te agradeço MARCELO, Até Amanhã, Boa noite!!!
Tópico encerrado , respostas não são mais permitidas
Voltar