ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Select Sum - Erro

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Banco de Dados
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
JonasB
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 15 de Abril de 2013
Mensagens: 175
MensagemEnviada: Sex Nov 29, 2013 4:36 pm    Assunto: Select Sum - Erro Responder com Citação
Boa tarde,

Estou com problema na execução de uma Query..

Segue abaixo o erro.



Código:
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('SELECT REC0011.EMPCOD, EMP01.EMPDES, SUM(REC0011.RECPARVALO) AS SOMA FROM REC0011, EMP01 '+
'WHERE REC0011.EMPCOD = EMP01.EMPCOD  GROUP BY REC0011.EMPCOD, EMP01.EMPDES '+
'HAVING SUM(REC0011.RECPARVALO) > :Par1 AND SUM(REC0011.RECPARVALO) :Par2 fetch first 1 rows only');
//Query.Parameters.ParseSQL(dmDados.QryPROD01.SQL.Text, True);
Query.Parameters.ParamByName('Par1').Value := edtValor1.text;
Query.Parameters.ParamByName('Par2').Value := edtValor2.text;
Query.Open;


O problema é que testando no sqlDBX o comando funciona normalmente.

Se alguem puder ajudar agradeço.[/quote]
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
JonasB
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 15 de Abril de 2013
Mensagens: 175
MensagemEnviada: Sex Nov 29, 2013 4:39 pm    Assunto: Responder com Citação
Desconsiderem a mensagem, logo depois de postar já vi o erro, rs..

Faltou o operador lógico..

Código:
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('SELECT REC0011.EMPCOD, EMP01.EMPDES, SUM(REC0011.RECPARVALO) AS SOMA FROM REC0011, EMP01 '+
'WHERE REC0011.EMPCOD = EMP01.EMPCOD  GROUP BY REC0011.EMPCOD, EMP01.EMPDES '+
'HAVING SUM(REC0011.RECPARVALO)[b] >=[/b] :Par1 AND SUM(REC0011.RECPARVALO) [b]<=[/b] :Par2 fetch first 1 rows only');
//Query.Parameters.ParseSQL(dmDados.QryPROD01.SQL.Text, True);
Query.Parameters.ParamByName('Par1').Value := edtValor1.text;
Query.Parameters.ParamByName('Par2').Value := edtValor2.text;
Query.Open;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Banco de Dados Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB