Erro em consulta

Delphi

22/08/2004

Onde esta o erro nesta consulta?
estou usando o Access.

qSoma.Close;
qSoma.SQL.Clear;

qSoma.SQL.Add(´Select tlbClientes.Nome, tlbParcelas.DtaVncParcela, Sum(tlbParcelas.ValorParc) As Valor FROM tlbClientes INNER JOIN tlbParcelas On tlbClientes.Codigo=tlbParcelas.CodCliente GROUP BY tlbClientes.Nome´);
qSoma.SQL.Add(´HAVING tlbParcelas.DtaVncParcela Between :Inicio And :Final´);
qSoma.Parameters.ParamByName(´Inicio´).Value:= dpInicio.DateTime;
qSoma.Parameters.ParamByName(´Final´).Value:= dpFinal.DateTime;

qSoma.Open;

Retorna o seguinte erro:
você tentou executar uma consulta que não inclui a expressão ´DtaVncParcela´
especificada como parte de uma função agregada.


Agradeco a quem puder ajudar-me.


Jose

Jose

Curtidas 0

Respostas

Sandra

Sandra

22/08/2004

Jose,

De acordo com a mensagem de erro, a tabela tlbParcelas não foi informada na select, ou seja:
FROM tlbClientes, tlbParcelas

qSoma.Close; 
qSoma.SQL.Clear; 

qSoma.SQL.Add(´Select tlbClientes.Nome, tlbParcelas.DtaVncParcela, Sum(tlbParcelas.ValorParc) As Valor ´);
qSoma.SQL.Add(´FROM tlbClientes, tlbParcelas´);
qSoma.SQL.Add(´INNER JOIN tlbParcelas On tlbClientes.Codigo=tlbParcelas.CodCliente ´);
qSoma.SQL.Add(´GROUP BY tlbClientes.Nome ´); 
qSoma.SQL.Add(´HAVING tlbParcelas.DtaVncParcela Between :Inicio And :Final´); 
qSoma.Parameters.ParamByName(´Inicio´).Value:= dpInicio.DateTime; 
qSoma.Parameters.ParamByName(´Final´).Value:= dpFinal.DateTime; 

qSoma.Open;



GOSTEI 0
Jose

Jose

22/08/2004

Sandra assim retorna :
erro de sintaxe na operação JOIN

Obrigado......


GOSTEI 0
POSTAR