Re: Fw: [firebase-br] Off Topic - Stored Procedure - correção

marcos_mentz em sinos.net marcos_mentz em sinos.net
Qui Nov 17 20:36:56 -03 2005


Você pode usar este select até em IBQuery (ou outro componente).

select gen_id(codigo, 0)  as Valor from RDB$database, somente não esqueça se 
quiser o valor incrementado use 1 no lugar de 0.

Marcos

----- Original Message ----- 
From: "Salatiel Venâncio" <salatielvenancio em yahoo.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Thursday, November 17, 2005 6:32 AM
Subject: Re: Fw: [firebase-br] Off Topic - Stored Procedure - correção


> Será que não eh uma propriedade do componente TIBStoreProc?
>
>
>
> --- marcos_mentz em sinos.net escreveu:
>
>>
>>  use dessa  forma (correção):
>>
>> CREATE PROCEDURE GERAR_CODIGO
>> RETURNS (VALOR INTEGER)
>> AS
>> begin
>>  /* Procedure Text */
>>
>>  select gen_id(codigo, 0)  into :VALOR from RDB$database
>>  end
>>
>>  OBS:
>>  select gen_id(codigo, 0) as Codigo from RDB$database
>>  desta forma retorna o código corrente
>>
>>  select gen_id(codigo, 1) as Codigo from RDB$database
>>  desta forma retorna o próximo código
>>
>>  Marcos
>> M & L Informática Ltda
>>
>> > ----- Original Message ----- 
>> > From: "Salatiel Venâncio" <salatielvenancio em yahoo.com.br>
>> > To: "FireBase" <lista em firebase.com.br>
>> > Sent: Thursday, November 17, 2005 5:10 AM
>> > Subject: Re: [firebase-br] Off Topic - Stored Procedure
>> >
>> >
>> >>A procedure eh esta. Copiei toda a procedure. Eh uma procedure
>> simples.
>> >> Pega o Codigo de um Generator. No IB Expert funciona
>> perfeitamente.
>> >>
>> >> SET TERM ^ ;
>> >>
>> >> CREATE PROCEDURE GERAR_CODIGO
>> >> RETURNS (
>> >>    VALOR VARCHAR(10))
>> >> AS
>> >> begin
>> >>  /* Procedure Text */
>> >>  VALOR = gen_id(CODIGO, 0);
>> >>  suspend;
>> >> end
>> >> ^
>> >>
>> >> SET TERM ; ^
>> >>
>> >> GRANT EXECUTE ON PROCEDURE GERAR_CODIGO TO SYSDBA;
>> >>
>> >> --- Márcio Konrath <marcio em altero.com.br> escreveu:
>> >>
>> >>> Venâncio manda a procedure junto no email ;;;talvez o problemas
>> seja
>> >>> lá;;;;
>> >>>
>> >>> Márcio Konrath
>> >>> CPD - Altero Design
>> >>>
>> >>> ----- Original Message ----- 
>> >>> From: "Salatiel Venâncio" <salatielvenancio em yahoo.com.br>
>> >>> To: "Lista FireBird" <lista em firebase.com.br>
>> >>> Sent: Thursday, November 17, 2005 9:06 AM
>> >>> Subject: [firebase-br] Off Topic - Stored Procedure
>> >>>
>> >>>
>> >>> > Tudo bem Pessoal. Estou com um problema.
>> >>> >
>> >>> > Criei atraves do IB Expert uma procedure simples para retornar
>> um
>> >>> valor
>> >>> > de uma tabela. Ao chamar esta procedure através do programa,
>> ela
>> >>> não
>> >>> > retorna nada. Mas quando executo no IB Expert, funciona
>> >>> normalmente.
>> >>> >
>> >>> > Uso o Delphi 5, IBO 4.3.A e para executar a procedure o
>> componente
>> >>> > TIBOStoreProc.
>> >>> >
>> >>> > Fiz um teste, para ver como se comportava, da seguinte maneira:
>> >>> >
>> >>> >  with D_Dados, sp_Temp do
>> >>> >  begin
>> >>> >    StoredProcName := 'GERAR_CODIGO';
>> >>> >    Prepare;
>> >>> >    ExecProc;
>> >>> >    ShowMessage(Params[0].Value);  // --> Param de Retorno
>> >>> >  end;
>> >>> >
>> >>> > O Resultado Retornou nulo. Será que está faltando alguma
>> >>> configuracao
>> >>> > no componente?
>> >>> >
>> >>> > Aguardo Contato.
>> >>> >
>> >>> > Att.
>> >>> >
>> >>> > Salatiel Venâncio
>> >>> > "JESUS, Minha Certeza!"
>> >>> > Campina Grande - PB
>> >>> >
>> >>> >
>> >>> >
>> >>> >
>> >>> >
>> >>> >
>> >>> >
>> >>> >
>> >>> > _______________________________________________________
>> >>> > Yahoo! Acesso Grátis: Internet rápida e grátis.
>> >>> > Instale o discador agora!
>> >>> > http://br.acesso.yahoo.com/
>> >>> >
>> >>> >
>> >>> > ______________________________________________
>> >>> > FireBase-BR (www.firebase.com.br) - Hospedado em
>> www.bavs.com.br
>> >>> > Para editar sua configuração na lista, use o endereço
>> >>> >
>> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>> >>> > Para consultar mensagens antigas:
>> http://firebase.com.br/pesquisa
>> >>> >
>> >>> > !DSPAM:437c723b309535664512685!
>> >>> >
>> >>> >
>> >>>
>> >>>
>> >>> ______________________________________________
>> >>> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>> >>> Para editar sua configuração na lista, use o endereço
>> >>>
>> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>> >>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>> >>>
>> >>
>> >>
>> >> Att.
>> >>
>> >> Salatiel Venâncio
>> >> "JESUS, Minha Certeza!"
>> >> Campina Grande - PB
>> >>
>> >>
>> >>
>> >>
>> >>
>> >>
>> >>
>> >>
>> >> _______________________________________________________
>> >> Yahoo! Acesso Grátis: Internet rápida e grátis.
>> >> Instale o discador agora!
>> >> http://br.acesso.yahoo.com/
>> >>
>> >>
>> >> ______________________________________________
>> >> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>> >> Para editar sua configuração na lista, use o endereço
>> >> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>> >> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>> >
>>
>>
>> ______________________________________________
>> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>> Para editar sua configuração na lista, use o endereço
>> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>
>
>
> Att.
>
> Salatiel Venâncio
> "JESUS, Minha Certeza!"
> Campina Grande - PB
>
>
>
>
>
>
>
>
> _______________________________________________________
> Yahoo! Acesso Grátis: Internet rápida e grátis.
> Instale o discador agora!
> http://br.acesso.yahoo.com/
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa 





Mais detalhes sobre a lista de discussão lista