Re: Almacenamiento de imagenes en PostgreSQL 8.2.4 en Visual Basic 6

--- Gabriel Hermes Colina Zambra
<hermeszambra(at)yahoo(dot)com> escribió:

> Pongo el ejemplo del bmp por que muchos usamos
> crystal
> y es lo mas natural para este tipo de reportes
> puesto que tiene mejor resolucion, podria ser jpg
> tambien.
>
> Cuando lemos una tabla de postgres con un campo
> bytae
> desde visual, este lo toma como un objeto ole, no
> como
> un picture bmp, en access o mssql cuando arrastramos
> una imagen a un campo ole, la lectura del campo en
> caractres dice imagen de mapa de bit, imagen jpg
> etc.
> A treves de un vinculo a una tabla de postgresql nos
> permitiria arrastrar la imagen a un bytae, pero
> desde
> visual no lo podriamos leer directamente en un
> picture
> sin tener que pasar por llamar al vinculo de access.
> Investigando un poquito me fije en el control de
> odbc
> de postgresql y en la pagina 2 del boton global de
> la
> opcion datasource maque la opcion bytae as lo y bien
> desde un adodatacontrol que sin esa opcion me decia
> tipo no valido cuando se enlazaba al picture,
> camino.
> Les dejo estas pistas y estas lineas de codigo.
>
>
> Para almacenar imagenes hacen falta 5 controles en
> un
> formulario, en visual basic 6.
>
> Un CommonDialog, un picture, un adodatacontrol y dos
> command button
>
Aca salio el apurado de Colina a meter la pata, con
Ado datacontrol problemente un picture muestre la
imagen, pero no le haga caso a la actualizacion, mal
que les pese a muchos progrmadores visual un DAO
funciona mejor si lo que queremos es codificar poco.

El que quiera un formulario con el tema resuelto me
escribe me lo solicita a la lista y se lo mando en un
correo adjunto.

> Este seria el codigo
>
> Private Sub Command1_Click(Index As Integer)
> Select Case Index
> Case 0
> Data1.Recordset.AddNew
> Case 1 'Carga Bmp
> CommonDialog1.ShowOpen
> If CommonDialog1.FileName <> "" Then
> Picture1.Picture =
> LoadPicture(CommonDialog1.FileName)
>
> End If
> End Select
> End Sub
>
> Funciona muy bien
> Atte.
> Gabriel Hermes Colina Zambra.
>
> __________________________________________________
> Correo Yahoo!
> Espacio para todos tus mensajes, antivirus y
> antispam ¡gratis!
> Regístrate ya - http://correo.espanol.yahoo.com/
> --
> ---------------------------(fin del
> mensaje)---------------------------
> TIP 7: no olvides aumentar la configuración del
> "free space map"
>
Atte.
Gabriel Hermes Colina Zambra

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.espanol.yahoo.com/