Problema con FibPkus y Stored Procedure

[Nose]

Hola!

Soy nuevo con fibplus y firebird 1.5

Hay alguna manera de enlazar un procedimiento almacenado con un datasource, el unico componente que permite asociarlo es un TpFIBDataSet, que es un descendiente de TDataset. ¿O de alguna forma que ese componente ejecutar el procedimiento y que devuelva un conjunto de datos?

¿Cómo se podría hacer pasar los parámetros de entrada?

La razón es que devuelva un conjunto de resultado, según un críterio en la consulta. Además, me gustaría usar el componente TpFIBClientDataSet y asociarlo de alguna manera con un TDBGrid de sólo lectura. ¿Se puede hacer esto?

Gracias

[guillotmarc]

Hola.

No conozco el TpFIBClientDataSet, pero tendrá una propiedad CommandText, o SQL o algo parecido. En ella pón :

select * from NombreProcedimiento(:Parametro1, :Parametro2)

NOTA: Como ves, el resultado de un procedimiento almacenado, se puede recoger como una consulta normal.

Saludos

[Nose]

Hola, guillotmarc!

Gracias por contestar, pues sí, funcionó de la sgte. manera:

SELECT  *
FROM
    SP_BROWSEMOVF29( :SMES, :STIPO, :SANO, :FRUT )

Lo que no sé es cómo pasarle los parámetros, pues la única manera que he conseguido es algo así :

    pFIBDataSet1.Close;
    pFIBDataSet1.Params [0].AsString := '01';
    pFIBDataSet1.Params [1].AsString := 'O';
    pFIBDataSet1.Params [2].AsString := '2004';
    pFIBDataSet1.Params [3].AsFloat  := 3623223;
    pFIBDataSet1.Open;

Lo que quiero es algo así :

 pFIBDataSet1.Params.ParamByName ( ':SMES'  ).AsString := '01';

Pero, no me reconoce los nombres de los parámetros, :-(

[guillotmarc]

Hola.

Te sobran los dos puntos (solo se utilizan dentro de la sentencia).

pFIBDataSet1.Params.ParamByName ( 'SMES'  ).AsString := '01';

Saludos

[Nose]

Hola!

Te sobran los dos puntos (solo se utilizan dentro de la sentencia).

Tienes razón, esta sintaxis ya no la recordaba, lo que estrabajar sólo con SQLServer 2000.

Era sólo eso.

Saludos