Consulta sobre el uso de Stored Procedure en InterBase

[Darkdrak]

Caso 1:

Código Delphi [-]
with IBStoredProcedure do


 begin

 close;

 Params.Clear;

 Prepare;

 ParamByName('ID').Value := StrToInt (Edit1.Text);


 ExecProc;

 First;


 end;

Aquí el error es que no se puede realizar la operación sobre una tabla cerrada.

Caso 2:

Código Delphi [-]
with IBStoredProcedure do


 begin

 close;

 Params.Clear;

 Prepare;

 ParamByName('ID').Value := StrToInt (Edit1.Text);


 ExecProc;

 open;

 end;

Aquí el error es "EIBClientError with message 'use ExecProc for Procedure; use TQuery for Select procedures' "'

Bueno aclaro que probe todo sin usar el with; y en vez de usar close y open; el Active true/false.

En fin, recurrí a varias opciones, estoy seguro que me equivoco en el uso de la IBStoredProcedure.

A ver si se entendió. Sino me puedo explayar más. Gracias otra vez.

[Casimiro Noteví]

Sí, ¿pero el procedimiento almacenado qué hace?

[Darkdrak]

Acá esta el contenido del Procedure

Código SQL [-]
BEGIN
  /* Procedure body */  
  for
  select Q.*, CxL.NCultivo, CxL.ColorC
  
  from QGRILLALOTES (:IdCampoIn) Q
  
  left join  CampXLotes CxL on (CxL.IdLote = Q.IdLote )
  
  into :Idlote, :Nombre, :NCultivo, :ColorC
  
  do begin suspend; end 
   
  SUSPEND;
END

No pensé que tendría problemas aquí, ya que cuando usaba ADO en lugar de IB esto funcionaba bien. QGrillaLotes es otro procedure

[[Lepe]]

cuando uses "suspend" en el procedimiento almacenado, tienes que usar un IBQuery, porque se trata de procedimiento de selección.

Cuando no uses "suspend", o únicamente realices tareas de acción "delete from tabla", "insert" "update", entonces usas el IBStoreProc.


Incluso, si adoras los IbQuerys, también puedes usar un IBQuery con "execute procedure Miproc(:parametro1)" en el SQL.

Saludos

[Darkdrak]

A ver si lo entendí bien. Si modifico el Stored Procedure, sacando el suspend en el caso de una consulta, debería funcionar?

Tengo que modificar algo en el código de delphi? Por ahora no lo pude hacer funcionar.

Dejo de usar los ib stored procedure y usar directamente ibquery?

[defcon1_es]

Empezado por Darkdrak

Dejo de usar los ib stored procedure y usar directamente ibquery?

Creo recordar que el componente IBStoredProc no permite "navegar", se ejecuta y devuelve 1 sólo resultado en los parámetros del tipo ptOutput y ptInputOutput (salida)
Por eso, como bien te ha dicho Lepe, tienes que usar un IBQuery, porque se trata de procedimiento de selección que devuelve varias filas.

Código SQL [-]
Select Idlote, Nombre, NCultivo, ColorC
from MiProcedimientoAlmacenado (:ID)

Edito: He vuelto a leer los post de este hilo y el mensaje es MUY claro:
"EIBClientError with message 'use ExecProc for Procedure; use TQuery for Select procedures' "'

[Darkdrak]

Muchas gracias por las explicaciones. Osea que los IB stored procedures los podemos usar sobre todo para los procesos para agregar, modificar y eliminar registros de la tabla, y para las consultas devolviendo múltiples valores empleando los IB Query. Algo que descubrí; el parámetro se pasa por ParamByName, y FieldByName para acceder a los campos que devuelven los querys.

Sin más gracias a todos, una vez más.