none
Ayuda para leer una imagen de base de datos access 2007 RRS feed

  • Pregunta

  • Hola a todos mi problema es que tengo un formulario de productos que agrego a una base de datos access 2007 resulta que el procedimiento de almacenarlos funciona perfectamente, pero a la hora de buscar un producto no me muestra la imagen guardada, dejo mi código para que le echen un vistazo, un saludo y gracias de antemano.

     Private Sub BUSCAR_Nsecuencia()

            Try
                Using cnn As New OleDbConnection(cadenaConexion)

                    Dim cmd As OleDbCommand = cnn.CreateCommand()
                    cmd.CommandText = "SELECT * FROM Productos WHERE Nombre=?"
                    cmd.Parameters.AddWithValue("@Nombre", NombreComboBox.Text)



                    cnn.Open()

                    Dim dr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)

                    If dr.Read() Then
                        NombreComboBox.Text = Convert.ToString(dr(0))
                        DescripcionTextBox.Text = Convert.ToString(dr(1))
                        ProveedorTextBox.Text = Convert.ToString(dr(2))
                        PrecioTextBox.Text = Convert.ToString(dr(3))
                        FotoPictureBox.Text = Convert.ToString(dr(4))


                        btnmodificar.Enabled = True
                        btneliminar.Enabled = True

                    Else

                        NombreComboBox.Text = ""
                        DescripcionTextBox.Clear()
                        ProveedorTextBox.Clear()
                        PrecioTextBox.Clear()
                        FotoPictureBox.Text = ""


                    End If



                End Using

            Catch ex As Exception
                MsgBox("Selecciona pirmero un Producto para buscar", MsgBoxStyle.Information)

            End Try

        End Sub

    Private Sub Nuevo()

            Try

                Using cmd As New OleDbCommand
                    'Using cnn As New OleDbConnection(cadenaConexion)

                
                    cmd.CommandText = "INSERT INTO Productos (Nombre, Descripcion, Proveedor, Precio, Foto) VALUES (?, ?, ?, ?, ?)"

                    '
                    ' Añadimos los parámetros en el mismo orden en el
                    ' que están definidos los campos en la tabla Cinta.
                    '

                    cmd.Parameters.AddWithValue("@p1", ObtenerValorParametro(NombreComboBox.Text))
                    cmd.Parameters.AddWithValue("@p2", ObtenerValorParametro(DescripcionTextBox.Text))
                    cmd.Parameters.AddWithValue("@p3", ObtenerValorParametro(ProveedorTextBox.Text))
                    cmd.Parameters.AddWithValue("@p4", ObtenerValorParametro(PrecioTextBox.Text))
                    cmd.Parameters.AddWithValue("@p5", ObtenerValorParametro(FotoPictureBox.Text))

                    FileCopy(archivo, ruta & "\" & FotoPictureBox.Text)


                    ExecuteAction(cmd)

                    Mostrar()

                    MsgBox("Producto Guardado con Exito")

                End Using

            Catch ex As Exception
                MessageBox.Show(ex.Message)

            End Try

        End Sub

    jueves, 11 de abril de 2013 11:21

Respuestas

  • En tu método de buscar recuperas la ruta de la imagen no??y cuando lo recuperas que haces con ella,con la ruta?? Ten encuenta que cuando  haces el insert solo guardas   el nombre no la ruta completa..

    FileCopy(archivo, ruta & "\" & FotoPictureBox.Text) --> aqui guardas el fichero con la ruta Completa


    Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

    • Marcado como respuesta Nathan 13 miércoles, 20 de mayo de 2015 12:41
    jueves, 11 de abril de 2013 15:08

Todas las respuestas

  • hola

    la imagen de una db acces la recuperas como un byte array o es una ruta a la imagen ?

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    jueves, 11 de abril de 2013 14:33
  • En tu método de buscar recuperas la ruta de la imagen no??y cuando lo recuperas que haces con ella,con la ruta?? Ten encuenta que cuando  haces el insert solo guardas   el nombre no la ruta completa..

    FileCopy(archivo, ruta & "\" & FotoPictureBox.Text) --> aqui guardas el fichero con la ruta Completa


    Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

    • Marcado como respuesta Nathan 13 miércoles, 20 de mayo de 2015 12:41
    jueves, 11 de abril de 2013 15:08
  • yo lo que quiero es guardar la ruta y que cuando busque la ruta de nuevo me salga la imagen en el picturebox porque si la guardo como imagen me va a ocupar demasiado sitio ya que la cantidad de productos es amplia
    jueves, 11 de abril de 2013 15:11
  • despues de leer...

    picturebox1.Load(ruta & "\" & FotoPictureBox.Text)

    btnmodificar.Enabled = True
     btneliminar.Enabled = True


    Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

    jueves, 11 de abril de 2013 15:35
  • muchas gracias amigo por tu ayuda, un saludo

    jueves, 11 de abril de 2013 18:19
  • Te funciono todo entonces?? Un saludo

    Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

    jueves, 11 de abril de 2013 18:42