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

[freddiaz07]

Hola amigos gracias por sus repuesta pero todavia nada. cuando coloco la variable fila tipo: real o float me salen errores de incopatibilidad, cuando coloco .value me hace los mismo solo enteros y la otra solucion que era de quitar el .Asfloat por .Asstring me sale un error de doubles and string.

de todas maneras estoy dandole a pie en esa sola tabla a ver que pasa con otro programa a ver si resuelvo de todas maneras Gracias.

Los Foros son para Ayudarnos.

[[Caral]]

Hola
Realmente no se que pasa pero????
Cuando tengo un problema que no puedo resolver trato de ver que pasa el el codigo sql dando un mensaje asi:
Debajo del codigo que me da el Problema:

Código Delphi [-]
Begin
AdoTable1.Insert;
AdoTable1.Fields.FieldByName('Numero').AsString := Label8.Caption;
AdoTable1.Fields.FieldByName('Codart').AsString := Data.Cells[0,Fila];
AdoTable1.Fields.FieldByName('Desart').AsString := Data.Cells[1,Fila];
AdoTable1.Fields.FieldByName('Almacen').AsString := Data.Cells[2,Fila];
AdoTable1.Fields.FieldByName('CantDesp').AsFloat :=Strtofloat(Data.Cells[6,Fila]);
// este mensaje se usa para saber si el sql envia la informacion que quiero      
Showmessage(AdoTable1.Fields.FieldByName('CantDesp').AsFloat :=Strtofloat(Data.Cells[6,Fila]);
//
// AdoTable1.Fields.FieldByName('CantDesp').AsFloat :=Strtofloat(edit1.Text);
AdoTable1.Fields.FieldByName('Anulado').AsString:='0';
AdoTable1.Fields.FieldByName('Factura').AsString := Label4.Caption;
AdoTable1.Post;
End;

Ta vez veas que pasa
Saludos

[freddiaz07]

Hola Amigos ya encontre la solucion tube que cambiar el tipo de campo en la tabla sql de decimal a float y me funciona Gracias.