Visual Basic.NET - Mostrar imagen en Picturebox con access

 
Vista:
Imágen de perfil de emilio
Val: 2
Ha disminuido su posición en 20 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Mostrar imagen en Picturebox con access

Publicado por emilio (1 intervención) el 16/05/2019 05:42:58
quiero que la imagen que esta en access se muestra en un PictureBox
dejo el código
dejo el programa coperto por si quiere velo no deje la base de datos ni el archivo de excel que se abre en el primer formulario

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop.Access
Imports System.Data
Imports System.Data.OleDb
 
 
Public Class f1
 
 
    Dim conexion As New OleDbConnection
    Dim adaptador As New OleDbDataAdapter
    Dim registro As New DataSet
 
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\Prueba Excel\B.D.accdb"
            conexion.Open()
            MsgBox("conetado")
 
        Catch ex As Exception
            MsgBox("no conexion")
 
        End Try
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim consulta As String
        Dim lista As Byte
        If TextBox1.Text <> "" Then
            consulta = "SELECT * FROM alusan WHERE matricula = '" & TextBox1.Text & "'"
            adaptador = New OleDbDataAdapter(consulta, conexion)
            registro = New DataSet
            adaptador.Fill(registro, "alusan")
            lista = registro.Tables("alusan").Rows.Count
            If lista <> 0 Then
                data.DataSource = registro
                data.DataMember = "alusan"
                'm myb' Diytearray() As Byte = registro.Tables("alusan").Rows(0).Item("foto")
                'Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(mybytearray)
                ' pin.Image = System.Drawing.Image.FromStream(ms)
 
            Else
                MsgBox("no ay registo")
                TextBox1.Clear()
                TextBox1.Focus()
                data.Columns.Clear()
 
 
            End If
        End If
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        conexion.Close()
        Me.Close()
 
    End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 2.160
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Mostrar imagen en Picturebox con access

Publicado por Phil Rob (531 intervenciones) el 17/05/2019 23:33:43
Hola,

¿Tienes que almacenar la imagen como "array" de bits?
¿No puedes simplemente guardar el nombre del archivo de imagen (String) en la base de datos?

Si es necesario trabajar con un array de bits, tienes que enviar la base de datos (partial) con imagenes ...

Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar