Obtener el parametro de salida de una funcion de Sql en Delphi

[olbeup]

Empezado por titooo

Buenas, tengo un problema con tratar de obtener el parametro de salida que utilizo en una funcion de SQL Server 2008 y llevarla a una variable en Delphi 7.
EJ= Mi funcion verifica que una clave ingresada por el usuario se encuentra en la tabla de SQL.
sintaxis en SQL:

function validar
(@codigo numeric (2))
returns varchar (10)
as
begin
declare @enc varchar (10)
if (select sigla
from sit_iva
where codigo=@codigo)=null

set @enc='no'

else
set @enc='si'
return @enc
end;

Posiblemente tenga un problema con el desarrollo de la funcion, ahora como hago en Delphi para poder asignarle a una variable "Encontrado" de tipo string, el resultado que quedo almacenado en la funcion utilizada que se denomina "@enc". Muchas gracias

Hola tatooo

Lo que tienes que hacer es crear una SQL que llame a tu función, eje.

Código Delphi [-]
...
var
  lResult: Boolean;
begin
  with TADOQuery.Create(Self) do
  begin
    Connection := ADOConnection1;

    SQL.Add('SELECT');
    SQL.Add('    dbo.validar(7) AS ACCESO');

    Open;

    lResult := FieldByName('ACCESO').AsBoolean;
  end;

  if lResult then
    ShowMessage('Usuario encontrado')
  else
    ShowMessage('Usuario no encontrado');
end;

Un saludo,

[[fjcg02]]

Creo que es más fácil usar una ADOStoreProcedure.

Le pones el procedimiento, le das valores de los parámetros de entrada, ejecutas el procedimiento ( ADOStoreProcedure.Execute ) y asignas el valor del parámetro de salida a una variable ( salida:= ADOStoreProcedure.ParamsByName('Salida').AsString ).

Te lo he puesto de memoria, pero básicamente es así.

Un saludo

[olbeup]

Siempre he utilizado ADOQuery para todo y nunca he utilizado ningún otro componente que no sea ADOQuery en conjunción con ADOConnection y me ha ido de cine, claro que para gustos colores.

Un saludo.