Grabar En SQL Campos Decimales, Solo me graba enteros? Con Codigo

[reina]

Hola! desde donde estas viendo lo que te graba??
Proba con value
salu2

[freddiaz07]

Hola Amiga No entiendo tu repuesta todos las operaciones que realizo con el programa me las hace bien pero al querer grabar decimales solo me toma la parte entera ej 15,20 solo me graba 15. debe ser que me falta una conversion o algo para que me permita grabar decimales en la base de datos esta bien definido como tipo decimal.

lo que me dices de value noce donde colocarlo si me puedes escribir un ejemplo.


Gracias de antemano

[[Caral]]

Hola freddiaz07
Veo que la variable fila la declaras tipo Byte, es para enteros, no decimales
declara fila tipo real o float, con esto sera suficiente pienso.
Saludos

[[Caral]]

Hola algo asi:

Código Delphi [-]
Var
i, j : byte;
fila : real;
begin

Saludos

[[egostar]]

No, no, fila es un entero que hace referencia a la matriz del Data.Cell[x,y], eso no tiene nada que ver.

Empezado por Reina

Hola! desde donde estas viendo lo que te graba??
Proba con value
salu2

Lo que te decia Reina es que en lugar de usar AsFloat debes usar Value.

Código Delphi [-]
AdoTable1.Fields.FieldByName('CantDesp').Value :=Strtofloat(Data.Cells[6,Fila]);

Sin embargo se me hace raro que te omita los decimales, prueba cambiando el VALUE haber si se resuelve el problema.


La otra cuestión es si pruebas pasando directamente un valor Real y te daras cuenta de que lado esta el error, por ejemplo:

Código Delphi [-]
AdoTable1.Fields.FieldByName('CantDesp').Value := 12.56;

Saludos

[[Caral]]

Bueno ya que meti las patas en la primera tengo derecho a repetir, asi aprendo:

Código Delphi [-]
AdoTable1.Fields.FieldByName('CantDesp').AsFloat :=Strtofloat(Data.Cells[6,Fila]);

Me parece que si viene de StrToFloat debe venir de string, ya que hace la transformacion.

Código Delphi [-]
AdoTable1.Fields.FieldByName('CantDesp').AsString :=Strtofloat(Data.Cells[6,Fila]);

Saludos

[[egostar]]

No quisiera decirlo pero creo que hay otro error en tu sentencia.

Código Delphi [-]
AdoTable1.Fields.FieldByName('CantDesp').AsString :=Strtofloat(Data.Cells[6,Fila]);

//debería ser 

AdoTable1.Fields.FieldByName('CantDesp').AsString := Data.Cells[6,Fila];

Saludos.