procedure

Delphi

30/03/2004

+ uma vez preciso de sua ajuda após brigar em cima dessa procedure 

CREATE PROCEDURE NOVA 
(
DATA_INI DATE,
DATA_FINAL DATE,
CODIGO VARCHAR(3)
)
RETURNS
(
COD_INFRACAO VARCHAR(3),
DATA DATE,
DP VARCHAR(10)
)
AS
BEGIN
FOR Select Ocorrencia.Cod_Infracao,Ocorrencia.data,Cad_Log.DP
From Ocorrencia Ocorrencia, Cad_Log Cad_Log
Where  Ocorrencia.Codigo_Rua=Cad_Log.Codigo_Rua AND
     CAD_LOG.DP=´10ºDP´and
     Ocorrencia.Data>= :DATA_INI and
     Ocorrencia.Data<= :DATA_FINAL AND
     Ocorrencia.Cod_Infracao= :CODIGO
    INTO :COD_INFRACAO,:DATA,:DP
  DO
  SUSPEND;
END



que está rodando perfeitamente , agora tenho mais um problema :

Como colocaria isso no delphi7 ou seja quero algo assim :


edit1 edit2 edit3 botão pesquisar
--------- --------- --------


ou seja no edit1 eu entro com a data inicial
no edit2 a data final
no edit3 o dp

click no botão e ele carregará em um dbgrid , certo?

porem como insiro essa procedure no delphi seria atraves da palheta IBprocedure ou seja quero no Interbase , tem condições de me ajudar ?

Obrigado


Bolomaster

Bolomaster

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

30/03/2004

Como é uma procedure SELECT, use o IBQuery e faça SELECT * FROM PROCEDURE (lista_parâmetros)


GOSTEI 0
POSTAR