Supongo que será una tontería, pero no doy con la solución.
Pongo el código.
Código Delphi
[-]sqldataset1.close;
sqldataset1.commandtext := ' select expediente_e, importe_e from hono_cli where cliente = :icodigo and modulo = :imodulo';
sqldataset1.ParamByName('icodigo').AsInteger := StrToint(dbeCliente.Text);
SqlDataset1.ParamByName('imodulo').Asstring := ucmodulo;
SqlDataset1.open;
if sqlDataset1.RecordCount > 0 then .....
El Sqldataset.Open lo hace correctamente, pero en la siguiente linea (recordcount) es cuando da el error 'Operation not Supported'.
DbeCliente es un DBEDIT y trae un valor correcto.
UcModulo es una variable String que también tiene un valor correcto, de tal manera que si hacemos :
Código Delphi
[-]SqlDataset1.commandtext := 'select expediente_e, importe_e from hono_cli where cliente = '+ dbecliente.text + ' and modulo = ' + quotedstr(ucmodulo);
sqldataset1.open; if sqldataset1.recordcount > 0 then ....
No da ningún tipo de problema.
los parámetros están (creo) bien definidos (icodigo DataType = ftInteger y imodulo DataType = ftUnknow) los dos Paramtype = ptInput
Deduzco que el error debe estar en los parámetros ...
¿Alguna ayuda?
Utilizo Delphi 2006 y Firebird 2.5
Un saludo