llanes
01 de Julio del 2004

hola como están,
mi problemática ahora es que no se como puedo mostrar un campo de una tabla en access que de tipo de datos OLE o sea de imagenes en mi aplicación conectada a Control ADO

no se si con un control OLE podré hacerlo, necesito de su ayuda.

Saludos
LLanes

lola
01 de Julio del 2004

Mira llanes me imagino que ya probaste bastantes veces tu respuesta, Mi duda es en lugar de pfc_logo mi campo es foto y el ado se vincula por OBDC, Y OTRA COSA TE FUNCIONA, gracias

gucesoft
01 de Julio del 2004

MOSTRAR UNA IMAGEN QUE GUARDAS EN UN CAMPO TIPO 'OBJETO OLE', EN UNA BASE DE DATOS ACCESS, LO
HE RESUELTO DE LA SIGUIENTE MANERA, SEGURAMENTE HABRA MUCHAS Y NO DIGO QUE LA MIA MEJOR, PERO
FUNCIONA.

NECESITARAS EL COMPONENTE, VERSION 6.0 DE VISUALBASIC:
MICROSOFT ADO DATA CONTROL 6.0 (OLEDB)

AÑADES AL FORMULARIO QUE MOSTRARA LOS DATOS UN CONTROL IMAGE, EN EL QUE VAMOS A CARGAR LA
IMAGEN A VISUALIZAR

CONFIGURAS EL CONTROL ADOC

TE COPIAS LA SIGUIENTE RUTINA:

Private Sub MostrarImagen()
Dim sArchivoTemporal As String
Dim NumArchivo As Integer
Dim LongArchivo As Long
Dim BytesArchivo() As Byte

If Not IsNull(Adodc1.Recordset.Fields("pfc_Logo")) Then
sArchivoTemporal = Environ("Temp") & "" & "pfc_Logo" & ".dat"

If Len(Dir$(sArchivoTemporal)) > 0 Then
Kill sArchivoTemporal
End If

NumArchivo = FreeFile
Open sArchivoTemporal For Binary As #NumArchivo
LongArchivo = LenB(Adodc1.Recordset.Fields("pfc_Logo"))

If LongArchivo > 0 Then
BytesArchivo = Adodc1.Recordset.Fields("pfc_Logo").getChunk(LongArchivo)
Else
BytesArchivo = Adodc1.Recordset.Fields("pfc_Logo").getChunk(Adodc1.Recordset.Fields("pfc_Logo").ActualSize)
End If

Put #NumArchivo, , BytesArchivo()

Close #NumArchivo

Image1.Picture = LoadPicture(sArchivoTemporal)

Kill sArchivoTemporal
End If

End Sub

NO TIENES MAS QUE LLAMARLA, POR EJEMPLO EN EL EVENTO CHANGE DE CUALQUIERA DE LOS TEXTBOX ENLAZADOS
AL CONTROL ADOC

framo
01 de Julio del 2004

hola LLanes no se si es lo que necesitas pero espero que te sirva, en la aplicacion que estoy haciendo tengo que ver imagenes, bueno lo que yo tengo es que enmi base de datos solo escribo la ruta de mi imagen y en el codigo hago un recordset en el campo dende esta el url de mi imagen y lo veo en un picture
asi que escibo algocomo:

picture1.picture = loadpicture (rcs!URL)

url es el nombre del campo donde esta escrita la ruta de mi imagen

espero te sirva y si no disculpa la perdida de tiempo