RECUPERAR IMAGEM DO BD ACESS

JMSGRILO 02/05/2013 17:46:12
#422863
Pessoal estou com um probleminha aqui!
Estou desenvolvendo um sistema em visual studio 2010,o qual preciso recuperar um logo tipo que está armazenado em uma tabela acess.
Estou sem noção, estou usando o código abaixo, mas retorna erro.




If portaria.State = ConnectionState.Closed Then portaria.Close()
portaria.Open()
Dim item03 As String
item03 = tbempresas.SelectedItem
item03 = item03.Substring(0, 3)
Dim cmd As New OleDbCommand([Ô]select * from CPContabilidade WHERE CP_COD = [ô][Ô] & item03 & [Ô][ô][Ô], portaria)
Dim drdr As OleDbDataReader
drdr = cmd.ExecuteReader
drdr.Read()
wPTrabalho = drdr.Item([Ô]CPPASTA[Ô])
img.Image = drdr.Item([Ô]CPCLI21[Ô])

cmd.Cancel()
portaria.Close()


Alguem poderia me ajudar ai!?
OMAR2011 02/05/2013 20:10:56
#422864 Resposta escolhida
Adiconei o código apenas para mostra a imagem,quanto ao
resto do código não testei.

Imports System.IO

If portaria.State = ConnectionState.Closed Then portaria.Close()
portaria.Open()
Dim item03 As String
item03 = tbempresas.SelectedItem
item03 = item03.Substring(0, 3)
Dim cmd As New OleDbCommand([Ô]select * from CPContabilidade WHERE CP_COD = [ô][Ô] & item03 & [Ô][ô][Ô], portaria)
Dim drdr As OleDbDataReader
drdr = cmd.ExecuteReader
drdr.Read()

Dim bt() As Byte
Dim mt As MemoryStream
bt = drdr.Item([Ô]CPCLI21[Ô])
mt = New MemoryStream(bt)
img.Image = Image.FromStream(mt)

wPTrabalho = drdr.Item([Ô]CPPASTA[Ô])

cmd.Cancel()
portaria.Close()
ALEVALE 03/05/2013 08:17:54
#422873
O campo no seu bd é string ?
JMSGRILO 03/05/2013 08:58:16
#422878
Olá, vou testar sua dica.
O banco é acess e o campo onde está a imagem é do tipo imagem (objeto OLE).
O sistema é de controle de entrada de material, mono usuário por isso estou usando o acess.
Mas desde já agradeço sua ajuda.
Tópico encerrado , respostas não são mais permitidas
Voltar