Como utilizar procedures diseñadas en ibexplorer en delphi

[ecfisa]

Hola coej.

Su uso es muy sencillo.

Ponés un componente TIBStoredProc. En la propiedad Database le asignas el TIBDatabase, y en la propiedad StoredProcName elegís el nombre del procedimiento, ya sea mediante el Object Inspector o por código.

Supongamos que tenemos un procedimiento lamado 'SP_NRORECIBO' que nos devuelve el próximo número de recibo en el parámetro 'NRORECIBO':

Asignar por código:

Código Delphi [-]
 IBStoredProc1.Database:=  IBDatabase1;
 IBStoredProc1.StoredProcName:= 'SP_NRORECIBO';

Para ejecutarlo y mostrar el resultado:

Código Delphi [-]
   IBStoredProc1.ExecProc;
   ShowMessage(IBStoredProc1.ParamByName('NRORECIBO').AsString);

Si no recordás el nombre del parámetro, podes hacer clic sobre los tres puntos (...) de la propiedad Params del TIBStoredProc.
Y si hay más de un parámetro logicamente haces referencia a él mediante el nombre en la propiedad ParamByName.

Un saludo.