Visual Basic - Leer imagen para DataReport

Life is soft - evento anual de software empresarial
   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder