F�rum Execu��o de uma fun��o do Oracle no Delphi #134503

08/04/2010

Tenho uma fun��o no oracle que preciso atribuir a um campo de um dataset. Esta func��o recebe dois valores. O primeiro representa o dom�nio dos valores (Ex.: 28736) o segundo o campo para ser pesquisado. Conforme representa��o abaixo. Dom�nio campo Descri��o XXXXX XXXX xxxxxxxxxx ... 28736 1 Solteiro 28736 2 Casado ... XXXXX XXXX XXXXXXXXX mdominio = 28736 mdescricao=2 A fun��o get_domainevaleur est� no Oracle. Qual a sintaxe correta para executar a fun��o dentro do Delphi. cdsProfilHistoDETAIL_AVANT.AsString := get_domainevaleur( mdominio , mdescricao); Obrigado.

Rfb

Curtir t�pico

+ 0

Responder

Posts

09/04/2010

Emerson Nascimento

n�o � poss�vel colocar a chama na pr�pria instru��o SQL?

select [...], get_domainevaleur(X, Y) DETAIL_AVANT
from [...]

Responder

Gostei + 0

09/04/2010

Rfb

OK! em alguns casos eu fa�o exatamente isso. Mais por detalhes desta implementa��o, preciso executar esta fun��o dentro do Delphi. Como seria a sintaxe correta?

Responder

Gostei + 0

09/04/2010

Emerson Nascimento

fa�a da mesma forma que voc� executaria somente a fun��o no oracle, por�m num cds separado.

Responder

Gostei + 0

09/04/2010

Jair N.

Oi, acaso tem como pegar a fun��o numa TQuery?

"SELECT get_domain.* FROM TABLE(get_domainevaleur( mdominio , mdescricao)) AS get_domain"

� um Cursor Impl�cito?

"SELECT get_domainevaleur( mdominio , mdescricao) AS get_domain FROM dual"

Responder

Gostei + 0

09/04/2010

Emerson Nascimento

voc� dever� fazer EXATAMENTE como faz no aplicativo console do Oracle:

SELECT get_domainevaleur(X, Y) AS get_dmn (funciona dessa forma no SQL SERVER)

SELECT get_domainevaleur(X, Y) AS get_dmn
FROM alguma_tabela_de_sistema (funciona dessa forma no FIREBIRD)

se alguma dessas formas funcionar, no Delhi ficar� assim:
cds.close;
cds.commandtext := 'SELECT get_domainevaleur( :mdominio, :mdescricao) AS get_dmn'
cds.params.parambyname('mdominio').asinteger := valor_desejado;
cds.params.parambyname('mdescricao').asinteger := valor_desejado;
cds.open;
cdsDestino.edit;
cdsDestinoCampoDesejado.AsString := cds.FieldByName('get_dmn').AsString;

ou assim:
cds.close;
cds.commandtext := 'SELECT get_domainevaleur(' + inttostr(valor_desejado) + ',' + inttostr(valordesejado) + ') AS get_dmn'
cds.open;
cdsDestino.edit;
cdsDestinoCampoDesejado.AsString := cds.FieldByName('get_dmn').AsString;

Responder

Gostei + 0