Visual Basic - Facil pero yo no la se..!!

Life is soft - evento anual de software empresarial
   
Vista:

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
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

RE:Facil pero yo no la se..!!

Publicado por Gilberto (225 intervenciones) el 29/12/2008 03:46:51
Ya lo arregle....

Gracias a Dios...

la linea queda corregida asi..

Set DRBasicos.Sections(3).Controls.Item("Image1").Picture = LoadPicture(RsDrBasicos!foto)

La diferencia esta en nombrar a la seccion de detalle con el numeral 3 asi : Sections(3)

Espero que a alguien le sirva..!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar