Hola
supongamos tener el procedimiento
create procedure genera_codi_id
returns
( codigo_id integer)
as
begin
codigo_id=gen_id(generador,1);
suspend;
end
desde delphi con un componente ibquery u otro
ibquery.sql.text:=' select codigo_id from genera_codi_id'
ibquery.open;
variable_x:=ibquery.fieldbyname('codigo_id').asinteger;
o sea el procedimiento se puede consultar igual que una tabla cualquiera
pero debe tener returns y suspend
Hay mas formas de hacerlo con ibquery o IBStoredProc
ibquery.sql.text:='execute procedure genera_codi_id';
ibquery.execproc;
variable_x:=ibquery.parambyname('codigo_id').asinteger;
Lo he hecho sin probarlo pero espero no haber cometido errores de sintaxis
Saludos
|