Skip site navigation (1) Skip section navigation (2)

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-29 14:00:48
Message-ID: BAY20-F1476545538F95E67485BCC9AE40@phx.gbl (view raw or flat)
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/
>
>
>---------------------------(fin del mensaje)---------------------------
>TIP 10: visita nuestro canal de IRC #postgresql-es en irc.freenode.net

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


Responses

pgsql-es-ayuda by date

Next:From: Alvaro HerreraDate: 2006-11-29 14:02:39
Subject: Re: Ayuda con tipo de dato
Previous:From: Alvaro HerreraDate: 2006-11-29 13:49:44
Subject: Re: COULD NOT OPEN SEGMENT 1

Privacy Policy | About PostgreSQL
Copyright © 1996-2014 The PostgreSQL Global Development Group