Como chamar uma stored procedure

Question

Ol�...Criei uma Stored Procedure para totalizar os valores de um caixa que eu informar e me retornar os totais.ex.: vlrDin 0,00vlrCar 0,00vlrChq 0,00Quando executo a Procedure direto dela mesma...

Joel Rodrigues · Answer

Como voc� tem par�metros de retorno no procedure, � necess�rio declarar 3 vari�veis e pass�-las na chamada para que elas recebam os valores de retorno. Ou seja, voc� ter� que passar 4 par�metros, sendo um valor de entrada e 3 vari�veis para receber as sa�das....

Vagner Almeida · Answer

para eu testar no query analyser, como eu teria que fazer?...

Joel Rodrigues · Answer

Tenta assim:...

Vagner Almeida · Answer

Como eu faria isso no Delphi ????      SQL.Clear;      SQL.Add(CALL sp_totalizadorcx+sFilial+(:nrocx, @a, @b, @c));      ParamByName(nrocx).AsInteger := opCXcd;      Open;?????...

Joel Rodrigues · Answer

Rapaz, eu nunca usei MySQL no Delphi, mas vamos tentar.Primeiramente, no Query Analyzer deu certo?Que engine de conex�o voc� est� utilizando?...

Vagner Almeida · Answer

No Analyser deu certo, da seguinte forma

Primeiro eu executei o call, dai ele me retornou uma tabela sem campos.
CALL sp_totalizadorcx01(1, @ra, @rb, @rc)

Voltei e executei o select, dai me mostrou os resultados que eu queria ver. Obs: o nome das colunas foram os das vari�veis ( @ra, @rb, @rc ).
select @ra, @rb, @rc

No delphi eu tentei fazer do mesmo jeito, executar um e depois o outro, mas logo no primeiro deu problema.
Estou usando o componente ZEUS, acesso direto.

var zqr: TZQuery;
begin
zqr := TZQuery.Create(nil);
zqr.Connection := dm.zDB;

try
with zqr do begin
SQL.Clear;
SQL.Add(CALL sp_totalizadorcx+sFilial+(:nrocx, @din, @car, @chq));
ParamByName(nrocx).AsInteger := opCXcd;
Open; //Deu um problema aqui.(menssagem: CAN NOT OPEN A RESULTSET)

SQL.Clear;
SQL.Add(select @din, @car, @chq);
Open;

ValorDin.Value := FieldByName(@din).AsFloat;
ValorCar.Value := FieldByName(@car).AsFloat;
ValorChe.Value := FieldByName(@chq).AsFloat;
end;
finally
zqr.Free;
end;

Joel Rodrigues · Answer

Ao inv�s de Open, chame o ExecSQL, Exec, ExecuteSQL ou semelhante (n�o conhe�o o Zeos)....

Vagner Almeida · Answer

Isso mesmo.N�o � Open � ExecSQL.assim funcionou.      SQL.Clear;      SQL.Add(CALL sp_totalizadorcx+sFilial+(:nrocx, @din, @car, @chq));      ParamByName(nrocx).AsInteger := opCXcd;      ExecSQL;      SQL.Clear;      SQL.Add(select @din, @car, @chq);      Open;Muito obrigado......

Joel Rodrigues · Answer

Que bom que funcionou. Fico feliz por ter ajudado. Inclusive aprendi coisas novas com este t�pico. Quer saber? Nunca usei MySQL e muito menos Zeos =), mas conseguimos resolver o problema.
Boa sorte em seus projetos.

F�rum Como chamar uma stored procedure #417473