(Resolvido)Filtro no MySql por ano

[João Paulo Taraciuk]

Olá pessoal, estou tentando fazer um relatório na tabela de vendas onde tenho que separar por mês a pesquisa, o problema é que também tenho que filtrar por ano, e por ano ele não está dando certo, olha o código como está

'select id_pedido, vd_data, vendedor, forma_pagto,  nome_vendedor, total from vendas, vendedores, items_vendas WHERE Extract(Year from vd_data) = :ano and vendas.vd_id_vendedor=vendedores.id_vendedor and extract(month from vd_data) :mes and items_vendas.id_pedido=vendas.vd_id_pedido '
ZQuery_select.ParamByName('ano').AsInteger:=StrToInt(Edit1.text);
ZQuery_select.ParamByName('mes').AsInteger:=StrToInt(ComboBox1.text);

Seleciona por mês certinho, mas por ano não funciona, vocês podem me dizer o que eu estou fazendo errado ?

E aproveitando, como eu poderia separar no QReport o resultado por mes, O que eu devo colocar no TQRGroup, qualquer dica eu agradeço.

Valeu!!!

Editado Janeiro 24, 2008 por João Paulo Taraciuk

[Micheus]

Sugestão: quando filtrar por mês, utilize o between e passe o primeiro dia do mês e o último (faça uso de EndOfTheMonth - DateUtil no Delphi7):

select id_pedido, vd_data, vendedor, forma_pagto,  nome_vendedor, total 
from vendas, vendedores, items_vendas 
WHERE vd_data between (:inicio_mes and :fim_mes)
  and vendas.vd_id_vendedor=vendedores.id_vendedor 
  and items_vendas.id_pedido=vendas.vd_id_pedido
ORDER BY vd_data

observe a ordenação pela data no código:

ZQuery_select.ParamByName('inicio_mes').AsDateTime := EncodeDate(StrToInt(ComboBox1.text), StrToInt(Edit1.text), 1);
ZQuery_select.ParamByName('fim_mes').AsDateTime := EndOfTheMonth(ZQuery_select.ParamByName('inicio_mes').AsDateTime);

E aproveitando, como eu poderia separar no QReport o resultado por mes, O que eu devo colocar no TQRGroup, qualquer dica eu agradeço.

No quick, você precisaria ter o campo referente ao mês para fazer esta quebra (coloca no Expression do QRGroup o campo). Assim, seria conveniente adicionar esta coluna a sua consulta.

select extract(month from vd_data) AS mes_venda id_pedido, vd_data, vendedor, forma_pagto,  nome_vendedor, total 
from vendas, vendedores, items_vendas
...

algo assim.

Mas, se sua consulta filtra apenas 1 mês, porque fazer a quebra por mês? :blink:

Abraços

[Denis Courcy]

Vou aproveitar este tópico para dar um pitaco na otimização de consultas do MySQL.

Quando tratarem com parte de datas na cláusula WHERE evitem usar funções de conversão no lado esquerdo da pesquisa (o lado onde fica o campo). O uso de funções obriga o MySQL a abandonar qualquer tipo de busca com o auxílio de índices, obrigando-o a realizar um TABLE SCAN, varrendo registro por registro da tabela do começo ao fim da mesma.

O caso em que o Micheus mencionou exemplifica corretamente esta ação.

Sugestão: quando filtrar por mês, utilize o between e passe o primeiro dia do mês e o último (faça uso de EndOfTheMonth - DateUtil no Delphi7):

select id_pedido, vd_data, vendedor, forma_pagto,  nome_vendedor, total 
from vendas, vendedores, items_vendas 
WHERE vd_data between (:inicio_mes and :fim_mes)
  and vendas.vd_id_vendedor=vendedores.id_vendedor 
  and items_vendas.id_pedido=vendas.vd_id_pedido
ORDER BY vd_data

observe a ordenação pela data

Se a pesquisa é constante, então seria melhor criar um índice para vd_data. Pois na pesquisa este irá direto até a primeira ocorrência de vd_data = :inicio_mes e parará a consulta imediatamente quando encontrar a última ocorrência de

vd_data = :fim_mes além de evitar o retrabalho de ordenação de vd_data.

Não esqueça, também, de criar índices para vendedores.id_vendedor, vendas.vd_id_vendedor, items_vendas.id_pedido e vendas.vd_id_pedido; Que evitará a pesquisa recursiva com TABLE SCAN para cada registro de cada tabela.

Nota: Isto também vale para qualquer tipo de banco de dados

Um Abraço.