none
traer una imagen reader RRS feed

  • Pregunta

  • hola buenas tardes necesito si me ayudan a traer una imagen de picturebox con 

           

     Private Sub Llenar(item As tbl_pacientes, Odon As tbl_odontograma, iDataReader As IDataReader)
            If Not Convert.IsDBNull(iDataReader(PacienteEntidadColumnas.cod_paciente.ToString())) Then
                item._cod_paciente = Convert.ToString(iDataReader(PacienteEntidadColumnas.cod_paciente.ToString()))
            End If
            If Not Convert.IsDBNull(iDataReader(PacienteEntidadColumnas.nombre_pac.ToString())) Then
                item._nombre_pac = Convert.ToString(iDataReader(PacienteEntidadColumnas.nombre_pac.ToString()))
            End If
            If Not Convert.IsDBNull(iDataReader(PacienteEntidadColumnas.dni_pac.ToString())) Then
                item._dni_pac = Convert.ToString(iDataReader(PacienteEntidadColumnas.dni_pac.ToString()))
            End If
            If Not Convert.IsDBNull(iDataReader(PacienteEntidadColumnas.sexo_pac.ToString())) Then
                item._sexo_pac = Convert.ToString(iDataReader(PacienteEntidadColumnas.sexo_pac.ToString()))
            End If
    If Not Convert.IsDBNull(iDataReader(PacienteEntidadColumnas.foto_pac.ToString())) Then
                item._foto_pac = Convert.ToString(iDataReader(PacienteEntidadColumnas.foto_pac.ToString()))
            End If

    Private Sub btnAgregar_foto_Click(sender As Object, e As EventArgs) Handles btnAgregar_foto.Click

     Dim fotoPaciente As String = ""

            Try
                Me.OpenFileDialog1.ShowDialog()
                If Me.OpenFileDialog1.FileName <> "" Then
                    fotoPaciente = OpenFileDialog1.FileName
                    Dim longitud As Integer = fotoPaciente.Length
                    Dim imagen1 As String
                    imagen1 = CStr(Microsoft.VisualBasic.Mid(RTrim(fotoPaciente), longitud - 2, longitud))
                    PbFoto_paciente.Load(fotoPaciente)
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub

    los demas datos me los trae pero no la imagen la imagen es varchar la tengo en la base de datos


    gustavo daniel

    • Cambiado Enrique M. Montejo lunes, 27 de octubre de 2014 7:24 Pregunta relacionada con el acceso a datos.
    viernes, 24 de octubre de 2014 19:40

Todas las respuestas