Consulta sobre el uso de Stored Procedure en InterBase

[Casimiro Noteví]

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 Noteví]

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 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