Ver Mensaje Individual
  #1  
Antiguo 29-09-2004
Avatar de Durbed
Durbed Durbed is offline
Miembro
 
Registrado: ago 2004
Posts: 166
Reputación: 20
Durbed Va por buen camino
Question Extraer datos de un dataset?

Tengo una base en IB6.5 y uso Delphi7. Quiero obtener un dato de una consulta que hago con un IBDataSet, y quiero que ese dato lo recoja en el evento DrawColumnCell. He provado con:
Código:
 var aux: STRING;
 ...
 aux:=IBDataSet1.FieldByName('DOCUMENTO'.AsCurrency;
Esto me genera un error de tipos.

Tambien he provado con la funcion CurrToStr
Código:
   var aux: STRING;
   ...
   aux:=CurrToStr(IBDataSet1.FieldByName('DOCUMENTO'.AsCurrency);
pero me genera un erro en tiempo de ejecucion:

"Project PApuntes.exe raised exception class EConvert Error whith message 'R00054' is not a valid floating point value.

'R00054' es el primer valor que ha de recoger la variable aux
El tipo de dato de DOCUMENTO en la base de datos es VARCHAR(6)

Gracias.
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5
Responder Con Cita