6 de enero de 2012

Imagenes VB.NET 5/5

Si lo que quieren es obtener una imagen en especifico, entonces al realizar la consulta, en el PictureBox pongan la ruta obtenida así:
PictureBox1.Image = Image.FromFile(ruta)

Si quieren algo mas formal aquí esta este código:

Function ExtraerImagen(ByVal Foto As String) As String
        Dim SqlSelect As String = "Select ruta From fotos Where cod = " & Foto
        Dim Command As New OleDbCommand(SqlSelect, cnn)
        cnn.Close()
        cnn.Open()
        Dim ruta As String = CStr(Command.ExecuteScalar())
        cnn.Close()
        Return ruta
    End Function

Y la llamada desde el PictureBox seria así:
PictureBox1.Image = Image.FromFile(ExtraerImagen(dato_especifico))

Donde dato_especifico puede ser el código de la imagen o parte de una consulta, se me ocurre que podrían tener un formulario donde se busque a un empleado especifico según código, entonces tendrían un botón para buscar, al dar click al botón realizan la búsqueda con una consulta y pasan el parámetro