• Domingo 22 de Diciembre de 2024, 03:03

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

acanalis

  • Miembro activo
  • **
  • Mensajes: 41
    • Ver Perfil
Imagenes En Access & Vb
« en: Miércoles 3 de Diciembre de 2003, 18:00 »
0
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

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Imagenes En Access & Vb
« Respuesta #1 en: Jueves 4 de Diciembre de 2003, 15:00 »
0
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.