Ayuda con tipo de dato

From: "Debora Vert" <debora_vert(at)hotmail(dot)com>
To: pgsql-es-ayuda(at)postgresql(dot)org
Subject: Ayuda con tipo de dato
Date: 2006-11-27 14:33:14
Message-ID: BAY20-F251DCE7A48A6F2A82FA99D9AE60@phx.gbl
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-es-ayuda

Hola lista, este codigo lo saque de la web www.powerbuilder.org
Resulta que al probarlo en mi base de datos (estoy usando PowerBuilder 9.0
con PostgreSQL 8.1)
no tengo el tipo de dato imagen ni el tipo de dato blob.
Por que tipo de dato lo puedo reemplazar?, muchas gracias.
Aca va el código:

fernando_loza escribió "Vamos a desarrollar un pequeño aplicativo, en donde
almacenaremos en una DB, una imagen, para despues poder visualizarla o
cambiarla por otra.

1. Creamos una tabla llamada 'alumnos_fotos' con 2 campos: 'cod_alumno' de
tipo char(2) y foto_alumno de tipo image(16), al campo cod_alumno lo ponemos
como Clave Principal.
a esta tabla le agregamos 3 registros con los codigos: '01', '02', y '03'

2. Creamos una Window con los siguientes objetos:
un Picture Control, llamado 'p_foto'
dos Command Button, llamados 'cb_cargar_foto' y 'cb_ver_foto' y
un Single Line Edit, llamado 'sle_cod_alumno'

3. En el evento clicked de 'cb_cargar_foto' poner el siguiente codigo:

STRING ls_pathname, ls_filename, ls_filtro, ls_cod_alumno
LONG ll_File
BLOB lbl_data, lbl_temp

ls_filtro = "JPEG Files (*.jpg),*.jpg," + "GIFF Files (*.gif),*.gif,"
IF GetFileOpenName ( "Archivo de Imagen: ", ls_pathname, ls_filename ,
"jpg", ls_filtro) = 0 THEN RETURN

p_foto.picturename = ls_pathname
ls_cod_alumno = trim(sle_cod_alumno.text)

ll_File = FileOpen(ls_pathname, StreamMode!)
DO WHILE FileRead(ll_file,lbl_temp) > 0
lbl_data += lbl_temp
LOOP
FileClose(ll_file)

IF ll_File -1 THEN
FileRead(ll_file, lbl_data)
FileClose(ll_file)
SQLCA.AutoCommit = True
UPDATEBLOB alumnos_fotos SET foto_alumno = :lbl_data WHERE cod_alumno =
:ls_cod_alumno;
SQLCA.AutoCommit = False
ELSE
messagebox('Error','Falló el FileOpen')
END IF

IF SQLCA.SQLNRows > 0 THEN
COMMIT;
messagebox('OK: ' + ls_cod_alumno,'Se guardó la foto del alumno')
ELSE
messagebox('Error','Falló el UPDATEBLOB')
END IF
FileClose(ll_file)

4. En el evento clicked de cb_ver_foto, copiar el codigo:

Blob lb_imagen
STRING ls_cod_alumno
ls_cod_alumno = trim(sle_cod_alumno.text)

SELECTBLOB foto_alumno INTO :lb_imagen FROM alumnos_fotos WHERE cod_alumno =
:ls_cod_alumno ;

p_foto.SetPicture(lb_imagen)

5. Ejecutar y probar:
escribimos el codigo '01' en sle_cod_alumno, le damos click en
cb_cargar_foto y seleccionamos el archivo que se va a guardar en la DB.
Repetimos este paso para los demas codigos '02' y '03'. Luego, probamos el
boton cb_ver_foto, para cada codigo.

_________________________________________________________________
MSN Amor: busca tu ½ naranja http://latam.msn.com/amor/

Browse pgsql-es-ayuda by date

  From Date Subject
Next Message Alvaro Herrera 2006-11-27 14:33:20 Re: Otra duda Query Plan
Previous Message Alvaro Herrera 2006-11-27 14:30:32 Re: Duda Query Plan