Re:

>
> Henry, el updateblob no funciona con el PB y el PG, lamentablemente para
> nuestra suerte.
> Lo que yo hice (como prueba), es crear una funcion en la base de datos,
> donde le mando como parametro el id y la ruta (del servidor), donde voy
> jalar el archivo (sea cual sea el formato).
> Mira, esto es lo que pude mas o menos hacer.
> 1.- Crear una funcion en la base de datos que reciba como parametros el
> ID y la ruta (en el servidor) del archivo.
> 2.- Con el power Builder (con la funcion FileCopy) copio el archivo desde
> la PC donde estoy hasta el servidor, y esa ruta donde he copiado al servidor
> se la paso a la funcion en la base de datos.
> 3.- Como le paso mis datos desde el PB a la funcion de la base de datos,
> simple:
> long ll_id, ll_copy, ll_return
> string ls_ruta
> ls_ruta = 'C:\tmp\foto.jpg'
> ll_copy = FileCopy(ls_ruta,'G:\tmp\imagenes\',true)
> if ll_copy > 0 then
> ls_ruta = 'G:\\tmp\\imagenes\\foto.jpg'
> select *
> into :ll_return
> from dbtisalfa.fu_cargar_foto(:ll_id, :ls_ruta)
> using sqlca;
> if sqlca.sqlcode <> 0 then
> messagebox('Error','No se pudo actualizar foto :
> '+sqlca.sqlerrtext,StopSign!)
> rollback using sqlca;
> return
> else
> messagebox('Exito','Grabación ok!',Exclamation!)
> end if
> else
> messagebox('Error','No se pudo copiar archivo',StopSign!)
> return
> end if
> Para recuperar la imagen seria lo mismo pero al reves, desde el power
> mandarle la ruta a otra funcion de la base de datos y que me recupere la
> imagen en una ruta de la base de datos y con el PB copio la imagen
> recuperada a la PC donde estoy.
> Espero no haya sido complicado, quizas algunas cosas te manden errores,
> seria cuestion de que lo modifiques.
> -- funcion de la base de datos
> CREATE OR REPLACE FUNCTION dbtisalfa.fu_cargar_foto(int8, "varchar")
> RETURNS int4 AS
> $BODY$
> DECLARE
> vn_codigo ALIAS FOR $1;
> vd_ruta ALIAS FOR $2;
> vn_return INT4;
> BEGIN
> vn_return := 1;
> update dbtisalfa.tmp set foto = lo_import(vd_ruta) where codigo =
> vn_codigo;
> RETURN vn_return;
> END;
> $BODY$
> LANGUAGE 'plpgsql' VOLATILE;
> ALTER FUNCTION dbtisalfa.fu_cargar_foto(int8, "varchar") OWNER TO system;
>
> On 6/10/05, Henry Edu(at)rdo <hennryonline(at)hotmail(dot)com> wrote:
> >
> > MUCHAS GRACIAS POR EL DATO... Y SI ME FUNCIONO...
> >
> > OTRA CONSULTA SI NO FUERA MUCHA MOLESTIA... SABES COMO TRABAJAR CON
> > IMAGENES CON POWER BUILDER Y POSTGRESQL... ESTOY QUE BUSCO Y HASTA AHORA LO
> > UNICO QUE E ENCONTRADO ES QUE EL TIPO DE DATO QUE ALMACENA IMAGENES EN
> > POSTGRES ES EL "OID" Y HASTA AHORA E LOGRADO ESTO Y ME FUNCIONA
> >
> > CREATE TABLE prodimages (id serial, prodid int8, image OID);
> >
> > INSERT INTO prodimages(id, prodid, image) VALUES (1, '345632',
> > lo_import'/home/mydir/imagen.jpg'));
> >
> > AHORA LO QUE QUIERO ES QUE DESDE EL POWER BUILDER ME VISUALICE ESTO EN
> > UN OBJETO OLE_1
> >
> > COMO ESTO PERO NO ME FUNCIONA:
> >
> > BLOB lo_imagen
> >
> > 1----------//PARA GRABAR IMAGEN
> >
> > lo_imagen= ole_1.ObjectData
> >
> > UPDATEBLOB prodimages
> > SET image = :lo_imagen
> > WHERE id = 1
> > USING SQLCA;
> >
> > 2--------//PARA RECUPERAR IMAGEN
> >
> > SELECTBLOB image
> > INTO :lo_imagen
> >
> > FROM prodimages
> > WHERE id = 1
> >
> > USING SQLCA;
> >
> > IF SQLCA.SQLCODE = -1 THEN
> > Messagebox('Error','Error al SELECCIONAR imagen : '+SQLCA.SQLERRTEXT )
> > RETURN
> > ELSE
> > Messagebox('Exito','grabacion exitosa')
> > END IF
> >
> > // Asignamos la imagen
> > IF len(lo_imagen) > 0 THEN
> > Ole_1.ObjectData = lo_imagen
> > END IF
> >
> > DONDE ole_1 es una aplicacion de imagenes
> >
> > DE ANTE MANO GRACIAS.....
> >
> >
> >
> > *Henry Tacuens *
> >
> >
> >
> > >From: Julio Rivero < jcrmlima(at)gmail(dot)com>
> > >Reply-To: Julio Rivero <jcrmlima(at)gmail(dot)com>
> > >To: "Henry Edu(at)rdo " <hennryonline(at)hotmail(dot)com>
> > >CC: pgsql-es-ayuda(at)postgresql(dot)org, majordomo(at)postgresql(dot)org
> > >Subject: Re: [pgsql-es-ayuda] Conexion Remota: power builder vs
> > postgres
> > >Date: Mon, 6 Jun 2005 13:05:55 -0500
> > >
> > >Henry:
> > > Este es mi string de conexión:
> > > // Profile dbalfa
> > >SQLCA.DBMS = "ODBC"
> > >SQLCA.AutoCommit = False
> > >SQLCA.DBParm =
> >
> > >"ConnectString='DSN=dbalfa;UID=jrivero;PWD=jrivero',PBCatalogOwner='dbtisalfa%',TableCriteria='%,dbtisalfa%'"
> > > Cambia el DSN por el tuyo y el esquema de trabajo por el particular.
> > > Espero te sirva
> > > On 6/6/05, Henry Edu(at)rdo <hennryonline(at)hotmail(dot)com> wrote:
> > > >
> > > >
> > > > buenas, primero decirles que es la primera vez que trabajo con
> > postgres y
> > > > quisiera que me deen una ayuda sobre lo siguiente:
> > > >
> > > > quiero conectarme mediante una conexion remota ODBC a un servidor de
> > base
> > > > de datos en postgres... la aplicacion que utilizo es power
> > builder... pero
> > > > al momento de conectarme desde power builder aparece el siguiente
> > mensaje:
> > > >
> > > > "Catalog tables could not be created and are not available for use"
> > > >
> > > > dejandome luego solamente ver las tablas... sin poder crear mis
> > datawindow
> > > > o ingresar registros....
> > > >
> > > > les agradeceria enormemente su ayuda...
> > > >
> > > > sin mas decirles, me despido y gracias por la atencion prestada
> > > >
> > > > ATTE.
> > > >
> > > > HENRY CUENTAS MORANT
> > > >
> > > > *Henry Tacuens*
> > > >
> > >
> > >
> > >
> > >--
> > >Saludos
> > >
> > >Att,
> > >Julio Rivero
> > >Movil: 98817321
> >
>
>
>
> --
> Saludos
>
> Att,
> Julio Rivero
> Movil: 98817321
>

--
Saludos

Att,
Julio Rivero
Movil: 98817321