Utilizar Função Criada no Banco oracle

Delphi

26/04/2006

Pergunta é simples. Eu criei uma função no meu banco em que ela
recebe o parametro X e retorna o Valor Y.
Gostaria de Saber de como chamar essa função e como salvar esse
retorno no Delphi.

PS: eu uso o componente Direct Oracle Access.


var
qSQL : TOracleQuery;
begin
qSQL := TOracleQuery.Create(Self);
If OraDsLancamNR_LANCTO.Value > 0 then
Begin
with qSQL do
try
Session := OraDsLancam.Session;
//SQL.Text := ´PR_SEMOES(´+ raDsLancamCD_EMPRES.AsString+´)´;

SQL.Text := ´FN_SEMOES(´+ IntToStr(iEMP) +´)´ ;
Execute;

finally
Close;
Free;
end;
end;


Gabrielherdt

Gabrielherdt

Curtidas 0

Respostas

Gabrielherdt

Gabrielherdt

26/04/2006

Para chamar a função do Oracle no delphi:

function TFLnMovEst.SE_LANCTO(iEMP: Integer): Integer;
var
qSQL : TOracleQuery;
begin
Result := 0;
qSQL := TOracleQuery.Create(Self);
with qSQL do
try
Session := OraDsLancam.Session;
SQL.Text := ´Select (FN_SEMOES(´+ IntToStr(iEMP) +´))NR_LANCTO From dual´;
Execute;
if (RowCount = 0) then begin
MessageDlg(´Numero de Lançamento Não Gerado´, mtError, [mbOK], 0);
end else begin
OraDsLancamNR_LANCTO.Value := Field(0);
Result := OraDsLancamNR_LANCTO.Value;
end;
finally
Free;
end;
end;


GOSTEI 0
POSTAR