Stored Procedures

Question

or favor, algu�m sabe me dizer como fa�o para recuperar uma par�metro de sa�da retornado por um Procedimento Armazenado em um banco de dados Firebird?Aqui est� minha procedure:CREATE OR ALTER PROCEDUR...

Martins · Answer

[quote:8365785243=�jonathan bispo�]or favor, algu�m sabe me dizer como fa�o para recuperar uma par�metro de sa�da retornado por um Procedimento Armazenado em um banco de dados Firebird?

Aqui est� minha procedure:

CREATE OR ALTER PROCEDURE SP_NOME (
cod_cliente integer)
returns (
nome_cliente varchar(50))
as
begin
select nome_cliente from clientes where cod_cliente = :cod_cliente into :nome_cliente;
suspend;
end^

Como podem ver, essa procedure retorna o nome do cliente em fun��o do c�digo.

Sei que podeira fazer isso de forma mais simples pelo Delphi mesmo, mas estou somente tentando entender como recuperar o valor.

Algu�m pode me ajudar?[/quote:8365785243]

J� tentou assim?

 Editx.Text := IBStoredProc1.ParamByName(�nome_cliente�).AsString;
//ou
 Editx.Text :=  SQLStoredProc1.ParamByName(�nome_cliente�).AsString;

Rjun · Answer

No SQL Server voc� precisa indicar que seu par�metro vai retornar um valor. No Firebird isso n�o � necess�rio?...

Jonathan Bispo · Answer

Respondendo ao do RJun...Creio que o par�metro de sa�da � informado no trecho ...returns (nome_cliente varchar(50)) ...Prova disso, � que dentro do ibExpert a procedure executa normalmente.Respondendo ao Martins...Assim n�o daria certo porque o componente MDOStoredProcedure n�o reconhece o par�metro de sa�da dentro de sua lista de par�metros.O valor retornado pela Procedure � retornado como um objeto de TField dentro do DataSet.Eu tentei fazer dessa forma:[code:1:f121204342]edit1.text := mdostoredprocedure.fields&#91;0&93;.asstring;[/code:1:f121204342]Mesmo assim n�o consegui fazer funcionar.� como se n�o houvesse valor a ser retornado.Galera, valeu a for�a mas a d�vida continua.Se tiverem outra sugest�o, por favor postem aqui.Valeu......

Luiz Henrique · Answer

Boa Noite, jonathan bispo

Apesar de usar muito pouco store proc nos meus projetos e tambem
nao sei como este componente(MDO so ou falar) que vc esta usando trabalha, mas � + ou - como o RJun comentou, no componente StoreProcedure que esta usando, vc cria um parametro �OutPut� com este nome ai que mencionou, ao executar a store proc por ele, o retorno sera no parametro OutPut de memo nome. Por exemplo: no DBExpress seria o TSQLStoreProc, criaria-se este parametro neste objeto.

Espero que tenha ajudado

Abra�o , T+

Emerson Nascimento · Answer

ou simplesmente execute um select na SP.

select * from SP_NOME (cod_cliente)

coloque esta instru��o no componente e abra-o como se fosse uma select numa tabela qualquer. no FB as SPs com resultado (SPs selecion�veis) s�o entendidas como uma tabela.

por exemplo (n�o conhe�o os componentes mdo):
mdodataset.close;
mdodataset.commandtext := �select * from SP_NOME (:cliente)�;
mdodataset.parambyname(�cliente�).asinteger := cod_cliente;
mdodataset.open;

edit1.text := mdodataset.fields[0].asstring;

Jonathan Bispo · Answer

Valeu pela ajuda galera...Consegui utilizar minha Stored Procedure.Quando a SP retorna algum valor, realmente tenho que execut�-la atrav�s de um componente Query, como o Emerson falou.Quanto a SP n�o retorna valor, simplesmente passo os par�metros necess�rios e a executo, atrav�s de um componentes StoredProcedure.Apesar de n�o ser da forma que eu pensava funcionou bem.Mais uma vez, obrigado pela ajuda.Abra�os....

Wianei · Answer

Se Vc estiver usando dbExpress poderi ter utilizado uma Cliente Dataset que funcionario da mesma forma sem usar o componete stured procedure. Tabem poderia esperimentar a inclus�o da express�o into:[Campo de retorno] , la no delphi vc especifica o tipo do parametro(integer, string...) diz que ele � parametro de entrada e atribui um valor qualquer com 1 por exemplo e chama como se fosse uma tabela normal

F�rum Stored Procedures #356861