cual es el control

llanes
02 de Febrero del 2004
Hola pueden decirme cual es el control que ese enlaza a una base de datos conectada a un ADO para ver los datos de un campo de esta tabla que sea de tipo OLE(fotos), .
Me explico mejor
tengo un campo en una tabla de access que es tienes fotos(tipo OLE) y no sé cual es el control que me permite hacer que yo al darle a los botones de movimiento del un ado me vaya mostrando las fotos de cada registro.

Orlando
02 de Febrero del 2004
Creo que hay dos controles :

- Control Image
- Control PictureBox
...Yo prefiero el control Image porque tiene una propiedad "Stretch" que si esta a "true" lo que hace
es adaptar el tamaño de la imagen al tamaño del control. En el otro control si la imagen no cabe, solo
mostrará lo que le "quepa".
¿Como se carga la imagen?:
Image.Picture=LoadPicture(Camino Nombre de la Imagen)


-=Aldo=-
02 de Febrero del 2004
Yo creo que lo que necesitas es recuperar el campo de la base de datos con el objeto OLE(una foto en este caso) y mostrarlo en un control visualizador de imágenes como lo son los que te ha nombrado él. Esto es exactamente lo que yo necesito y si te pasan el código o consigues hacerlo te agradecería que lo pusieras en un post, así todos lo ven.
Si alguien sabe como hacerlo, por favor AYUDAAAA!!!!

-=Aldo=-
02 de Febrero del 2004
Yo tengo esta rutina pero no me funciona, a ver si tu o alguien puede ver en que estoy equivocado. No recuerdo donde la consegui, pero no la hice yo, aclaro...

Private Sub mostrarfoto()
Dim sArchivoTemporal As String
Dim NumArchivo As Integer
Dim LongArchivo As Long
Dim BytesArchivo() As Byte
If Not IsNull(rst.Fields("foto")) Then
sArchivoTemporal = Environ("Temp") & "" & "foto" & ".bmp"
If Len(Dir$(sArchivoTemporal)) > 0 Then
Kill sArchivoTemporal
End If
NumArchivo = FreeFile
Open sArchivoTemporal For Binary As #NumArchivo
LongArchivo = LenB(rst.Fields("foto"))
If LongArchivo > 0 Then
BytesArchivo = rst.Fields("foto").GetChunk(LongArchivo)
Else
BytesArchivo = rst.Fields("foto").GetChunk(rst.Fields("foto").ActualSize)
End If

Put #NumArchivo, , BytesArchivo()
Close #NumArchivo
imgFoto.Picture = LoadPicture(sArchivoTemporal)
Kill sArchivoTemporal
End If
End Sub