Boton EXAMINAR para seleccionar imagen !

[DavidNovato]

Buenos DIas.! Como andan?

Bueno hoy les vengo con otro problema.. el famoso boton " EXAMINAR".. ese que le das abre el directorio y se puede buscar un archivo (ene ste caso una imagen) seleccionarla para guardar la ruta en la BD d datos, para luego mostrarla en la aplicacion.. se entiende?

Ya tengo el proceso de abrir el directorio al darle click al boton .. aca les dejo el codigo:

Código vb:

Private Sub cmdexa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdexa.Click
        Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()
 
        openFileDialog1.InitialDirectory = "c:\"
        openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True
 
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                myStream = openFileDialog1.OpenFile()
                If (myStream IsNot Nothing) Then
                    ' Insert code to read the stream here.
                End If
            Catch Ex As Exception
                MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
            Finally
                ' Check this again, since we need to make sure we didn't throw an exception on open.
                If (myStream IsNot Nothing) Then
                    myStream.Close()
                End If
            End Try
        End If
    End Sub
 

Pero noc como hacer para que al seleccionar la imagen, la ruta aparezca en cun textbox.. para luego guardarla en la BD.. ..

Espero puedan echarme una manito.. GRACIAS! d antemano Saludos

[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
 

[cristiantorres]

Justamente ayer publique un articulo en mi blog sobre como insertar y mostrar imagenes de una bd en nuestras aplicaciones.
Dale una leida.
Guardar y Mostrar Imagenes de Base de Datos en .Net

En el ejemplo yo lo que hago es esto.

Código vb.net:

OpenFileDialog file = new OpenFileDialog();
    file.Filter = "Archivo JPG|*.jpg";
 
    if (file.ShowDialog() == DialogResult.OK)
    {
        pictureBox1.Image = Image.FromFile(file.FileName);
    }
 

El usuario busca una imagen y se carga en un picturebox y luego hago los procedimientos para insertar la imagen en la bd, dale una leída al articulo también tienes el ejemplo de descarga.

[DavidNovato]

Gracias por la pronta respuesta muchachos.. Ahorita probare ambas formas a ver como me va y les aviso..! ;) .. Cristian revisare tu blog en lo que llegue a mi casa.. porq aki dond trabajo tienen muchas restrigciones a la hora d abrir paginas.. y los blog son los primeros q no abren :s xD .!

[DavidNovato]

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

Caundo recupero al ruta , como hago q se muestre en un textbox.. (como aparece en casi todas las paginas web)

[Dradi7]

Iniciado por DavidNovato

Caundo recupero al ruta , como hago q se muestre en un textbox.. (como aparece en casi todas las paginas web)

es lo mismo que te digo ahí

textbox1.text = openFileDialog1.FileName

En el blog de cristiantorres esta muy bien detallado revisalo cuando puedas esta en C# pero no creo que se te haga difícil entenderlo

[DavidNovato]

Si sii.!! LISTO .! ya funciona.. no habia leido bien .. Gracias Dadr7.! En lo que llegue a mi casa le hecho una leida al blog.. GRACIAS.!

[cristiantorres]

Como te dice Dradi7 si quieres mostrar la ruta en un texbox solo arias.

Código vb.net:

Dim file As New OpenFileDialog()
    file.Filter = "Archivo JPG|*.jpg"
    If file.ShowDialog() = DialogResult.OK Then
        textbox.Tex = file.FileName
    End If
 

Y el ejemplo en el blog esta en ambos lenguajes Dradi7 c# y vb.net

[DavidNovato]

Disculpen una ultima duda.. Ya la ruta esta guardada en la BD.. en la tabla "producto".. ahora como se podria hacer para que al seleccionar el producto de un combobox se cargara la imagen de ese producto en un picture..? y disculpen

[Dradi7]

OJO primero debes ver bien que ruta estas guardando no puedes guardar la ruta de la imagen de una PC local a la Base de Datos lo que deberías realizar seria copiar esa imagen a una carpeta del servidor y una vez guardada obtener la ruta de la imagen y mostrarla en tu aplicación

Primero recupera la ruta de tu BD, por ejemplo usando un DataReader

Código vb:

Dim archivo as String = datareader1.GetString(0) // suponiendo que sea el indice de la columna de la base de datos
Picturebox1.Image = New System.Drawing.Bitmap(archivo)
 

[DavidNovato]

Iniciado por Dradi7

Primero recupera la ruta de tu BD, por ejemplo usando un DataReader

Código vb:

Dim archivo as String = datareader1.GetString(0) // suponiendo que sea el indice de la columna de la base de datos
Picturebox1.Image = New System.Drawing.Bitmap(archivo)
 

HEY! Disculpa pero no me esta resultando para mostrar la imagen :S .. puese ese codiigo en el evento SelectedIndexChanged, de mi combobox "producto".. porq la idea es que cuando seleccione el producto aparezca la foto del mismo.. pero m da error..

[Dradi7]

Pero que error te da muéstranos cual es el error el cual te mencionas

[DavidNovato]

NullReferenceException was unhandled by user code - referencia a objeto no establecida como instancia de un objeto .. Eso me lo dic en :

Código vb:

Dim archivo as String = datareader1.GetString(0)
 

[Dradi7]

Pero el error esta claro primero debes declarar el SqlDataReader (Puede ser Otros), luego obtener la consulta de datos con SqlCommand y luego recien poder mostrar los datos sino te va a mostrar error yo supongo que tu tienes tu codigo de como obtener tus datos de la BD

[DavidNovato]

Bueno el que siempre uso es algo asi.. (incluire de una vz el codigo para a imagen):

Código vb:

Dim con As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim consulta As String = "Select imagen from producto where ID_producto = " + cboproducto.SelectedValue.ToString
        Dim comando As New MySqlCommand(consulta, con)
 
        Dim drd As MySqlDataReader
        Dim archivo As String = drd.GetString(0) 'suponiendo que sea el indice de la columna de la base de datos
        con.Open()   
drd = comando.ExecuteReader()
        If drd.Read() Then
 PictureBox2.Image = New System.Drawing.Bitmap(archivo)
        
        End If
        drd.Close()
        con.Close()
 

Uso ese codigo parecido.. para traer datos a un textbox.. pero eso me da el mismo error que te mencione anteriormente; dond aparece el combobox es para que al seleccionar un producto aparezca la imagen de ese producto..

[Dradi7]

Iniciado por DavidNovato

Bueno el que siempre uso es algo asi.. (incluire de una vz el codigo para a imagen):

Código vb:

Dim con As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
        Dim consulta As String = "Select imagen from producto where ID_producto = " + cboproducto.SelectedValue.ToString
        Dim comando As New MySqlCommand(consulta, con)
 
        Dim drd As MySqlDataReader
        Dim archivo As String = drd.GetString(0) 'suponiendo que sea el indice de la columna de la base de datos
        con.Open()   
drd = comando.ExecuteReader()
        If drd.Read() Then
 PictureBox2.Image = New System.Drawing.Bitmap(archivo)
        
        End If
        drd.Close()
        con.Close()
 

Uso ese codigo parecido.. para traer datos a un textbox.. pero eso me da el mismo error que te mencione anteriormente; dond aparece el combobox es para que al seleccionar un producto aparezca la imagen de ese producto..

Pero el error esta super claro como piensas recuperar el drd.GetString(0) si ni siquiera aun has hecho la consultora mira bien tu código primero debes llenar los datos al datareader con el comando.ExecuteReader() y luego recien debes consultar los datos con drd.GetString(0)