Array
(
)

Stored Procedure - Resultado no Delphi

Sistemald
   - 26 jan 2006

Oi tenho a seguinte Stored Procedure:

#Código

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.


Tnaires
   - 26 jan 2006

Olá
Acrescente a instrução suspend ao final da procedure.
#Código

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:
#Código
SELECT DATADEV
FROM SP_LOCADORAPRODUTODATADEV(:GRADE_COD)

Abraços


Sistemald
   - 26 jan 2006

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

como funciona o comp ´MDOStoredProc(ibstoredProc)´?


Tnaires
   - 26 jan 2006

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


Sistemald
   - 26 jan 2006

Valeu obrigado