USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Como Somar Dois campos de tabelas diferentes
José Ari
MANAUS
AM - BRASIL
Postada em 12/09/2009 02:05 hs            
boa noite, pessoal, estou precisando de uma ajudinha de vocês....

tenho num banco access com duas tabelas:

Caixa
....
|___ DataCaixa
|___ SubTotal
|___ TaxaEntrega

Despesas
....
|___ DataDesp
|___ Valor


Queria que me retornasse o saldo em caixa, tipo assim:

"pega a soma do campo SubTotal da Tabela Caixa, a soma do campo TaxaEntrega da Tabela Caixa, soma esses resultados e subtrai esse valor com a soma do campo Valor da Tabela Despesas, onde a data é ????? " e me de o resultado como SaldoCaixa

ou seja:  SaldoCaixa = ( (SomaSubTotalCaixa + SomaTaxaEntregaCaixa) - (SomaValorDespesas) )

parece fácil... se fosse numa tabela só....

alguem pode me dar uma luz de como fazer essa SQL...

tenho que ter o cuidado pra quando, nao tiver nenhum valor na tabela Despesas, não me retornar um valor nulo, porque senao anularia a operação.....
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
ENUNCIADA !
Postada em 14/09/2009 10:46 hs            
eu faria em algumas etapas...
1. ssql= "select * from Caixa where DataCaixa=" & VariavelData
'com esta vc vai pegar os dados da tabela caixa e somá-los...
 
2. ssql= "select * from despesas where DataDespesa=" & VariavelData
'Antes de efetuar a subtração conferimos SE existem despesas...
'em DAO seria
set tabela= banco openrecordset( ssql, dbopensnapshot)
do until tabela.eof
    N = tabela.recordcount
    tabela.movenext
loop
tabela.close
If N=0 then ' Não existem despesas nesta data
      Soma_Despesas=0
else
    
set tabela= banco openrecordset( ssql, dbopensnapshot)
do until tabela.eof
    SomaDespesas=SomaDespesas+ tabela("valor")
    tabela.movenext
loop
tabela.close
 
agora é só completar a operação...
 
 
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página