Stored Procedure - Resultado no Delphi

26/01/2006

Oi tenho a seguinte Stored Procedure:

SET TERM ^^ ;
CREATE PROCEDURE SP_LOCADORAPRODUTODATADEV (
  GRADE_COD Integer)
 returns (
  DATADEV Date)
AS
begin
  begin
  select FIRST 1 LPDATA from LOCADORAPRODUTO
where LPGRADE_CODIGO = :grade_cod
order by LPDATA desc
into :DATADEV;
end
end
^^
SET TERM ; ^^


A procedure está ok, o que eu não to conseguindo é usar ela no delphi, quero apenas chama-la e pegar o valor de DATADEV

TO usando o MDO (parecido com IBX) para acesso.


Sistemald

Respostas

26/01/2006

Tnaires

Olá
Acrescente a instrução [b:e99f567f38]suspend[/b:e99f567f38] ao final da procedure.
SET TERM ^^ ;
CREATE PROCEDURE SP_LOCADORAPRODUTODATADEV (
  GRADE_COD Integer)
 returns (
  DATADEV Date)
AS
begin
  select FIRST 1 LPDATA from LOCADORAPRODUTO
  where LPGRADE_CODIGO = :grade_cod
  order by LPDATA desc
  into :DATADEV;
  suspend;  -- <--- adicionada aqui
end
^^
SET TERM ; ^^

Para usar a procedure, faça:
SELECT DATADEV
FROM SP_LOCADORAPRODUTODATADEV(:GRADE_COD)

Abraços


Responder Citar

26/01/2006

Sistemald

Mas desta forma terei que colocar a sql em uma query?

como funciona o comp ´MDOStoredProc(ibstoredProc)´?


Responder Citar

26/01/2006

Tnaires

Procedures q retornam parâmetros são chamadas de SELECT PROCEDURES. Neste caso, é melhor vc utilizar uma query, pois os parâmetros retornados por ela são tratados como campos de uma tabela.
Componentes como o MDOStoredProc devem ser utilizados para procedures que não retornam parâmetros (aquelas que vc executa com o comando EXECUTE PROCEDURE).
Abraços


Responder Citar

26/01/2006

Sistemald

Valeu obrigado


Responder Citar