Consulta sobre el uso de Stored Procedure en InterBase

[Darkdrak]

Hola estoy muy metido cambiando el código para pasar todo de ADO a IB. Ahora tengo un problemita con el uso de los IBStoredProcedure.

A ver si alguien me puede corregir en que me equivoco.
////////////////////////////////////////////////////////////

Código Delphi [-]
with IBStoredProcedure do


 begin


 close;

 Params.Clear;

 Prepare;

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


 ExecProc;


 end;

////////////////////////////////////////////////////////////

Bueno eso anda de 10, pero en otro procedimiento si quiero hacer : IBStoredProcedure.First;

me dice que no se puede realizar la operación en una base de datos cerrada; el tema que si le doy Open o Active := true; me indica otro error
..."use execproc for procedure ..." debo tener un error de concepto en el uso de las stored procedures.

Desde ya gracias.

[Casimiro Notevi]

Mira si este tutorial de Caral te aclara tus dudas.

[Darkdrak]

Gracias por contestar tan rápido, es una guía muy buena pero emplea IBQuerys, y yo estoy empleando IBStoredProcedures. El problema es al tratar de ejecutar el comando first, como ya explique.

[Casimiro Notevi]

El caso es que no somos adivinos para saber al menos lo que has puesto en ese procedure

[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 Notevi]

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.