Boton EXAMINAR para seleccionar imagen !

[Dradi7]

Primero en la Base de Datos vas a guardar la imagen en bits o una ruta especificada en el servidor especifica mas sobre esto

Para recuperar la ruta es solamente con esta linea

openFileDialog1.FileName en caso sea una imagen y openFileDialog1.FileNames en caso sea varias imágenes

Y este es el codigo para convertir imagen en binario si es que lo necesitas

Código vb:

' Convierte Imagen a Byte
 
    Function ImgByte(ByVal NomAr$) As Byte()
 
        Try
 
            Dim FsFoto As New System.IO.FileStream(NomAr, IO.FileMode.Open, IO.FileAccess.Read)
 
            Dim Info As New System.IO.FileInfo(NomAr)
 
            Dim image(Convert.ToInt32(Info.Length)) As Byte
 
            FsFoto.Read(image, 0, Convert.ToInt32(Info.Length))
 
            FsFoto.Close()
 
            FsFoto = Nothing
 
            Return image
 
        Catch ex As Exception
 
            MsgBox(ex.Message)
 
        End Try
 
        Return Nothing
 
    End Function
 
 
 
    ' Convierte Byte a Image
 
    Function ByteImage(ByVal bytes As Byte()) As Image
 
        Dim Bmp As Bitmap = Nothing
 
        Try
 
            If bytes.Length = 0 Then Return Nothing
 
            Dim Memory As New System.IO.MemoryStream(bytes)
 
            Bmp = New Bitmap(Memory)
 
            Memory.Dispose()
 
            Memory = Nothing
 
        Catch ex As Exception
 
            MsgBox(ex.Message)
 
        End Try
 
        Return Bmp
 
    End Function