SQLITE 使用 Delphi 和 Zeos 使用 SUM 查询 GROUP BY

编程问答 2022-05-29

问题描述

我有一个使用 Delphi XE3 创建的应用程序，它使用 zeos 组件访问 sqlite 数据库。

sqlite 中返回 3 行的选择命令：

 select p.descricao,pg.valor
from pagamento pg
inner join venda v on pg.origem = 'venda' and v.id_venda = pg.id_origem
left join pagamento_tipo p on pg.id_pagamento_tipo = p.id_pagamento_tipo
where v.data >= '2021-01-19' and v.data <= '2021-01-19'
and v.ra_status_venda in ( 'Finalizado','Pedido')

enter image description here

但是当我放组命令时，信息结果是错误的。

    select p.descricao,sum(pg.valor) as valor
from pagamento pg
inner join venda v on pg.origem = 'venda' and v.id_venda = pg.id_origem
left join pagamento_tipo p on pg.id_pagamento_tipo = p.id_pagamento_tipo
where v.data >= '2021-01-19' and v.data <= '2021-01-19'
and v.ra_status_venda in ( 'Finalizado','Pedido')
group by descricao

enter image description here

P02 不求和。

而且，如果我对所有行求和，没有分组依据，则该值也是正确的。

select sum(pg.valor) as valor
from pagamento pg
inner join venda v on pg.origem = 'venda' and v.id_venda = pg.id_origem
left join pagamento_tipo p on pg.id_pagamento_tipo = p.id_pagamento_tipo
where v.data >= '2021-01-19' and v.data <= '2021-01-19'
and v.ra_status_venda in ( 'Finalizado','Pedido')

enter image description here

PS：在另一个时期，此命令求和正确。 PS2 我在 Windows 上使用 dll 32 位。

解决方法

通过提示@Shawn和@forpas我解决了这个问题，字段NUMERIC的SQLite类型在RUNTIME select命令中将数字转换为其他类型，前两个值是INTEGER而最后一个值是Real，显然是我的程序无法识别同一列中的两种不同类型。

为了解决，我将数据库中的字段类型从 NUMERIC 更改为 REAL。

delphidelphidlldllsqlitezeos