Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
juniorcasabranca Novato

Registrado: Quinta-Feira, 4 de Janeiro de 2007 Mensagens: 25
|
Enviada: Qui Fev 15, 2007 11:59 am Assunto: Colocar o resultado de um SUM(CampoValor) em Variavel ??? |
|
|
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 |
|
 |
thomazs Moderador


Registrado: Segunda-Feira, 1 de Março de 2004 Mensagens: 2835
|
Enviada: Qui Fev 15, 2007 12:22 pm Assunto: |
|
|
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 |
|
 |
juniorcasabranca Novato

Registrado: Quinta-Feira, 4 de Janeiro de 2007 Mensagens: 25
|
Enviada: Qui Fev 15, 2007 3:35 pm Assunto: |
|
|
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 |
|
 |
thomazs Moderador


Registrado: Segunda-Feira, 1 de Março de 2004 Mensagens: 2835
|
Enviada: Sáb Fev 17, 2007 9:54 pm Assunto: |
|
|
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 |
|
 |
|