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 

Colocar o resultado de um SUM(CampoValor) em Variavel ???

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


Registrado: Quinta-Feira, 4 de Janeiro de 2007
Mensagens: 25

MensagemEnviada: Qui Fev 15, 2007 11:59 am    Assunto: Colocar o resultado de um SUM(CampoValor) em Variavel ??? Responder com Citação

Olá pessoal
Mais uma vez recorro aos amigos para um socorro,

Quero Calcular um campo e colocar o resultado em uma variavel, alguem pode me dar esta dica.

Firebird 1.5 (CampoValor=Numeric(15,2))
Estou usando uma IBQuery do Delphi5.

Obrigado a Todos !!!
Júnior
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular  
thomazs
Moderador
Moderador


Registrado: Segunda-Feira, 1 de Março de 2004
Mensagens: 2835

MensagemEnviada: Qui Fev 15, 2007 12:22 pm    Assunto: Responder com Citação

Código:

with ibQuery do begin
  Close;
  SQL.Text := 'Select Sum(CampoValor) from Tabela';
  Open;
  VariavelX := Fields[0].Value;
end;

_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger 
juniorcasabranca
Novato
Novato


Registrado: Quinta-Feira, 4 de Janeiro de 2007
Mensagens: 25

MensagemEnviada: Qui Fev 15, 2007 3:35 pm    Assunto: Responder com Citação

thomazs escreveu:
Código:

with ibQuery do begin
  Close;
  SQL.Text := 'Select Sum(CampoValor) from Tabela';
  Open;
  VariavelX := Fields[0].Value;
end;


Olá amigo !!!
Primeiramente quero lhe agradecer pela gentileza de me ajudar,,, a questão é que sou novatão em FB e agora me apertei veja :

VSql:='select NUMTIT, NUMPAR, DATVEN, VALPAR from PARCELAS where (DATVEN >= '#39+DateTOStr(DateTimePicker1.DateTime)+#39' AND DATVEN <= '#39+DateTOStr(DateTimePicker2.DateTime)+#39') Order by DATVEN';
IBQParcelas.Active:=False;
IBQParcelas.SQL.Clear;
IBQParcelas.SQL.Add(VSql);
IBQParcelas.Open;

Este código esta funcionando perfeito, mas gostaria de saber a forma mais rápida para obter a soma total do campo VALPAR. Gostaria de fazer isso se possivel com a função SIM(VALPAR) associando o valor retornado a uma varivel.

Pode me ajudar ?
Valeu amigo.

Muito Obrigado !
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular  
thomazs
Moderador
Moderador


Registrado: Segunda-Feira, 1 de Março de 2004
Mensagens: 2835

MensagemEnviada: Sáb Fev 17, 2007 9:54 pm    Assunto: Responder com Citação

tentou assim: ??

Código:

VSql:='select SUM(VALPAR) from PARCELAS where (DATVEN >= '#39+DateTOStr(DateTimePicker1.DateTime)+#39' AND DATVEN <= '#39+DateTOStr(DateTimePicker2.DateTime)+#39')';
IBQParcelas.Active:=False;
IBQParcelas.SQL.Clear;
IBQParcelas.SQL.Add(VSql);
IBQParcelas.Open;

_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger 
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