Obtener Resulta de Funcion SQL con DBExpress

[carlos gonzalez]

Ya hice la prueba y me marca que no encuentra el parámetro, esta es la función que espero cachar el resultado que retorna

CREATE FUNCTION [dbo].[VALIDACION]
(@FOLIO as varchar(50) )

returns varchar(10)
as
begin
declare @ent as integer, @sal as integer,@resul varchar(10)
set @ent = (select count(*) from dbo.entrada WHERE FOLIO=@FOLIO)
set @SAL = (select count(*) from dbo.SALIDAS WHERE FOLIO=@FOLIO)


set @resul = convert(varchar(10), @ent) +convert(varchar(10), @SAL)

return @resul
end

[bucanero]

Hola a todos,

como ya te ha comentado CASIMIRO NOTEVI, al tratarse de una funcion debes de utilizar un TSQLQuery, el problema lo puedes tener por la forma en que hay que realizar llamadas en MSSQLServer a funciones y procedimientos, prueba este código:

Código Delphi [-]

  function validacion(folio: string): string;
  begin
    // SQLQuery1 es de tipo TSQLQuery
    with SQLQuery1 do begin
      SQLConnection := SQLConnection1;
      SQL.clear;
      SQL.Add('SELECT [dbo].[VALIDACION](:folio) as RES;');
      Params.ParamByName('folio').Value := folio;
      open;
      Result:=FieldByName('RES').value;

      close;
    end;
  end;

begin
  MessageDlg(validacion('tu valor'), mtInformation, [mbOK], 0);
end;

[Neftali [Germán.Estévez]]

Generando una función como esta (que es la misma que la tuya, pero usando una par tablas mías):

Código SQL [-]
CREATE FUNCTION dbo.VALIDACION (@FOLIO as VARCHAR(10) )

returns varchar(10)
as
begin
declare @ent as integer, @sal as integer,@resul varchar(10)

set @ent = (select count(*) from usuarios )
set @SAL = (select count(*) from tablas )

set @resul = convert(varchar(10), @ent) +convert(varchar(10), @SAL)

return @resul
end
GO

Y ejecutrando esta consulta:

Código SQL [-]
  SELECT dbo.validacion('11') AS RESULTADO

Obtienes un único registro con el valor resultado.
Para obtenerlo desde Delphi, tal y como han comentado un TQuery (derivado).

[ecfisa]

Hola.

Empezado por carlos gonzalez

Ya hice la prueba y me marca que no encuentra el parámetro, esta es la función que espero cachar el resultado que retorna
...

Ayudaría mucho que copiaras/pegaras exáctamente el mensaje de error que te indica.

Una misma función o stored procedure debería poderse llamar desde ambos componentes, ya sea TSQLStoredProc o TSQLQuery con el mismo resultado.

Repitiendo el ejemplo anterior, del mismo modo funciona:

Código Delphi [-]
...
begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Text := 'SELECT RESULT FROM POS(:SUBSTR, :STR)';
  SQLQuery1.ParamByName('SUBSTR').AsString := 'MUNDO';
  SQLQuery1.ParamByName('STR').AsString    := 'HOLA MUNDO';
  SQLQuery1.Open;
  ShowMessage(SQLQuery1.Fields[0].AsString);  { muestra: 6 }
end;

Para el primer ejemplo usé el TSQLStoredProc ya que ese figuraba en tu intento.

Saludos