
11/03/2009, 20:00
|
| | Fecha de Ingreso: septiembre-2008
Mensajes: 28
Antigüedad: 16 años, 7 meses Puntos: 0 | |
como leer una imagen en un formulario windows de access hola a todos estoy realizando una pequeña aplicacion en la que quiero que cuando digite una cedula me traiga la informacion y la foto de esta persona
tengo mi proyecto divido en dos parte la primera una dll
Public Function BuscarAsociadoxasistencia(ByVal wcedula As String) As System.Data.OleDb.OleDbDataReader
Dim wcon As System.Data.OleDb.OleDbConnection
Dim wreader As System.Data.OleDb.OleDbDataReader
Dim wcmd As System.Data.OleDb.OleDbCommand
Dim wsql As String = ""
Try
wcon = New System.Data.OleDb.OleDbConnection(wcadena)
wcon.Open()
Catch ex As Exception
westado = ex.Message
Return wreader
End Try
wsql = "select * from ASISTENCIA where cedula = '" & wcedula & "'"
Try
wcmd = New System.Data.OleDb.OleDbCommand(wsql, wcon)
wreader = wcmd.ExecuteReader
Catch ex As Exception
westado = ex.Message
Return wreader
End Try
Return wreader
End Function
y la seguna la aplicacion en windows
Private Sub buscarasociado()
Dim wcedula As String
Dim wreader As System.Data.OleDb.OleDbDataReader
Dim wdatos As delegadusss.Datos
Dim wasistencia As String
Dim wsql aS String = ""
wcedula = Me.txtcedula.text
wdatos = New delegadusss.Datos
wreader = wdatos.BuscarAsociadoxasistencia(wcedula)
If Not wreader Is Nothing Then
If wreader.Read() Then
Me.txtnombre.Text = wreader.Item("NOMBRES").ToString()
Me.txtapellidos.Text = wreader.Item("APELLIDOS").ToString()
Me.txtentidad.Text = wreader.Item("ENTIDAD").ToString()
Me.TXTCATEGORIA.Text=WREADER.Item("CATEGORIA").TOS TRING()
If wasistencia= "S" Then
Me.checkBox1.Checked=True
Else
ME.checkBox1.Checked= FALSE
End If
If Me.checkBox1.Checked=True Then
Me.checkBox1.Enabled=False
Else
me.checkBox1.Enabled=true
wreader.Close()
end if
Else
wreader.Close()
MessageBox.Show("No se encontró información en la base de datos por favor verifique la información...")
End If
End If
If wdatos.PEstado.Trim.Length > 0 Then
MessageBox.Show(wdatos.PEstado, "Advertencia...")
End If
End Sub
el progrma me trae todos lo datos menos la imagen
en la db coloque la ruta donde esta la imagen pero no se como llamarla en el winform
gracias,,,,, |