Olá pessoal, gostaria de saber como faço para executar uma store
procedure dentro do delphi, tenho ela criada e funcionando no
firebird, mas não to conseguindo faze-la funcionar através do delphi. 
desde já aguardo a vossa preciosa ajuda.
segue abaixo a procedure:

create procedure buscaveiculosempresa (empresa varchar (50))
returns(
NEMPRESA varchar(50),
ENDERECO varchar(100),
NUMERO integer,
CNPJ char(14),
INSCR_EST char(15),
RESPONSAVEL varchar(50),
CEP char(8),
FONE varchar(15),
FAX varchar(15),
EMAIL varchar(80),
H_PAGE varchar(80),
LOGOTIPO blob,
UF char(2),
CIDADE varchar(50),
BAIRRO varchar(50),
PLACA char(7) ,
CHASSI varchar(20),
COR varchar(30),
ANO char(9),
MARCA_MODELO varchar(30),
RENAVAN char(9),
TIPO varchar(50))

as
begin
for
select E.EMPRESA, E.ENDERECO, E.NUMERO, E.CNPJ, E.INSCR_EST,
E.RESPONSAVEL, E.CEP, E.FONE, E.FAX, E.EMAIL, E.H_PAGE, E.LOGOTIPO,
C.UF, C.CIDADE, B.BAIRRO, V.PLACA, V.CHASSI, V.COR, V.ANO, 
V.MARCA_MODELO, V.RENAVAN, T.TIPO
from EMPRESA E, CIDADES C, BAIRROS B, VEICULOS V, TIPO_VEICULO T
where E.CODCIDADE=C.CODCIDADE and  E.CODBAIRRO=B.CODBAIRRO and
V.CODTIPO=T.CODTIPO and V.CODEMPRESA=E.CODEMPRESA and e.EMPRESA=:EMPRESA

into :nempresa, :ENDERECO, :NUMERO, :CNPJ, :INSCR_EST, :RESPONSAVEL,
:CEP, :FONE, :FAX, :EMAIL, :h_page, :LOGOTIPO, :UF, :cidade, :BAIRRO,
:PLACA, :CHASSI, :COR, :ANO, :MARCA_MODELO, :RENAVAN, :TIPO

do
suspend;

end;

sem mais 

Rodrigo Galvan




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a