Leer imagen para DataReport
Publicado por Gilberto (225 intervenciones) el 22/12/2008 13:53:11
Hola a todos..!! Gracias por su atencion a este llamado
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 fnciona mejor??
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
With DRBasicos.Sections("Sección2").Controls
.Item("etiqueta16").Caption = "Datos Basicos"
End With
With DRBasicos.Sections("Sección4").Controls
.Item("etiqueta17").Caption = "COMPONENTE BIOGRAFICO"
.Item("ETIQUETA18").Caption = "Programa Ayuda Humanitaria al Desmovilizado - PAHD"
End With
With DRBasicos.Sections("Sección5").Controls
.Item("etiqueta19").Caption = "TOTAL REGISTROS IMPRESOS " & " " & X
End With
DRBasicos.Caption = "INFORMACION SOBRE DESMOVILIZADOS"
Set DRBasicos.DataSource = RsDrBasicos
'Printer.Orientation = vbPRORLandscape
'DRBasicos.Orientation = rptOrientLandscape
DRBasicos.Show
End Sub
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 fnciona mejor??
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
With DRBasicos.Sections("Sección2").Controls
.Item("etiqueta16").Caption = "Datos Basicos"
End With
With DRBasicos.Sections("Sección4").Controls
.Item("etiqueta17").Caption = "COMPONENTE BIOGRAFICO"
.Item("ETIQUETA18").Caption = "Programa Ayuda Humanitaria al Desmovilizado - PAHD"
End With
With DRBasicos.Sections("Sección5").Controls
.Item("etiqueta19").Caption = "TOTAL REGISTROS IMPRESOS " & " " & X
End With
DRBasicos.Caption = "INFORMACION SOBRE DESMOVILIZADOS"
Set DRBasicos.DataSource = RsDrBasicos
'Printer.Orientation = vbPRORLandscape
'DRBasicos.Orientation = rptOrientLandscape
DRBasicos.Show
End Sub
Valora esta pregunta


0