Almacenamiento de imagenes en PostgreSQL 8.2.4 en Visual Basic 6

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

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/