LIST(OF IMAGENS) VBNET

 Tópico anterior Próximo tópico Novo tópico

LIST(OF IMAGENS) VBNET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#484829 - 07/10/2018 12:59:06

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Última edição em 07/10/2018 17:53:50 por OMAR2011

Como faço para aparecer a Imagem que está gravada na Tabela em um Datagridview usando um DataSource ou DataGridView5.Rows.Add.
Não sei como fazer.Sempre aparece erro.
Isto é apenas um teste do List(Of).
Pode corrigir do jeito quiser deste que a imagem apareça.

Dim listimg As New List(Of Imagens)

Public Class Imagens
    Private valcod As String

    Property cod() As Integer
        Get
            Return valcod
        End Get
        Set(ByVal Value As Integer)
            valcod = Value
        End Set
    End Property
    Private valNom As String
    Property Nomes() As String
        Get
            Return valNom
        End Get
        Set(ByVal Value As String)
            valNom = Value
        End Set
    End Property
    Private img As Image
    Property imge() As Image
        Get
            Return img
        End Get
        Set(value As Image)
            img = value
        End Set
    End Property
    Private cam As String

End Class


Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Using con1 As New SqlConnection("Server=User-pc\SQLEXPRESS14;Database=Bras2022;trusted_connection=Yes")
            con1.Open()
            Using cmd1 As New SqlCommand("select *  from times", con1)
                Using dread As SqlDataReader = cmd1.ExecuteReader
                    While dread.Read
                        Dim clase As Imagens = New Imagens
                        clase.cod = Convert.ToInt32(dread("cod")).ToString
                        clase.Nomes = Convert.ToString(dread("Nome")).ToString
                        ' clase.imge = dread("ImageM")

                        listimg.Add(clase)

                    End While
                    DataGridView5.DataSource = (listimg)

                End Using
            End Using
            End Using
    End Sub




Resposta escolhida #484840 - 08/10/2018 11:25:36

GUIMORAES
ITAPETININGA
Cadast. em:Agosto/2009


Private _img() As Byte
    Public Property imagem() As Byte()
        Get
            Return _img
        End Get
        Set(ByVal value As Byte())
            _img = value
        End Set
    End Property


Classe.imagem = dread.item("imagem")






#484841 - 08/10/2018 11:36:07

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Guimoraes grato pela resposta.
Isto não da certo, tanto
Classe.imagem = dread.item("imagem")
Classe.imagem = dread.("imagem").
Sempre da erro.



#484845 - 08/10/2018 12:28:47

CLEVERTON
SERRINHA
Cadast. em:Dezembro/2003


Membro da equipe
PQ vc não coloca a propriedade como Object e deixa o datagridview se virar ?



#484847 - 08/10/2018 13:34:15

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Mudei na classe para Object e nada a não ser erro.
Se for isto que tu postou.
Será que não é um tipo conversão ou outra coisa qualquer.



#484848 - 08/10/2018 13:35:16

GUIMORAES
ITAPETININGA
Cadast. em:Agosto/2009


Citação:
:
Guimoraes grato pela resposta.
Isto não da certo, tanto
Classe.imagem = dread.item("imagem")
Classe.imagem = dread.("imagem").
Sempre da erro.


OMAR2011,

Qual é a tipagem da coluna no banco de dados?
Qual é o erro retornado?






#484854 - 08/10/2018 16:00:21

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


GUIMORAES você esta corretíssimo.
E ainda eu estava dando um DOMINGADA.
Estava fazendo um select na tabela onde não tinha imagem gravada.
Você quer quantos K, pode falar.
Byte é o correto e estava usando Image.
Agradecido pelas respostas quanto a você GUIMORAES e seu CLEVERTON.



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por OMAR2011 em 08/10/2018 16:00:44