Ayuda! ¿Cómo llamar a Procedimiento Almacenado?

[Ignacio Gentile]

Buenas!

Estoy tratando de llamar desde delphi 7 a un procedimiento almacenado de mi base de datos Postgre 8.4..Para la conexión uso los componentes Zeos.

Tiro al formulario un Zconection el cual tiene las propiedades para conectarse a la base de datos, lo cual anda bien..Luego para obtener el procedimiento almacenado tiro un ZStoredProc al que asocio con la conexión anterior y selecciono el procedimiento almacenado que quiero ejecutar..

Mi problema es que nose como pasarle el parámetro integer que necesito para ejecutarlo..

el codigo del procedimiento es el siguiente:

CREATE OR REPLACE FUNCTION "public"."obtener_notas" (
integer
)
RETURNS SETOF "public"."clientes-notas" AS
$body$
select * from "clientes-notas" where id_cliente = $1
$body$
LANGUAGE 'sql'
VOLATILE
CALLED ON NULL INPUT
SECURITY INVOKER
COST 100 ROWS 1000;


Por favor necesito ayuda para poder continuar con algo básico como llamar a un procedimiento almacenado. Disculpen soy novato jeje

[Casimiro Notevi]

¿Pero desde sql o desde delphi?

[Ignacio Gentile]

desde delphi! Al tratar de ejecutar el prodecimiento como también al querer activarlo obtengo el error Unsopported Operation..

[Casimiro Notevi]

¿Puedes poner el código que usas?
También puedes hacer una búsqueda en clubdelphi, se ha tratado en otras ocasiones.
Además tienes abajo de esta página varios enlaces que te pueden servir.

[jejo1984]

Si usas Tquery te pongo un ejemplo:

Código Delphi [-]
procedure Tfrm_mod_tip_inci.cmd_grabarClick(Sender: TObject);
var idtipoinci:string;
begin
  if(Trim(txt_tip_inci.text)='')then
  begin
  showmessage('Ingresa nombre de la Incidencia');
  txt_tip_inci.SetFocus;
  exit;
  end
  else if(Trim(txt_desc_tip_inci.text)='')then
  begin
  showmessage('Ingresa descripción de la incidencia');
  txt_desc_tip_inci.SetFocus;
  exit;
  end;
  //obtenemos el id
  idtipoinci:=lblidtipo.Caption;
  //fin
  SQLTransaction1.Rollback;
  SQLTransaction1.StartTransaction;
  Sqlmodifica_inci.Close;
  Sqlmodifica_inci.SQL.Clear;
  Sqlmodifica_inci.SQL.Text:='select * from update_tip_incidencia('''+trim(txt_tip_inci.Text)+''','''+trim(txt_desc_tip_inci.Text)+''','+idtipoi  nci+')';
  try
  Sqlmodifica_inci.ExecSQL;
  SQLTransaction1.Commit;
  showmessage('Se grabo correctamente');
  ModalResult := mrCancel;
  PQConnection1.Close;
  except
   on E: Exception do
   begin
    Showmessage( PChar( E.Message )+ 'Error de SQL');
    SQLTransaction1.EndTransaction;
  end;
  end;
end;

[jejo1984]

Aqui te pongo la funcion o procedimiento:

Código SQL [-]
CREATE OR REPLACE FUNCTION update_tip_incidencia(_tipinci character, _desctipinci character, _codinci integer)
  RETURNS boolean AS
$BODY$ 
begin
update tipo_incidencia set nom_tipo=_tipinci,descr_tipo=_desctipinci where idtipoinci=_codinci;
RETURN True;
exception
when integrity_constraint_violation then
RAISE NOTICE 'Rollback to savepoint';
RETURN False;
end;$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;