ERRO AO CARREGAR PICTURE

FORMIGINHA 17/12/2006 17:59:59
#190456
ESTOU FAZENDO UM CADASTRO DE PRODUTO COM FOTO, E ESTA DANDO ERRO :

TIPOS INCOMPATIVEIS.

CODIGO :

Private Sub Text20_Change(Index As Integer)
    ImgCont.Picture = LoadPicture(DT_PRODUTO.Recordset("FOTO"))
End Sub


ESTA NO BANCO DE DADOS O CAMINHO :

C:\.................\FOTO\01.JPG

T+
ESLEYSANCHES 17/12/2006 18:05:52
#190459
mais você está colocando quando o text é alterado ? Coloque em algum botão para carregar ela, não seria o mais correto ?

Abraços !!
ESLEYSANCHES 17/12/2006 18:08:22
#190460
coloque antes numa variavel amigão, depois carregue e se ocorrer erro, trate o erro. Tipo assim:

Dim CAMINHO as string
CAMINHO = DT_PRODUTO.Recordset("FOTO")
on error goto ERRO
ImgCont.picture = loadpicture(CAMINHO)
exit sub
ERRO:
    if err.number = 53 then
        msgbox("Arquivo não encontrado !!"),vbcritical
        exit sub
    else
        msgbox("Ocorreu um erro ao tentar carregar a imagem, erro número " & err.number),vbcritical
    end if


Entendes ?
Espero que te ajude !!
Abraços !!
FORMIGINHA 17/12/2006 18:44:37
#190465
NUM BOTÃO NÃO SERIA CORRETO, PORQUE NA HORA QUE FOR PASSANDO OS REGISTRO PRECISARA CLICAR NO BOTÃO PARA APARECER A FOTO....

VOU TESTAR O CODIGO, T+
FORMIGINHA 17/12/2006 18:48:52
#190466
EU COLOQUEI NO REPOSITION DO DT_PRODUTO MAIS DEU O MSM ERRO.

MEU CODIGO :

Private Sub DT_PRODUTO_Reposition()
Command5_Click
End Sub


Private Sub Command4_Click()
    '-----------------
308:    If vFoto = True And vFotoAlte = True Then
309:        FileCopy StrImagem, App.Path & "\FOTO\" & Text20(0).Text & ".jpg"
            StrImagemBanco = App.Path & "\FOTO\" & Text20(0).Text & ".jpg"
            MsgBox StrImagemBanco
310:    ElseIf vFoto = False Then
311:       StrImagemBanco = App.Path & "\SemFoto.gif"
            MsgBox StrImagemBanco
312:    End If
    '---------------------
314: DT_PRODUTO.Recordset("FOTO").Value = StrImagemBanco
End Sub
TRUHILLO 17/12/2006 19:48:27
#190470
Faça uso do SET:

Private Sub Text20_Change(Index As Integer)
    Set ImgCont.Picture = LoadPicture(DT_PRODUTO.Recordset("FOTO"))
End Sub
SPRITU 17/12/2006 20:05:45
#190473
meu filho pq tu jah nao grava imagem no banco de dados em vez de fica criando arquivos??

no proprio registro jah coloca a foto do cidadao..

Ahuahuh seria mais simples, e tem bastante material sobre imagem no banco de dados e Stream... e tbm nao eh dificil... acho que seria mais viavel
USUARIO.EXCLUIDOS 17/12/2006 20:26:00
#190474
Se pude me manda por email o form que eu faço fumega para você afft@ig.com.br
FORMIGINHA 17/12/2006 20:38:34
#190476
consegui, é pq eu não tinha dado a condição de quando chegar no final dos registro. veja como ficou :

Private Sub Text20_Change(Index As Integer)
If DT_PRODUTO.Recordset.EOF = False Then
ImgCont.Picture = LoadPicture(DT_PRODUTO.Recordset("FOTO"))
 Else
 End If
End Sub


t+, mesmo assim agradeço vcs....
Tópico encerrado , respostas não são mais permitidas
Voltar