Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-09-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 21-09-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola algo asi:
Código Delphi [-]
Var
i, j : byte;
fila : real;
begin
Saludos
Responder Con Cita
  #3  
Antiguo 21-09-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Poder: 27
egostar Va camino a la fama
No, no, fila es un entero que hace referencia a la matriz del Data.Cell[x,y], eso no tiene nada que ver.

Cita:
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #4  
Antiguo 21-09-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
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
Responder Con Cita
  #5  
Antiguo 21-09-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Poder: 27
egostar Va camino a la fama
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.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #6  
Antiguo 21-09-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Gracias egostar
Cita:
No quisiera decirlo pero creo que hay otro error en tu sentencia.
Si no lo dices como se aprende?
Gracias por decirlo y tomarte tu tiempo, lo analice y aprendi.
Saludos
Responder Con Cita
  #7  
Antiguo 21-09-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Poder: 27
egostar Va camino a la fama
Cita:
Empezado por Caral
Gracias egostar

Si no lo dices como se aprende?
Gracias por decirlo y tomarte tu tiempo, lo analice y aprendi.
Saludos
Hombre, pues que bueno que haya servido de algo, pero a todo esto.....

Que es lo que nuestro amigo freddiaz07 ha analizado y/o aprendido, ¿ya habrá resuelto su problema?, ¿como lo resolvió?. No ha vuelto a mencionar palabra alguna, sería bueno que nos actualizara, ¿no lo crees?.

Saludos.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Redondear numeros decimales a enteros.... uper Varios 6 26-07-2012 16:52:45
Formatear números enteros y decimales quade C++ Builder 10 13-10-2011 16:09:54
Grabar En SQL Campos Decimales, Solo me graba enteros? freddiaz07 SQL 2 07-09-2006 16:24:04
Campos enteros en los DBGrid dmagui OOP 1 03-02-2006 19:45:31
Cuando trabajan dos usuarios simultaneos solo graba la factura de uno tulio Firebird e Interbase 11 28-10-2003 12:10:34


La franja horaria es GMT +2. Ahora son las 03:48:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi