Facil pero yo no la se..!!
Publicado por Gilberto (225 intervenciones) el 24/12/2008 01:22:16
Hola a todos..!! Gracias por su atencion a este llamado
LA IDEA ES MOSTRAR UNA IMAGEN EN UN DATAREPORT
Tengo un DataReport al cual le he asignado el siguene codigo,pero el contol de la imagen no me funciona. Lo que quiero es mostrar en el control de la imagen en el dataReport la foto de la persona.
Que sera que tengo mal??
Como fUnciona mejor??
Les envio el codigo...
De antemano muchs gracias..!!!
'///////////codigo /////////////////////////////
Public Sub ReporteBasicos()
Set RsDrBasicos = New ADODB.Recordset
RsDrBasicos.CursorLocation = adUseClient
RsDrBasicos.Open MySQLBasicos, cnn, adOpenDynamic, adLockPessimistic
X = RsDrBasicos.RecordCount
'------------------------------------------------------------------------------------------
With DRBasicos.Sections("Sección1").Controls
'linea que no funciona
Set .Controls("Image1").Picture = LoadPicture(RsDrBasicos!foto)
.Item("texto1").DataField = RsDrBasicos("nombre").Name
.Item("texto2").DataField = RsDrBasicos("apellidos").Name
.Item("etiqueta1").Caption = "NOMBRE"
.Item("etiqueta2").Caption = "APELLIDOS"
End With
DRBasicos.Caption = "INFORMACION SOBRE PERSONAS"
Set DRBasicos.DataSource = RsDrBasicos
DRBasicos.Show
End Sub
LA IDEA ES MOSTRAR UNA IMAGEN EN UN DATAREPORT
Tengo un DataReport al cual le he asignado el siguene codigo,pero el contol de la imagen no me funciona. Lo que quiero es mostrar en el control de la imagen en el dataReport la foto de la persona.
Que sera que tengo mal??
Como fUnciona mejor??
Les envio el codigo...
De antemano muchs gracias..!!!
'///////////codigo /////////////////////////////
Public Sub ReporteBasicos()
Set RsDrBasicos = New ADODB.Recordset
RsDrBasicos.CursorLocation = adUseClient
RsDrBasicos.Open MySQLBasicos, cnn, adOpenDynamic, adLockPessimistic
X = RsDrBasicos.RecordCount
'------------------------------------------------------------------------------------------
With DRBasicos.Sections("Sección1").Controls
'linea que no funciona
Set .Controls("Image1").Picture = LoadPicture(RsDrBasicos!foto)
.Item("texto1").DataField = RsDrBasicos("nombre").Name
.Item("texto2").DataField = RsDrBasicos("apellidos").Name
.Item("etiqueta1").Caption = "NOMBRE"
.Item("etiqueta2").Caption = "APELLIDOS"
End With
DRBasicos.Caption = "INFORMACION SOBRE PERSONAS"
Set DRBasicos.DataSource = RsDrBasicos
DRBasicos.Show
End Sub
Valora esta pregunta


0