Consulta sin decimales en el Recordset

Hola.
Si realizo la siguiente consulta en la base de datos MySql obtengo un valor double con enteros y decimales. (91,20 y 110,70)

SELECT    sum(`ING`) as Ing,    sum(`GTO`) as Gto FROM `caja` where.....

Pero en el recordset solo hay enteros y no hay decimales (91, 110,)

¿ porqué puede ser ?

.IntegerValue = no decimales…

DatabaseField.DoubleValue ?

Si

[code]
dim rs as RecordSet = DBcaja.cajaSumaEnti1(idSel)
dim d As Double

if rs <> nil then
d = rs.field(“Ing”).DoubleValue
tfIng.Text = format(d, “#####0.00 \€”)
d = rs.field(“Gto”).DoubleValue
tfGto.Text = format(d, “#####0.00 \€”)

tfSaldo.Text = format(rs.field("Ing").DoubleValue - rs.field("Gto").DoubleValue, "#####0.00 \\€")

end if[/code]

La variable d la uso solo para debugear y ver lo que contiene. Sino udaria el rs directamente en el format.

Tanto en rs como en d no hay decimales.

Yo uso el traductor de google (translate.google.com): No estoy hablando espahnol.

No entiendo por qu.

Trate de usar d1 y d2, a continuacin, muestra estos valores en un MsgBox (Format) para verificar que el debuger da buenos valores.
Cules son los valores que se muestran en el campo de texto (TextFields: tfIng & tfGto)?

SQLite?

Hola Cecilio,

¿Cómo están definidas las columnas de la base de datos MySQL? ¿Cual es la sentencia SQL para obtener el RecordSet?

Saludos,

Javier

Buena pregunta !

Tanto Ing como Gto son de tipo Double en MySql.
Y la consulta es:
dim sql As String = “SELECT sum(ING) as Ing, sum(GTO) as Gto FROM caja where paciente_id = 1”

return App.db.SQLselect(sql)

No uso PreparedStatement porque la id nunca la proporciona un usuario.

Saludos

CREATE TABLE <TABLE_Name>(Ing DOUBLE, … ?

CREATE TABLE caja (
id Smallint( 10 ) AUTO_INCREMENT NOT NULL,
Fecha Date NOT NULL,
Descripcion VarChar( 80 ),
ING Double( 10, 2 ) NOT NULL DEFAULT ‘0.00’,
GTO Double( 10, 2 ) NOT NULL DEFAULT ‘0.00’,