Autor Tema: Imagenes En Access & Vb (Leído 982 veces)

acanalis · « **en:** Miércoles 3 de Diciembre de 2003, 18:00 »

Tengo el siguiente código para sacar imágenes de una tabla de Access, el caso es que con la extensión bmp no las puedo cargar y no tengo ni idea que extensión puedo poner.

Set Valores = ADVANCED.Tabla("select foto,productor from productor")
While Not Valores.EOF
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write Valores.Fields("Foto").Value
' Valores.Save "d:\fotos\1.bmp", adSaveCreateOverWrite
mstream.SaveToFile "d:\fotos\" & Valores!Productor & ".bmp", adSaveCreateOverWrite
Valores.MoveNext
Wend

Brroz

Hola acanalis.

Cuando dices que como bmp no las puedes cargar, ¿a qué te refieres?

Ten en cuenta lo siguiente: Me imagino que lo que se está grabando en el archivo, no tiene formato de archivo bmp, es tan solo el mapa de bits de la imagen. A esto le haría falta el encabezado correspondiente indicando longitud, profundidad de color y esas cosas, para poder ser abierto por ejemplo con un visor o editor de imagenes.

De todas formas, nunca he usado el objeto Stream y esto que te digo son sólo suposiciones mias.

Suerte.

SoloCodigo

Autor Tema: Imagenes En Access & Vb (Leído 982 veces)

acanalis

Imagenes En Access & Vb

Brroz

Re: Imagenes En Access & Vb